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(tence en ene---- eee ceacneh cae soenhaees aaoole aes 


This docunent describes the interfaces to the supported entry 
points of the HP-71 Operating System and to the polls it issues. 
Each supported interface 1s described in a documentation header 
that 1s extracted directly from the source file that contains that 
entry point or poll. These headers are listed here according to 
functional category (poll interfaces are listed under the category 
"POLL" ) and all entry points and poll process symbols are indexed 
for ease of reference. In addition, an alphabetized list of the 
supported entry points and poll process nutibers 1s given at the end 
of this chapter. 


It is the intent of HP to preserve the supported interfaces 
described in this docunent, as well as the absolute address 
position of each supported entry point, through any future updates 
of the HP-?71 operating systen. In general this allows external 
softuare which uses these interfaces to work predictably without 
regard to the version of the HP-?71 on which it 1s run. However, HP 
reserves the right to adjust the suported interfaces in any nanner 
it chooses. Supported interfaces are identified by the "Nane:(S)" 
line of the docunentation header, as described below. 


An unsupported entry point tay be added to the supported list if HP 
deers the request to be justified. To request support for an entry 
point, please contact Systerns Engineering Support in the HP 
Portable Corputer Division Product Support Group at (503) 757-2000. 
Corrections or requested  enhancenents to the interface 
docunentation are welcerte and should also be reported in this 
nanner, 


WARNING || 


Only supported entry points are available for use by external 
software. HP expresses no intent to indefinitely preserve the 
interfaces to any unsupported entry points described in this volure 
or in Volune III, since it 1s inevitable that code in any 64K byte 
operating syster! will have to change or move occasionally to fix 
bugs. The interface to unsupported entry points, and their 
absolute address position, nay therefore change at any tine and 
Without notice to outside parties. 
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1.1. Entry Point Interface Explanation 


The interface to each supported entry point 1s described in a 
docunentation header which 1s extracted directly fron the source 
file of the systen module which contains that entry point. The 
fields in the header have the following meanings: 


Category: 
This line gives the functional category of the entry point as 
ell as the nane of the operating system source file (listed 
in Volune III) which contains that entry point. 


Nane:(S) (or Nane: ) 
Gives the entry point nane followed by its one-line title. 
Supported entry points are preceded by "Nane:(S)" and 
unsupported (non-stationary) entry points are preceded by 
"Narie:". Please see the warning at the start of this chapter 
regarding unsupparted entry points. 


Purpose: 
This section describes briefly the intended use of the entry 
point(s) docuriented in the header. 


Entry: 
This Section describes the state of the nachine which is 
expected by the entry point. The placement of required values 
in CPU registers or RAM locations, status settings, and so 
forth, are given. The node of the machine (HEX or DEC) is 
also given where relevant. HEX mode should be assuned if not 
explicitly stated. 


Exit: 

This section describes the state of the machine after 
execution of the entry point routine. Return 1s to the caller 
of the entry point, unless explicitly stated otherwise. Note 
that only docunented exit conditions of a routine nay be 
depended on, even if the code currently leaves an enticing 
value in an undocunented location. If code nust be changed to 
fix a bug, only the docunented exit conditions will be 
preserved. To have an undocunented exit condition docunented 
for use by outside software, please contact HP in the manner 
described at the start of this chapter. 


Calls: 
This section lists ail routines called or junped to by this 
nodule. 


Uses: 
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This section lists the rachine resources (registers, RAM 
locations, status settings) that are altered by the execution 
of this routine. 

Usage sutmaries preceded by the word "Inclusive:" indicate the 
sun totai of al] the resources used by the routine, including 
any routines called or juriped to by this routine. 


Usage surinaries preceded by the word "Exclusive:" indicate 
only those resources altered by the routine proper, excluding 
consideraton of any other routines it may call or jurnp to. 
Exclusive surimaries were produced early in code developnent in 
order to facilitate the corpilation of inclusive sutimaries for 
higher level modules. Sore headers still retain the exclusive 
suntiaries along ith the inclusive summaries. 


Note that in sone cases the usage surrary Hay clain that a 
resaurce (such as an entire register) 1s used, whereas close 
inspectian of Volune III tay disclose that in fact only part 
cof that resource is currently used by the routine’s code, 
Callers of such a routine must not assure that the currently 
unused portion of that resource wili renain unused, since 
future HP code changes to correct a bug nay require that the 
full resource be used. 


In short, the user of a routine should never count on a 
resource remaining unaltered through execution of the routine 
if that resource appears in the usage list for the routine. 


Stk lvis: 


MQTE: 


Gives the nurber of harduare stack levels which are used by 
the execution of this routine, which unless indicated 
otherwise is the maxinun depth used by this routine 
considering all routines it calls or jumps to. Note that a 
GOSUB to a routine requires one hardware stack level in 
addition to the docunented stack level usage of that routine. 


Tnportant things to know about the operation of this routine 
This section 1s often onitted. 


Detail: 
Specific, detailed information about data structures or other 
constructs used by this routine. This section is often 
onitted. 

Algorithn: 


A high-level description cf the nodule flow. This section is 
often omitted. 


History: 
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AR record of the developrient of this interface. This section 
1s sonetines onitted. 


1.2 Poll Interface Explanation 


The interface to each poli issued by the mainfrane is described in 
a docunentation header which 1s extracted directly fron the source 
file of the systen module which issues that poll. The fields in 
the poli docurientation header have the following meanings: 


Nane: 
The syribolic nane of the poll process nunber, followed by its 
title. 


Category: 
Identifies this docunentation header as being a poll interface 
description. 


Type: 

Identifies whether this 1s a Slow Poll (POLL) or a Fast Poll 
(FPOLL). A Slow Poll stores and restores certain registers 
and stack levels as 1t queries each LEX file in turn. This 
gives potential handlers nore roon in which to work, but takes 
nore tine. In addition, Slow Polls allow an error exit 
condition which can be passed back to the code which issued 
the poll. A Fast Poll saves away no registers or stack 
levels, sao its faster but gives the potential handlers less 
roor, to Work and no opportunity to report an error condition. 
For wore inforration on polling, please refer to the chapter 
on "Language Extension and Binary Files" in Volume I of this 
docunent. 


Purpose: 
The reason for issuing the poll {e.9g., seeking handler for 
copy to unknown device). 


Should poil be "“Handled''?: 

The poll handler “handles” a poll (declares the poll to have 
been "handled")} by returning to the operating systen with the 
hardware XM bit set to 0. This satisfies (terrinates) the 
polling process: the operating systen stops querying LEX files 
in search of a handler, and returns control to the calling 
code (the code which issued the poll). Similarly, the 
operating syste returns control to the calling code if no 
handler declares the poll “handied.“” The calling code is 
inforrned whether the poll was "handled." 
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In sone cases, usualiy a Fast Poll or a poll which requires no 
specific action, no handler is allowed to declare the poll 
“handled.” This permits all LEX files present to detect the 
issuing of sucha poll (an exanple is the service request 
poll, which 1s 1ssued when one or nore hardware service 
requests are pending). However, most polls that require a 
specific action, such as copying to an unknown device, will 
require that the handler should declare the poll “handled.” 


jhis section of the poll documentation header indicates 
whether a handler should declare the poll "handled." A "Yes" 
answer here in the header neans that the poll is to be 
"handled" if the needed action has been taken and the exit 
conditions have been tet. 


Meaning of "Handling" Poll: 
Briefly describes what a LEX fale is doing by handling this 
poll, and what the calling code will do if the poll 1s handled 
or not handled. 


Entry conditions for handler: 
Which inputs are in what registers and what RAN locations. 


Normal exit conditions if handled: 
Which outputs are expected in what registers and what RAN 
locations IF the poll is handled. 


Normal exit conditions if not handled: 

Even if a handler does not declare a poll handled, it may 
perforn actions which affect registers or RAM. (One such poll 
as pVER$, wraich expects LEX files to build on the VER$ string 
and manipulate values in scratch registers, but NOT to handle 
the poll.) This field describes the required contents of 
registers and RAN on exit fron a handler uhich does not handle 
the poll. 


Error exit conditions: 
POLL (but not FPOLL) allows a handler to indicate an error 
condition by returning with carry set. The code issuing the 
poll can discern if this happened. Thais field indicates what 
outputs are expected in this case (typically an error number 
is returned in the C register). 


Available subroutine levels: 
Indicates how many subroutine levels are available to the 
handler. In a POLL, the handler is executing one level 
stallower in the herduare return stack than the caller 
(because levels are saved in RAM), For exanpie, a routine 
that uses 4 hardware return stack levels can :ssue a slow poll 
whese handler 1s allowed to use up to § levels. In a FPOLL, 
the handler is executing tio levels DEEPER than the caller, 
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because no levels are saved in RAN. For example, a routine 
that uses 4 hardware return stack levels can issue a fast poll 
whose handler is allowed to use up to 2 levels. 


NOTE: 
Inportant things to know about the h@Bdling of the poll. 


What registers/RAM may be used if handled?: 

A list of resources (registers, RAM storage, status settings, 
etc) uhich nay be altered aif the poll is handled. Since 
handling a poll terminates the polling process, 1m sone cases 
the handler nay use registers that contained input to the 
handler. ONLY the resources mentioned in this field are 
available for use by the poll handler in this situation, In 
sone cases it may be possible to add riore resources to this 
list after careful research and testing to derionstrate that no 
conflict 18 possible. Any request to add a resource to this 
list should be communicated to HP as described at the start of 
this chapter. 


A list of resources (registers, RAM storage, status settings, 
etc) which nay be altered if the poll is not handled. ONLY 
the resources mentioned in this fieid are available for use by 
the poll handler in this situation. In sone cases 1t may be 
possible to add nore resources to this list after careful 
research and testing to denonstrate that no conflict 1s 
possible. Any request to add a resource to this list should 
be communicated to HP as described at the start of this 
chapter. 


What registers/RAM nay be used if error exit?: 

A list of resources (registers, RAM storage, status settings, 
etc) which may be altered if the poll handler performs an 
error return (applies only for POLL since FPOLL does not 
provide for an error return fron the handler). ONLY the 
resources mentioned in this field are available for use by the 
poll handler in this situation. In sone cases it tay he 
possible to add nore resources to this list after careful 
research and testing to denonstrate that no conflict 1s 
possible. Any request to add a resource to this list should 
be communicated to HP as described at the start of this 
chapter. 


Special nenory/pointer considerations: 
Are pointers or enory in an unusual state (as in CALC node)? 


Envisianed application(s): 
Possible machine extensions envisioned uhen the poll was 
designed. 


What registers/RAM may be used 1f not handled’: 
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History: 
A record of the developnent of this poll interface. 


1.3 Supported Entry Points 


The following lists the HP-?71 Operating Systen supported entry 
points together mith their absolute addresses and titles. 


Narie Address Title 


#CK (03356) Check for # 
~ LINE (15275) Delete Through End Of Line 
1/815 (OC33E) 1/% 
(17380) Check File Protection 
*PRFIL = (1737E) Check File Protection 
(18349) Multiply Two 20-bit Hex Integers 
ACCEPT  (O450F) Funny function parse error reentry point 
ACOS12 (ODBD3) ArcCos Inv Trig (42-dig argunent) 
ACOS1S  (ODBD7) ArcCos Inv Trig (15-dig argunent) 
AD15n (00366) Add according to nodes 
ADI5S (O£E19B)  15-digit subtract/add routine 
ADI5s (00369) Add wath XM stacky 
AD2-12 (OC35F) Add tuo 12 digit forns 
AD2-15 (0C363) Add two 18 digit forns 
ADDF (0C372) Add for finite args only 
ADDONE  (0€330)} Add One 
ADDP (93A03) ADD Staterent Parse 
ADORSS (OF527) Find Address Of A Variable 
RDHERD (181B7) Add String Header 
ADJA (1289R) Absolute Tine Adjust Routine 
ADIN (12825) Set And Normal Adjust Routine 
ADRS40 =(OF52B) ~=Firnd Address Of A Variable 
RDRSSO = (OF551) Find Address Of Var Not Of Parn Chain 
AORS8O = (OF 567) ~=9Find Address Of Var Not Of Parn Chain 
ADRSUB (OF4CF) Get Variable Narne Fron Token Strean 
ALLDUN (O4BEF} Lex Analysis 
ARG12 (OD67B) Return Ara of X41Y (12-dia args) 
ARG15 (OD67F) Return Arg of K+iY (15-dig args) 
ARGERR (OBF13) Report “Invalid Arg" Error. 
ARGF (OD6R4) Return Arg of At1Y (45-dig finite args) 
ARGPR+  (OE8EB) Reads modes, pops and norm. real nbr 
ARGPRP (OEREF) Pops and nortalizes real nunber 
RARGST- (06910) Pops and tests real nuriber 
RRGSTR (O£900C) Pops and tests real nunber 
ARITH (O61E9) Get Text For An Arithmetic Operator 
RRRYCK (03668) Parses Doutly Dimensioned Array 
ARYDC (05178) Array Deconprle 
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ARYELM (OB5A7) Conpute Array Size, # Elenents 
ARYSIZ (OB61B) Compute Array Size, # Elenents 
ASCICK (05146) Ascii Strean Beconpiler 

ASCII (00739B) ASCII Bit Pattern Tables 

ASINI2 (ODBC8) ArcSin Inv Trig (12-dig argunent) 
ASINIS (ODBCC) ArcSin Inv Trag (15-dig argurent) 
ASLWI (OED21) Shaft A Left 3 Nibbles 

AS LWA (OEDIE) Shift A Left 4 Nibbles 

ASLWS (OED1B) Shift A Left 5 Nibbles 

ASNTINT (OF5EO) Perforn Variable Assignment At ch 
ASRW3 (OED10) Shift A Right 3 Nibbles 

ASRW4 (OE DOD) Shift A Right 4 Nibbles 

ASRW5 (OEDOR) Shift 9 Right 5 Nibbles 

ATANIS  (ODBBE ArcTan Inv Trig (15-dig argunent) 
AINCLR (00510 Clear Attention Flags 

AVE =C (18888 Update AVMNENE Fron 01 or C 

AVE=01 (18BB8 Update AVMENE Fron D1 or C 

AVS2DS (09708 AvienSt to display 


) 

} 

) 

} 
BACK1B (13B0C) Back up the File Pointer by 1 Byte 
BACK2B (13BOR) Back up the File Pointer by 2 Bytes 
BACK3B (13808) Back up the File Pointer by 3 Bytes 
BASCHA (07741) Verify File Type in R2 as BASIC 
BRSCHK  (0773E) Verify File Type in R2 is BASIC 
BRSE (OF953) Determine Option Base 
BEEP (OEAGE} BEEP Keyboard Execute 
BF2DSP (O1COE) Buffer to Display 
BF2STK (18663) Buffer To Stack 
BIASA+ (00520 Add Exp bias to A 
BIASC+  (0D540 Add Exp bias to C 


BIG (0B74? 
BLOBIT §  (0198C 
BLDCON § = (16279 
BLDDSP (01898 
BLDLCD §= (01 89€ 
BLNKCK (05104 
BOPNN- (18864 


) 

) 

) Create Special Consts 

) Build Bit Patterns in Display 

)  Buarld A Constant For Cal€ MODE 

) Build Display Pattern fron Buffer 

)  BLDDSP Except Display Status Active 

) Blank Check 

)  Pracess uOPNN- token during backup 

BP+C (OER40) Machine-level Beep 

BRT 3% (ODBE3) Inv Trig, defined by status 

BRIF (ODC15) Inv Trig, finite arg, defined by status 

BSCEX2  (0743A) BASIC Strnt/Pgn Execution: Progran Exec 

BSCEXC (07437) BASIC Stnt/Pgn Execution: Keyboard Exec 

BSCEXT  (O75CF) BASIC Stnt/Pgn Exec: Reentry into BASIC loop 

BSERR (0939A) BASIC system error 

BldIn+ (1BAGA) Put tokens fron C into BIdING strean 

BIdIMA (1BR66) Put 1 or 2 tokens fron A into BldING 

BldING (1BA68) Put tokens fron C into BIdING strean 

C+A201 (1€053)  Recaver offset fron RAN storage 

CALBIN (18D8C) Binary progran call BASIC subprogran 
) 
) 
) 


CALL (18DAE Sub-progran call execution 
CALLP (03890 CALL Statenent Parse 
CAT$20 = (06 746 Build CATalog Intornation Buffer 
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CATC++  (03F66) 
CATCH+  (0O3F69) 
CRTICHR (03F70) 
CATEDT (06435) 
CHAIN+ (07012) 
CHAIN- (O7C1C) 
CHEDIT (14C939) 
CHIRP (OEC5R) 
CHKEOL (13060) 
CHKuen (01207) 
CHNHED 3  ©{0F 579) 
CK'ON"  (076AD) 
CKINF- (18534) 
CKINFO (18542) 
CKSREQ (00721) 
CLASSA = (0f1590) 
CLOSER (12064) 
CLOSEF = (12087) 
CLRFRC «(OC 6F4) 
CMDIST =. (01.654) 
CMDFND = §=©(01693) 
CNOINI (01601) 
CHDPR" (01627) 
CMDS2O0 = (01672) 
CMPT (12582) 
CNFFND =(1098C) 
CNFLCT  (OBD15) 
CNVUCR  (152R7) 
CNVWUC  (O3FB8) 
COLDST (00000) 
COLLAP (091FB) 
CONCK (036(D) 
CONCK+  (O32RE) 
CONCOMN  (0467E} 
CONF (10212) 
CONVUC =(152RA) 
COPYu (08269) 
CORUPT (09083) 
caste (00721) 
COS15 (00725) 
CGOUNTC  =(10346) 
CPLHIO =. (07887) 
CROFIL = =(10210) 
CREATE (115?) 
CRETF+  (084(4) 
CRF SB- oe 
CRLFEND GE ) 
CRLF OF i 96) 
CRLFSD ee 
CRIF (1161) 
CSLSRO = ( 7BAOD) 


- Entry Point and Poll Interfaces 


Convert to Uppercase, Categorize Character 
Convert to Uppercase, Categorize Character 
Categorize Character 

Display CATalog Info on the Current File 
Chain Subprograns, Labels, DEF FNs 
Chain Subprograns, Labels, DEF FNs 
Character Editor 

Do An Annoying Little Beep 

Check 1f at End of Staterent 

Check Available Merory Without Leenway 
Point To Variable Chain Head 

Check ON / ATTN Key 

Specify DISP Stnt & Set Handler Info 
Check Handler Infornation 

Handle service requests 

Classification of numeric arg 

Close All Open Files 

Close File 

Clear fractional part 

Set command stack pointer to 1st cd 
Find Nth Conmand Stack Entry 

Recalls CMDPTR and MAXCND 

Text for cornand stack pronpt 

Display Cnd Stach Entry 

Return Current Tine 

Configuration Buffer Find 

Report "Data Type" Error. 

Convert To Upper Case 

Converts 8 chars to uppercase 

Cold starts machine 

Collapse Math Stack 

Corma Check 

Check Conna & Output Conna Token 
Compile a Nuneric Constant 

Configure Everything 

Convert To Upper Case 

COPY Utility 

Report "Systen Error” error 

Trig: Cosine of 12-dig arg 

Trig: Cosine of 15-dig arg 

Count output characters in IMAGE field 
Compute Line # with DO anywhere in stnt 
Copy Card Into RAM 

Statenent to Create Data File 

Create file im MARIN or in IRAN 

Create a File in Mainfrane 

Send CR/LF to display wath no delay 
Send cursor of f/CR/LF to disp w/o delay 
Send CR/LF to display with delay 
Create File in MAIN, PORT, or HPIL 
Copy D1 to RO(9-5) 
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CSLC1 (18441) = Perforn + CSLC 
CSLC1O =: (18418) )—s Perforn 10 CSLCs 
CSLC11 (1841B) Perforn 11 CSLCs 
CSLC12 0 (1B41E) = Perforn 12 CSLCs 
CSLC13) (18421) = Perforn 13 CSLUCs 
CSLO14 (1B 424 Perforn 14 (SiCs 
CStLC15 = (1B427 Perforn 15 CSLCs 
CSLC2 (1B43E Perforn 2 CSLCs 
CSLC3 (18438 Perfors 3 CSLCs 


) 
) 
) 
) 3 
CSLC4 (1B438)  Perforn 4 CSLCs 
CSLCS5 (18435) Perforn 5 CSLCs 
CSLC6 (18432) Perforn 6 CSLCs 
CSLE?7 (1B42F) Perforn ? CSLCs 
CSLC8 (18420)  Perforn &@ CSLCs 
CSLC9 (18415) Perforn 9 CSLEs 
CSLW3 (OED43) Shift € Left 3 Nibbles 
CSLW4 (OED40) Shift C Left 4 Nibbles 
CSLWS (OED3D) Shift C Left 5 Nibbles 
CSRC1 (18427) = Ferforn 1 CSRC 


CSRC10 =. (18432) ~—s Perforn 10 CSRCs 
CSRC11=—s-« (18435) = Perforn 11 CSRCs 
CSRC1200— (18438) = Perform 12 CSRCs 
CSRC13 = (1B43B})~—s Perforn 13 CSRCs 
CSRO14 = (1B43E) = Perform 14 CSRCs 
CSRC15 = (18441) = Perforn 15 CSRCs 
CSRC2 (18424) = Perforn 2 CSREs 
CSRC3 (18421)  Perforn 3 CSRCs 
CSRC4 (1B41E) Perforn 4 CSRCs 
CSRC5 (18418) Perforn 5 CSRCs 
CSRC6 (12418} Perforn 6 CSRCs 
CSRC? (18415 
CSRC8 (1B42C 


Perforn 7 CSRCs 
Perforn 8 CSRCs 





DO=FIB 
DO=PCA 


Set DO,C(A) to value at STNTD1 
Set DO=address in PCADDR 


} 

CSRC9 (1B42F) Perforn 9 CSRCs 
CSRH3 (OED32) Shift C Right 3 Nibbles 
CSRU4 (OED2F} Shift C Right 4 Nibbles 
CSRU5 (OEB2C) Shift C Right 5 Nibbles 
CURBOT (10059) Cursor Botton 
CURDVC (OR60B} Classify Current File’s Device 
CURSFL (151DF}) Move Cursor To Far Left 
CURSFR (15107) Move Cursor To Far Right 
CURSRD =(10084) = Cursor Boun 
CURSRT (096C1) Count cursor-rights 
CURSRU (1009A) Cursor Up 
CURTOP (10063) Cursor Top 
CVUCH (O3FBC) Converts 8 chars to uppercase 
CkLoop (18669) IMAGE parse loop to check for edit chars 
CkLpNC = (1Bb6D IMAGE parse loop, no symbol count 
DO+2RD =. (1.332 Nove file pointer&check buffer overflow 
DO=AVS — ( 

( 

( 


09B2C) Set DO=zaddress in AYNEMS 
) 
) 
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DOASC+  {(0982C) 
DOASCI = (09833) 
DIZROR (1BA3C) 
DIZAVE (18651) 
DIBAVS (01299) 
DIC=R3 = (03047) 
DIFSTK (19550) 
DINSTK (1954E) 
D=AVME (19476) 
D=AVNS  (1A460) 
D=WORD (O4C0E) 
DATLEN  {0B584) 
DAYZID = (13407) 
DAYYND (13335) 
DBLPI4 = (QDAFC) 
OBLSUB = (ODRED) 
DCHX=C = (1 Ben) 
DCHXF (18223) 
DCHXW (OECHC) 
DCPLIN (10108) 
DCRNNT (10177) 
DEBNCE  (OOCF?) 
DECHEX  (1B2D2) 
DECP (0328F ) 
DELAYp  (O2AC6) 
DEST (OF 7B0 ) 
DISPDC (05450) 
DISPP (035A4) 
DIVF (0C4B8) 
DMNSN (ORE39) 
DONNA (09656) 
DPART2 (17EA3) 
DPART3 (17EF8) 
BPVCTR  (OAC5O) 
DRANGE (18076) 
DROPOC (05470) 
DSLEEP  (0056D} 
BDSP$OO =. (1850B) 
DSPBUF (09723) 
DSPCHR =. (0103E) 
DSPCHE = (0103) 
DSPCL’ = (02086) 
DSPCNA = (09721) 
DSPCNB = (O971F) 
DSPONQ (09716) 
OSPLI+ (1010F) 
OSPLIN = (10127) 
DSPRST = (02443) 
DSPUPD = (01 ADA) 
DSTRBC = (05280) 
DV154 (OC4AC ) 


Entry Point and Poll Interfaces 


Send ASCII bytes to DATO 

Send ASCII bytes to DATO 

Copy BI to RO(R) 

Set 01 to (AVMEME) 

Set D1 to Available Menory Start 
Restore C(A),D1 fron R3 

Set Bi to FORSTK 

Set D1 at MTHSTK (AVMENE) 

Set O(A) to AVNEMS or AVMENE 

Set BCR) to AVNENS or AVMNENE 

Read 8 Bytes And Convert To Uppercase 
Compute Data Length Given Type 

Day# To Julian Date 

Day# To Year, Manth, Bay 

Generate 31-digit P1/4 or 45 

Double Precision Subtrace 

Convert DEC Integer To HEX Integer 
Convert 12-digit Flt To Hex Integer 
Full Ward Decimal To Hex Conversion 
Peconpile line and display it 
Decrenent multaplier an IMAGE string 
Debounce and scan heyboard 

Convert DEC Integer To HEX Integer 
Parse of Variable Declaration Statenents 
DELAY and WINDGN Statenent Parse 
Save Variable Destination Info 
Expression List Decorpile 

DISP Statenent Parse 

Divide for finite args only 

Create And Allocate Menory For Variable 
Re-pronpt input line 

I0 Handier For Built-In Display 
Finish up DISP line 

Creates Vars, Computes # Of Elenents 
Verify A Byte Is In Range "O"-"9" 
Expression Last Decorpile 

Deep sleep 

Create String of Readable Characters 
Send a buffer of chars to display 
Display Character 

Display Character 

Clear display buffer if necessary 
Display by count 

Display by count 

Display by count 


Display line with cursor on;calc cursor pos. 
Display line with cursor on;pass cursor pos. 


Display reset 

Display Update 

Deconpiles Variable Declarations 
Divide (cane as D¥2-15) 


TI 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Introduction 


DV15S (OC4B2) Divide without clearing SB 

DV2-12 (OC4R&) Divide for tuo 12-forns 

DV2-15 (OC4AC) Divide 

DXP1OO = (OCF7F) EXP for double precision arg 

EDIT8O =(OASHS) Designates Specified File as Current 
EDITWF (0A533) Designates workfile as Current File 
ENDALL (0769H) External Stnt entry to perform END ALL 
ENDBIN (07648) End Binary Progran or Subprogran 
ENDING (10040) Process end of IMAGE string 

ENCSUB (195A)  ENDSUB execution 

EOLCK (O2ZA7E) Check for EGL,@,!', ELSE 

EOLCKR (02878 Check for EOL,@,', ELSE 

EOLDC (0540¢ End of Stnt check 

ECLSCN = (O8AR7 tEOL Scan 

FOLXC®  (O52E0 Check for End of Stnt Decorpile 


EOLXCK (05405 End of Stnt check 

ERRMS$S = (0.9806 Transfer ASCII from AvMen to stack 
ERRRTN (O74ED Error Exit reentry to BASIC loop 
ESCSEQ (0231 Send Escape Sequence to Display 


) 
) 
} 
) 
) 
) 
} 
EX-115 (OCF4&)  EXP(x)-1 (EXPM1(x)) 
EX12 (OU5C6) Return exponent of 12-dig ar 
EX15% (OD5CA) Return exponent of 15-dig arg (KM=SB=0) 
EX15S (ODSCE) Return exponent of 15-dig arg 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


EXAB1 (OD3E7 Exchange AB with scratch 1 
EXRB2 (OD40E Exchange AB with scratch 2 
EXACT (128B0 Conpute New Recuracy Factor. 


EXCAD+ (08631 
EXCHRe (02£81 
EXCPAR (18768 
EXOCLP (OQ592E 


Compute Exec Addr of Token 

“Excess Characters" Parse Error Exit 
Execution Tine Expression Parse 

Funny function deconpile reentry point 


EKF (ODSDF Return exponent of finite 15-dig arg 
EXP15 (OCFSA EXP( x) (exponential fen) 

EXPEX+  (OF182 Evaluate Expression 

EXPEX- (OF 178) Evaluate Expression 

EXPEXC (OF186) Evaluate Expression 

EXPP10 (O3FE3) Expr Parse (specify start of parse stk) 
EXPPRR (O3FD3) Expression Parse 

EXPPLS  (O3FDC) Expression Parse for Left of Equal Sign 
EXPR (OF23C) Function Return 

EXPRDC (05922) Expression Deconpile 

EXPSKP (189AC) Skip Over Tokenized Expression 

FASCFD (11003) Look Up File Type Given Type Narie 
FCHLBL = (0782C) Find Label in Current BASIC File 
FLSTRT (06767) Internal Factorial 

FOTBL (O0C9B) State table for F & G shifted keys 
FIBAD- (11478) Fand FIB entry address for a channel 
FIBRDR (11457) Find FIB entry address for a channel 
FIBOFF (12132) Reset Devices, Buffers at Power On/Off 
FILCRD = (10879) Copy File To Card 

FILDC* (05759) File Deconpile 

FILEF (O9FBO) Find a file 


1-12 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Introduction 


FILEP (O3€9C File Nane Parse 

FILEP! (O3FOF Literal File Nane Parse 
FILEP+  (O3F07 Label Declaration Parse 
FILEP- (03F00 Subprogran Nane Parse 


) 

) 

) 

) 
FILEP1 (O3EFC) Lateral File Nane Parse 
FILFIL (O11CE) Fail in Missing File Nane 
FILSK+ (O6F1D) File Skip 
FILXQ$ (09895) Failenarne Execute For a String Expression 
FILXQ*™ (09876) Filenane Execute 
FIND (OF563) Find Address Of Var Not Of Parn Chain 
FINDA (023E3) Look For ACB) In A Table And Junp 
FINDDO = (023E0) Look For (DO) In A Table And Junp 
FINDF (O9F77) Find a file 
FINDF + (09F63) 
FINDL (OFFE4)  Fand Line# within a Progran File 
FINDLB (07786) Fand Label in Current Progran 
FINITA (0£003) Is (A,B) non-finite ? 
FINTTC (OCDOF) Is (€,0) non-finite ? 


Find a file 


FINLIN (18A3A) Finish line in display/video 

FIXDC (05493) Expression List Deconpile 

FIXP (O2REE) FIX and WAIT Statenent Parse 

FLABUR (01268) Find First/Last Address of Men Device 
FLDEVX (01154) Make Device Code Explicit 

FLIP1O = (ONBSC) = Taggle status bits 

FLIP11 (ODBAB) Toggle status bits 


FLIPS (ODB8D) Toggle status bits 

FLURT (18322) Convert Dec Integer Into 12-Dig Float 
FLTDH (18223) Convert 12-digit Flt To Hex Integer 
FLTYPp (03671) Parse File Type 

FNDFCN (1AOA1) Find User-Defined Function 

FNPHDS  (OD3C0} Weed out NaNs and Infs 

FNRTN1 «(OF 216) Function Return 

FNRIN2 (OF 219) Function Return 


FNRTIN3 (OF235) = Function Return 

FNRTN4 «(OF 238)  Functian Return 

FORUPD (ORERE) FOR Stach Update 

FPOLL (1250) Fast Poll all LEX files with Process # 

FSPECe (O2FO2) “Invalid Filespec" Parse Error Exit 

FSPECp (O3€C5) File Specification Parse 

FSPECx «= (O9F2D) = Fale Specification Execute 

FIBSCH (11093) Search a File Type Table by Type Nunber 

FIYPDE =(06902) File Type Decompile 
) 


FTYPFH (11059 Look Up File Type Given Type Number 
GRISPS (10307) = GNISP$ function execution 

GETAVA (18640) = Get Avarlable menory linats 

GETCHR  8=6(11427) = Get Channel Number 


GETCUN (ONAA3) Get constants fron table 

CETOIN (ORD6B) Get A Dirlinit Fron Stack 

GETNSK =(O18GR) Get Mask for Character Frotection Bitrap 
GETNAM (1AC85) Get variable nane 

GETPR1 (O6BFB) Get File Protection of Specified File 
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GETPRO (O6BEE) Get File Protection of Current File 


GETSA (O€551) Tests current statistical array 

GETST* (07716) Get Start/EGF any file/check Filetype 

GETST- (67728) = Get Start/EOF Curr Fiale/don’t check Filetype 
GETSTC (07726) Get Start/EOF Curr File/check Filetype 
GETVAL (ODAB2) Get constants fron table 

GNXTCR (064) Get Next Non-blank Character 


GOUSUB (O79E3)  Statenent Execution 

GOSUBp (O29F6) GOSUB Statenent Parse 

GOTO (O79F RA) Statenent Execution 

GOTODC §=(O55¢E) G5TO Deconpile 

GOTOp {O25F6) GOTO Statenent Parse 

GTEXT (05079) Get Text for Keyword/Function 
GIEXT+# (65199) GTEXT Preprocessor 

GIEXT1 (05185) GTEXT Freprocessor 

GIFLAG (1365E) Gets RAN nib and flag mask 

GIKYC+  (G8D9B) Get Keycode 

GTKYCD (08052) Get Keycode 

GTPTRS — ¢ } Get File Pointers fron FIB 

GIPTRX (14670) Get File Pointers fron FIB 

GIXT++ (05192)  GTEXT Preprocessor 

GetEXP (10086) Expression execute for IMAGE output list 
HASH1 (1B0A1) Indexed Junp Through A GOTO Table 
HRSH2 (1B083) Indexed Junp Through A GOTO Table 


HDF LT (1B31B Convert HEX Integer To DEC Flt-pt 
HEXASC = (17148 Convert Hexadecinal to Ascii 
HEXDEC = (OEC AF Hex To Decinal Conversion 

HMSSEC = (13274 Hours, Mans, Secs To Seconds. 


) 
) 

HNDLFL = (OCBC9) HANDLE FLAG SETTING 

HTRAP (OCB2F) HANDLE TRAPS 

HUGE (OB75D) Create Special Consts 

HXDASC = =6(O5SFF4) Hex to decanal ASCII conversion 
} 
) 
) 
) 


HXDCH (OFC 54 Hex To Decimal Conversion 

I/ORL+ (11978 I/O Buffer Allocate 

T/ORLL = (119? I/O Buffer Allocate 

T/OCcOL = (11979 1/0 Buffer Collapse 

T/OCON (11920) I/0 Buffer Contract Fron Buffer End 


I/ODRL (11841) I/0 Buffer Deallocate 
T/OEX2 (11AOF) I/O Buffer Expand 
I/QEXP (11A11) I/0 Buffer Expand 
T/OFND (1188) 1/0 Buffer Fand 
I/ORES (118FF)} 1/0 Buffer Restore 


IDIV (OEC7B) Full Word Integer Divide. 

IDIVA (OEC6E)  R-field Integer Divide 

IFi2A (00733) Integer/Fraction Split 

TLONTe (02E70) “Tllegal Context" Parse Error Exit 
IMDO+2 (1BA2D) Add 2 to R1(R), copy value to DO 
IMDO-2 (1B8A2Z1) Subtract 2 fron R1(A) 

IMerr (18989) Report “Invalid IMAGE" error 

Ifinit (1B88F) Initiate IMAGE cutput field 

IMoffs (1BA58} Store offset fron D1 in BIdING strean 
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IMxq2?  (1BB9C Return to INAGE token executor 
INF *O (00607 Inf*0 exception 

INFR15  =(0C73D Integer/Fraction Split 

INPOFF (18849 Restart statenent after DSLEEP 
INTGR (OF 99B Store Into An Integer Variable 
INTR5O 


INVNaN = (OC 65F Create IVL NaN 

TOFNDO =. (11801 1/0 Buffer Find 

TOFSCR  (1188E 1/0 Find for Available Scratch Buffer 
ISRAN? = (10192 Pointing At RAN? 

IVRERR (9€920) Report “Invalid Arg" error. 

IVEXPe  (02E35 "Invalid Expression" Parse Error Exit 
IVPARe = (O2L 3F "Invalid Parameter" Parse Error Exit 


) 
) 
) 
) 
) 
OOOUB) Reentry point for ext. interrupt handler 
) 
) 
) 
) 


IVVARe O2E66 "Invalid Variable” Parse Error Exit 
KEYC OD TFDZ2 Keycode Nap 
KEYDEL Oshet Key Assignnent Delete 


) 
) 
( ) 
KEYS (1ACA8) = KEY$ function 
( ) 
( } 
) 


KEYFND =(O8C BS Key Assignnent Find 

KEYMRG  {(O8BSF) Key Merge 

KEYNAN (1ACO4) Return key nane string fron keycode 

KEYRD (14£11) Read A Key 

KEYSEN (O0D4D) Scan keyboard 

KYON? {00774) Is a Key Down in Current Row? 

LABELP (O3E9F) Label Reference Parse 

LABLDC § = (05702)  Latle Deconpile 

LBLINP (02A04) Parse Line Nurnber or Label 

LBLNAN = (077E7) Get Label Nare into Register A 

LBLNIF ) Parse Line Number or Label after THEN/ELSE 
) 
) 


( 
LCDINI (00665 Initialize LCD display 
LDCEXT  (O4F5E Line Deconpile Priver 
LDOCM10 «= (O4F6F) ~=—s Line Deconpile Driver 
LOCOMP = (O04F 69 Line Deconpile Driver 
LOCSET (05060 Set D=AVMEME; DO=QUTBS 

( 

( 


) 
) 
LOSST4 O4F72) Line Deconpile Driver 
LOSST2 ) Line Decompile Driver 
LEAVE (04€01) Lexical Analysis 
LEXBF+  (100BF) Set Up LEX Files Buffer 
LGT15 (OD1AE) Log base 10 
LINITS  (OAC3E) LConpute Dinension Linaits In Decl Stnt 
LINHAU = (05122) ~~ Line nunter deconpile 
LINHD+ (05112) Line nunber deconpile 
LINHDNC = (05115) Line nunber deconpile 
LINEP {02620} Parse Main Driver after ENDLINE 
LINEP+  {(O262b) Parse Main Driver fron anywhere 
LINP (OcAO7?) Parse Line Number only 
LISTDC (058339) =Peconpiles LIST, RENUMBER, SECURE, MERGE 
LN1415 = (OCD44) LN(14X) 
LNI+XF = (OCDS1) ~—soLN(14X) for finite args only 
LNI2 (OCD?D) LOG for 12-forn args. 
LN15 (OCDS1) Natural Logarithn 
LN3O (OfD9f) LOG entry for finite args only. 
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LNEP66 = (O27EH) Parse Main Driver return entry 

LNPEXT (02617) Parse Main Driver external entry 

LNSKP- (O89FF) Laine Skip 

LOCADR (0R611) Locate, Classify Address’s Menory Device 
LOCFIL (17216) Locate File With FIB 

LSLEEP = =(006CD) Laight Sleep 

USTLEN (06027) Calculate #chars to list in display buf 
LXF ND (08790) Set Di to LEX Table 1/0 Buffer 

MAINOS (00338) Main Loop 

MAINIO =©6(0037E) Main Loop eel 
MAINLP = (O02FB) Main Loop 

MRKE4 (ODSCE) Make 12-dig 1 1n C and conpare with B. 
MAKEBF (01751) Make ASCII Buffer fron Display Buffer 
MEMBER (18098) Check If Byte Is A Meriber Of A Set 
MEMCKL = (012A5) Check Avail Menory Wath, Without Leeuay 
MENER* (09458) Low-level nenory error 

MENERR (0944D) Insufficient MNenory error 

MENERX (0944F} Insufficient Menory error 

MESSG (0CC17) MESSAGE 

NFER42 (0962C) Position DO to start of BASIC stut. 
MFERR (03393)  Mainfrane BASIC systen error 

MFERR*  (093F1) Error nessage driver 

MFERRS (0939E) Stop BASIC execution for error 

MFERsp (0940D) Error Message With Text Insertion 
MFLG=O0 =6(130A1) Clear MLFFLG nibble 

MF URN (0938C)  Warning/nessage driver 


MOVED? 1B104) Blk Move To Higher Addr 
MOVED3 18109) Blk Move To Higher Addr 
MOVEDR (1BOFA) Blk Move To Higher Addr 
MOVEDD (18106) Blk Move To Higher Addr 
MOVEDM  (1BOEE) Blk Move To Higher Addr 


MFWRNQ (093(5)  Warning/message driver 
MFURQS  (093C3)  Warning/nessage driver 
MGUSUB  (1AFO1) Execute R GOSUB Fron Movable Code 
MOVE*M (01308) Move Menory Up or Doun Without Ref Ad) 
MOVEDO = (1BOF4) = BIk Nove To Higher Addr 
MOVED1 (18101) Blk Move To Higher Addr 

( 

( 


MOVEUO = =(1B162) Blk Move To Lower Addr 

MOVEUT  (1B16F) Blk Move To Lower Addr © 
MOVEU2 (1B172) Blk Move To Lower Addr 

MOVEU3 (18177) Blk Move To Lower Addr 

MOVEU4 (18174) Blk Move To Lower Addr 

MOVEUR (18168) Blk Move To Lower Addr 

MOVEUM  (1B15C) Blk Move To Lower Addr 

MP1-12 (0C436) Multiply for one 12-forn 


MP15S (0C440) Multiply without clearing SB 
MFe-12 (00432) Multiply for tuo 12-forns 

MPe-j (OC43A) Multiply 

MPOPIN (OBD8D) Pop 1 Arg & Check For Sig NaN 
MPOP2N (OBDS4) Pop 2 Args W/signan Check 

MPY (OECBB) HEX * HEX Or HEX * DEC Multiply. 
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NSN12 (00553) Find most significant NaN, 12-Dig arg’s 
NSN15 (00557) Find ost significant NaN, 15-Dig arg’s 
MSPARe (O2E5C) “Massing Parameter” Parse Error Exit 
MTADDR (08195) Cale Main Table Address for Token 
MTRADR+ (08181) Cale Main Table Address for Token 


MULTF (0C446) Multiply for finite args only 

MVMNEM+  (0133C) Move File Menory W/Ref Adjust 

NORDIN (ORE2D) Report “Var Context" Error 

NOSCRL (14€8A) Request No-display-scrolling 

NRNCON (161AF) Convert BLOCON Constant into Usable Forn 
NTOKEN (04938) Lex Analysis 

NTOKNL (04866) Lex Analysis 

NULLP (079939) Null Progran Check 

NUMC++ (03690) Move 01 1-Byte, Do Valid Numeric Expr Check 
NUNCK (0369B} Valid Numeric Expression Check 


NUMNSCN (04218) = Scan Nuriber In Lexical Analysis 

NXTADR (147E8) Get Address of Next Array Elenent 
NXTELM (14880) Get Next Array Elenent 

NXTEXP (102F?) Store pointers, execute next expression 
NETLIN (10031) Scan to Next Line 


NXTP (03455) NEXT statenent parse 

NXTSTM  (08A48) Scan to Next Stnt/Junp to BASIC Loop 
NXTVA- (13E58) Get next Variable fron READ list 

NuOFFS (1€02D) Recover old offset, store new one in RAN 
ORGNXT (03060) Output byte, Get Next Non-blank Character 
OBCOLL (01435) Collapse Output Buffer 

OBEDIT (17687) Edit Output Buffer 

ONDC20 =(05501) = Keyword and Opt Line#/Label Deconpile 
ONP40 (02B7B) GQT0,GQSUB,RESTORE in middle of stnt Parse 
ONTINR (08008) Execute branch of ON TINER/ERROR 

OPENF (11806) Open File 

ORGSB (OD65B) Set SB if sINX=1 

ORSB (OD63C) Set SB if sIX=1 

ORXA (00633) Set XM af sxXM=1 and Set SB if sIXx=! 
OUTIT+  (O2CDF) Incretrient D1, Output 1 byte from ACB) 
OUTITK (O2CEB) Output 1 byte from ACB) 

OUTeTC (O2CFD) Output 2 bytes fron C(340) 

OUT2TK (O2CFF) Output 2 bytes fron A(3-0) 

OUT3TC (02012) Output 3 bytes fron C(5-0) 

OUT3TK (02015) Output 3 bytes fron A(5-0) 

QUTBY+  (O2CE5) Increment D1, Output 1 byte fron C(B) 
OUTBYT (O2CE8) Output 1 byte from C(B) 

QUTC15 (05421) Qutput nibbles 

OUTEL1 (05300) Exit for End of Stunt Decornpile 

QUTELA (08303) Qutput End of Strt Terminator Fron A 
OUTLI1 =(03709) Qutput Delimited Literal ” 


GUTLIT (O036F3) Qutput Delinated Literal 
OUTNBC = =(05423) Qutput nibbles 

QUTNBS (05426) Qutput nibbles 

QUTNIB (02628) Output 1 nibble from C(O) 
OUTRES  (QBC84) Round And Return Result 


a eP 
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QUTVAR  (0373E) 
OVFL (00 A73) 
P1-10 (041f1) 
PRRERK = (02F 08} 
PAFT3 (18097) 
PDEV (O9E3E) 
PEDIT (OF F5F) 
PEDITD  {GFF62) 
PFINDL = (O780F } 
PFNDZL (C78E2) 
PI/2 {OD877 )} 
PI/20 (00B7A) 
PI/4 ({CDAA1 } 
POLL (12937) 
POLLD+ (123?D) 
POPIN (CBDIC) 
POPIN+ (OBD91 } 
PUPIR (OESFD) 
POP1S (0BD38 ) 
POPON (OBC8C 5 
POPON+ (03058) 
POPBUF  {O10EE) 
POPNTH (18308) 
POPSTK = (08F55) 
POPSTR (18405) 
POPUPD  (O8F3E) 
PREP (OADAF ) 
PRESCN (04849) 
PRGFME (OH146) 
PRINT* = (17637) 
PRNEXe (02695) 
PRNTEC = (65450) 
PRPSNU (O6B17) 
PRSCOO = (07593) 
PRSsc+ = (1BHE4) 
PRSscn = (1B ABB) 
PRTIHDC {On841) 
PSHGUSB = (08F13) 
PSHMCR (C&FOR) 
PSHSTK (O8C7F j 
PSHSTL (08085) 
PSHUPLD = (O8FOD) 
PUGFIE = (12198) 
PURGEF = (17359) 
PURGDC = (03745) 
PUTRES (181158) 
PUROFF (00526 } 
QUNEXe  {02E8B) 
QUOTCK (06230) 
R3=DiO0 =. (03526) 
ReRSTK (01400) 
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Gutput Parsed Variable 

Create overflow value 

Nuneric Gperand Found 

Generic Parse Error Exit 

Finishes up a PRINT class statenent 
Evaluate Nuri Expression as Port Bevice 
Progran Edit 

Prograr Edit to delete line 

Find Lined Within Program 

Find Line# Wathain Prograr: 

Generate PI/? 

Generate signed PI/? 

Fetch ri/4 Fron table 

Poil LEX Files with Process Nunber 
Pall LEX Files adjusting AVMNEME in D(A) 
Pup 1 Nurbver GPF OF Stack 

Fop + Arg & Check For Sig NaN 

Pops real eurber from math stack 

Pop 7 String Ara Uff Stack 

Pop 2 Numbers Fron Stack. 

Pop 2 Args W/signan Check 

Fup key Buffer 

Skip Past fin Iten On Mthstk 

Pap Stack 

Skip Past fin (ten On feistk 

Poo Stack 

Prepare To Create A Variable/array 
Lex Anaivsis 

Purge File in Merory 

PRINT ciass ¢tatenent execution 

“) Expected” Parse Error Exit 
Expression Last Decorpiie 

Prepare ta send buffer to display 
Compute Progran Scope; GETSTC evat cand 
IMAGE parse scan, increment DO first 
IMHGE parse scan 

Port Deconpile 

Push address on GOSUB Stk 

Push adoress on GOSUB Stk 

Push Stach 

Push Stacr 

Push address on SOSUB Stk 

Purge the FIB Entries af Purged Files 
Furge Internal or External file 
PURGE, COPY beconpile 

Put Nunecic Result Inte Rts 

Power Off 

"Quote Expected” Parse Error rxit 
Quote and Anestraphe Cneck 

Seve DO and Of in F3 

Save SSTK Levelt(s} Inta RGYKBPR Buffer 
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RANROM (CA5F7) Classify Menory/Device 

RANGE {180753 Verify A Byte Ip In Certain Range 

RCC (OD3F5) Recall CD ommegscratch | 

ROCH2 (OD410)}  Recali (0 amme scratch 2 

RCL* {(OF983) Recall Sejected Math Scratch Stack Entry 


RCLW1 (CE981) = Recall 1st (Top) Math Scrtch Stack Entry 
RCLW2 (OESBE) = Recall 2nd Math Scratch Stack Entry 
RCLW3 (0£904) Rece!l Grd Nath Scratch Stack Entry 

( 


RESCR OF954) Poo 15-Fars Fron Math Seratch Stack 
RCVOFS (ilO5G) Recover of fset from RAM sturage 
RDATTY (17€€6) Report “fata Type” errot 

RDBAS (173FF} Read Line From Basic File 

RDBYTA (43AeF) Read Byte From an Opened Fale Inte a 
ROCHE+  (OF6FE} Read Current File header.File length and type 
ROCHIR = (O7HFO) = Read Cucrent File header, File length 
RDHDR } (OF GFL? Read File header, File Jength 

ROINF U {02465 } Read Source/Best File Internation 
RDLNAS = (43AR1F 1) Resd String Lenoth from a TERT Fale. 
RDTEXT (17489) Read Line Fron Text File 

REACIN {0F 484 } Read Sonethina In 

REAONB (17518) Read/Write Niabs Ta/Fron File 

READPS (0323B) Destination Variable List Parse 
RECADR (GF 4B7) Sone Recall Utility 

RECALL (OF281) Variable Recall 

REDUCE (15977) Parse And Execute Partial ExpresSTONS 
RELIME = (05047) = Relatave Junp Fron (01) 


RENSUB = (1A753) = Renunmber Subroutine 
REPROM = (18A1E) Repronpt for input 
RESCAN (O4A4C) Lex Analysis 

RESPTR (03172) Restare Input Pointer 
REST* (03035) Restart Lex Analyzer 


REVS {(1B38E} Reverse Characters In A String On Stack 
REVPOP = (Oa631) REVS On String And Then POP1S 

REWIND (11365} Rewind Quen File 

RFAD++  {(ORGBFE) Adiusts Refs When Men Movess-Higher Addr 
RFAD+]  (OR?G2) Aujusts Refs When Men Moves=>Higher Rudder 
RFAD-- (OR652) Adjust Refs when men moves to louer addr 
RFRO-I = (0R659} = Adjust Refs uhen nem scves to lower addr 
RFUPD+  (OR6eE} Updates a ptr when wen moves 

RIUST (12AEC) — Unfloat A Floating-Point Number 

RNO-12  (4BO1F) = Round A 12-digit Fp Nuriber 

RND12+ = =(O09D5) = Round 15-forn 

RNDRHN =©(136(B) Pops, tests, tounds,converts dec to hex 
RNONRM (OCABRI) Round a Norval Nunber 

ROMPNUD = (1102F) 00 Fand ROM f Fale thain Start 

RPLLIN  (O13F7) Replace iine an Memory File 

RPLSBH = (1799BY — Keelace Nenory File Subheacer 

RETRY (152BA) Check For Repeating Keys 

RSTRER = (O14RE Restore RSTR Levelisy Fron RSTKAF Buffer 
RS{ST (OFECR) « Reetare Status Bits 

RUNRT 4 (C7467) Strit reentry to BASIC loop; stRRGR.sENDx clred 
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RUNRTN 
SALiOC 
SAVE SB 
SAVEXM 
SAVGSB 
SBi&S 
SCAN 
SENRT 
SLOPCOR 
SCRLLR 
SE1-10 
SECHMS 
SENBZO 
SENDE L 
SEMOLY 
StADAD 
SETALM 
SETALR 
SEVEAT 
SEVSB 
SETTING 
SF LAG? 
SFLAGL 
SFLFOS 
SH LAGT 
SHE IO 
SAF LAC 
SHE RAC 
oir RAD 
SHRT 
SIGCHK 
SI6TST 
SING? 
STINTS 
SEIFOC 
SLEEP 
SNAPR* 
SNAPRS 
SNHPS¥ 
SNUWD+ 
SPACE 
SPLITA 
SPLITC 
SPLTAE 
SPLTAXK 
SQR4t5 
SQR1? 
SUR 70 
SURSRY 
SRLEAS 
oTHBI 


(O74ER) 
(01536) 
(ODG6E ) 
(O66 3) 


Fan 
= 
fs 
ow 
; wee vee 
c a 1 
. ‘ 


(O3R46 
(OD851 
(COBSF 
(OF 9bf 


) 
| ) 
(01571) 
(01587) 
(1 7E1F) 
(OADSD) 
(OC 6BF ) 

) 

) 


(O23) 
(O15EC ) 
(00309) 
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Stnt reentry to BASIC loop; sERROR cleared 
Allocate Arbitrary Save Stack Block 
Put SB into sIx 

Put XM into sxlf& SB into six 

Put SB into sINX 

15-digit subtract/add routine 

Scan LEXfile Text Table For Lexene 
Point Cursor Past Unprotected Field 
Scope check 

Scroll Left and Raght 

String Operand Found 

Convert Secs To Hours, Mins, Secs 
Send Buffer to Device via Handler 
Send Endline to Device via Handler 
Send Burfer to Device via Handler 
Send Jut Width-Sized Chunks to Device 
Set Absolute Alarm Tine 

Set Alarn Relative To Current Tine 
Set Display Format 

Set SB 

Set Systen Tineout 

Tests systen flag 

Clears systen flag 

Sets systen flag 

Toggles systen flag 

Shift to nornalize 

Double Precision Shift Left 

fouble Precision Shift Right 

Double Precision Right Shift 

Stare Into Short Variable 

Report Signaling NaN 

Handle signal NaN 

Trig: Sine of 12-dig arg 

Trig: Sine of 15-dig arg 

Shap Rest of Statement Deconpile 

Scan KB, do LSLEEP if key buffer enpty 
Restore CPU Snapshot From Any Buffer 
Restore CPU Snapshot Fron SNAPSV Buffer 
Save Snapshot of CPU in SNAPSV Buffer 
Send Qut Width-Sized Chunks to Device 
Cornpute Space Needs For An Array 
SPLIT A 

SPE ICE 

Split & normalize A&C 

Split, normalize A; handle signal NaN 
Square Root 

SQRT for finite arguments only 

Set SB according to Reg C 

SOR for Chain calculations. 

Release Arbitrary Block Fron Save Stack 
Store AB into scratch 1 
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STRBZ 
STRIRS 
STRISY 
STCD2 
STKCHR 
STKCMD 
STRVET 
STMBEL 
STMBUF 
STORE 
STRSOO 
STR$SB 
STRHSN 
STREQL 
STROEK 
STRHAR 
STRHED 
“TROP 
STRTST 
STSCR 
STUFF 
SUBONE 
SVINF 4 
SVINFO 
SVIRC 
SWPBYT 
SYNTXe 
TANT? 
TANI5 
TBLINC 
TBLI NP 
TBNSGE 
TFHDLR 
TKSCN: 
TKSCN?7 
TOOT 
TONE 
TRACOC 
TROSO 
TRFRON 
TRANTR 
TRSF Mu 
TRIQ+ 
VETTSR 
T8715 
TWot 
TstEnd 
UPCPOS 
UPDRNN 
USGchi+ 
USbch- 


rere 
(OF 6B3) 
(1BIEF) 
(0 368A) 
(OF O9R} 
(14026) 
(0379) 
(18107 


(OF R35) 
(1724) 


ORIG ) 


13229) 


(OD476) 
(ON47A) 
(O08 38 j 
{ 
(1 de? ) 
(13 
{ 


1BC15) 
(i BCOB) 
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Store AB into scratch 2 

Restore Status 

Save Status $13, S11 - SO 

Store CD into scratch 2 

Add a Character to a Stack Iten 

Pushes Statenent On Conmand STACK 
Process Array Dope Vector 

Collapse statenent buffer check 
Collapse staterent buffer check 

Store Fron Siack To Variable 

Convert Nurber to String(Generic) 
Convert Nunber to String 

String ssignnent 

Test Strings For Equality 

Valid String Expression Check 

String Header 

Generate String Head on Stack 

Parse of a Mandatory String Expression 
Test Strings For Equality 

Push 15-Forn Onto Math Scratch Stack 
Fill Menory With Stuff Or 0’s 

Subtract One 

Save/Read File Infornation 

Save,/Read File Inforration 

Save irace Information In Stnt Scratch 
Swap Bytes 

"Syntax" Parse Error Exit 

Trig: Tangent of 12-dig arg 

Trig: Tangent of 15-dig arg 

Indexed table junp 

Indexed table junp 

Find and Build Message Fron Lex Table 
Find Transform Handler 

Taken Scan 

Token Scan 

Tine To Tine-of-day And Day# 
Nachine-level Beep 

TRACE Statenent Decorpile 

Table of nuneric constants 

Trace Line Nuriber 

Process Terrainator In Expr Execute 
Transforn Utility Routine 

Generate Trace Message 

Compare numbers: 12-Digit arg’s A,C 
fonpare numbers: 15-Cigit arg’s A/B, C/D 
Double Precision Doubler 

Test iMFGSE output list for end of list 
Undate FI& Current Position 

Update Rrnunciator 

Display character during USING execution 
Nisplay character during USING execution Ce 


‘ct 
ro 
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USGrst (1BC63) Suspend USING execution, restart parse 
USING (18446) Interpret IMAGE String 

USINGp (03628) USING statenent Parse 

USloop (1C14B) Loop on IMAGE multiplier 

USnrO5 = (18012) = Execute numeric IMAGE field 

USstO3 (1BBCE) Output characters fron address in C 
USstOS (1BB04) Output characters fron address in Di 
VRLOO (1ADSF) Parse and Execute a String on Stack 
VARDC (05370) Variable Deconpile 

VARNB- (0€28D) Pop and Test Variable Nunber 

VARNBR (0£289) Pop and Test Variable Nunber 

VARP (0350E) Variable Parse 

VIEWD1 (15147) View A Buffer While Keys Doun 

VRIABL (O4BC4) Lex Analysis 

WFIMDT  (O85DD Write Flags, Tine, Date to File Header 
WIPUUT = ( 1BORF Fill Menaory With Stuff Or 0's 


WRBYTC (13873 Write Byte to an Opened File Fron € 
WRDSC+ (02026 Keyword Scan fron Table 
WRDSCN = { 


WRITNB (17528 Read/Write Nibs To/From File 

WRIFIB (11CEE Write File Infornation to FIB 

WRINUM  (139C4 Write a Nunber to DATA or SDRIA fale. 
WRISTR (1396F} Write a string to an open TEXT file 


) 
) 
) 
) 
O2C2A) Keyword Scan fron Table 
) 
) 
) 


WSTRFX (13885) Write a String to a DATA File 
XMTADR (08133) Get XWORD Main Table Address 
KXHEAD (1A44E) Renove String Header (Undo ADHEAD) 
XYEX (0697) EXCHANGE KX & Y 

YMDDAY (13304) Convert Year,nonth,day To Day# 
YMNDHO1 (130E5) Convert Tine To YYMMDD And KHMNSS 
‘YMOHNS (13008) Return Tine And Bate 


YX2-12 (00274) Y°X for 12-forn argunents 
YX2-15 (ODZ7A) Y to the X power 

ZERBUF (18820) Looks Like a Zero Length Buffer 
uRES12  (0€994) User Result 

uRESD1 (OE1EE) Variation of uRES12 

uRESNX  (OC9BD) User Result (non exceptional) 
uRESXT (OC9C1) User Result for exact results 
uURND>P = =(OCSCF) user ROUND 

ulTEST (00435) Perforn corparisons 


1.4 Supported Non-Entry Point Syrbols 


The following table lists other supported symbols which are defined 
by various nodules in the operating systen. These syribols are not 
entry points, but are externally referenced between nodules. 
Exarples include the synbolic nanes for fixed RAM locations, poll 
process nunbers, and so forth. 


It is the intent of HP to preserve the values of these supported 
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symbols through any future updates of the operating systen. 
However, HP reserves the right to adjust the values of supported 
synbols in any tanner it chooses. A file containing these syribol 
values nay be obtained by contacting the HP Portable Conputer 
Division Product Support Group at (503) 757-2000, 


Hex 
Narie Value 


ACTIVE  2F5A8 
ALRNM1 2F719 


ALRN2 2F725 
ALRM3 2F 731 
ALRN4 2F 73D 


ALRMS cf 749 
ALRN6 2F 755 
ANN1.5 = 2£104 
ANNAD1 = 2E 100 
ANNAB2 = 2£102 
ANNAD3 2E34C 
ANNAD4 =. 2E34E 
RINDIS  2F 441 
ATINFLG  2F 442 
AUTINC  2F6CB 
AVMENE  2F599 


AVMENS  2F594 
BACK 1BAAF 
BASICs  OO0B5 
BitsOK 00001 


CALSTK = 2F5AD 
CHNHSY = 2F 96F 
CHNLST = 2F SBE 
CKSUN2 = QRAB1 
CKSUN3 = 183A 
CKSUN4 = 1D BAG 
CLASSA O0D590 
CLCBFR 2F576 
CLOSTK = -2F 585 
CLRPRN 904827 
CHDPTR 2F6D4 
CMOST¥ = -0168F 
CMOSTHW §=—.2F 438 
CNTADR = 2F67E 
CONFST  2F9E6 
CR 20000 
CSPEED = 2F 97? 
CURREN = 2F 560 
CURFL 2F7E8 
CURRST = 2F 55D 
CURSOR = 2F47E 
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Clear 00005 
CurOff 00006 
DINST+  13€21 
DATPTR 2F692 
DCONTR 2E3FE 
DDICTL 2E3FF 
DDIEND 2£E34C 
DDIST 2EXO 
DD2CTL 2E2FF 
DDZEND 2E260 
DB2S 2E 200 
DO3CTL EFF 
DD3END = =2E160 
DD3ST 2£104 
DEFADR 2F967 
DELAYT  2F948 
DISINT 2470 
DISPt 00000 
DPOS 2F 94D 
DSPBFE 2F540 
DSPBFS  2F480 
DSPCHK  2F674 
DSPOGT 2F6DD 
DSPFNT  2F6DC 
DSPNSK  2F540 
DSPSET  2F7B1 
DSPSTA = 2F 475 
DVZNIB = 2F6FC 
DWIDTH  ?2F94F 
DZP 00003 
EFIELD 00000 
EOLLEN 2F95A 
EQLSTR 2F95B 
ERR# 2F7E4 
ERRADR 2F688 
ERRLH 2F7EC 
ERRLCH  2F97C 
ERRSUB = 2F 683 
ESCSTA 2F478B 


EndNun OO0E6 
Except  Q000C 
F-RO-O  2F89B 
F-RO-1 2F8A0 
F-RO-2 = 2F8A5 
F-RO-3 2F8RA 
F-R1-0  2F8AB 
F-R1-1 2F8B0 
F-R1-2  2F8B5 
F-R1-3  2F8&BA 


FIRSIC 2F4?e 
FLGREG  2F6E9 
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FNDCLR 
FORSTK 
FRange 
FUNCDO 
FUNCD1 
FUNCRO 
FUNCR1 
GSBSTK 
HPSCRH 
INADDR 
INBS 
INTA 
INTB 
INTM 
INTR4 
INTRPT 
INXNIB 
IOBFEN 
IOBF ST 
IS-DBSP 
IS-INP 
IS-PLT 
IS-PRT 
IS-TBL 
IVARG 
IVLNIB 
IVP 
TnhEOL 
Insert 
KCOLO 
KCOL1 
KCOL2 
KCOL3 
KCOL4 
KCOLS 
KCOL6 
KCOL7 
KCOL8 
KCOL9 
KCOLA 
KCOLB 
KCQLC 
KCOLD 
KEYBUF 
KEYPTR 
KEYSAV 
LASTFN 
LBLIN# 
LBCSPC 
LEEWAY 
LEXPTR 


1DAEF 
2F59E 
OB46A 
2F8BB 
2F&CO 
2F 898 
2F 8AB 
2F5A3 
2F97F 
2F 6D4 
2Fol6 
2F410 
2F420 
2F430 
2F400 
OOOOF 
ZF OFS 
2F5?76 
2F571 
2F 78D 
2F 798 
2F7R2 
2F 794 
2F 78D 
00749 
2FOFD 
00004 
00004 
00007 
2F46F 
2F46E 
2F46D 
2F46C 
2F46B 
2F46R 
2F463 
2F 468 
2F467 
2F466 
2F465 
2F464 
2F463 
2F462 
2F 444 
2F443 
2F462 
000B4 
2F 874 
2F eC 
00004 
ZF OCF 
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LOCKWD = 2F 7B2 
LOOPST = 2F 7AC 
LKTXTT «1 €E9F 
MAINEN =2F 571 
MAINST © 2F 558 
MAXCMD =. 2F 376 
MBOK* 2F7A9 
MLFFLG © 2F870 
MTHSTK = 2F 599 
NEEDSC  2F94A— 
NUNC+O 03696 
NXTIRQ  2F 700 


NoCont  QOO00E 
OFFFLG 2F442 
OKP 00000 


QNINTR 2F68D 
QUTBS 2F S8F 
OVFNIB 2F6FB 
OVE 00002 
PCADDR  2F679 
PNDALM © 2F 761 
PPOS 2F 956 
PRGOMEN  2F 567 
PROMST = 2F 562 
PRINTt 00001 
PRMCNT  2F94B 
PRMPTR = 2F 5B? 
PWIDTH  2F958 
PgnRun 0000 
RIREV 00785 
R2REV ORRE3 
R3REV 153RB 
R4REV 1DBA8 
RAMEND  2F 5B2 
RAWBFR  2F 580 
RESERV = 2F 986 
RESREG  2F 7£2 
RFNBFR = 2F 578 
RNSEED = 2F OFE 
ROMCID  OOBFE 
ROWDVR  2E360 
RSTKBF — 2F 820 
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S$-R1-3 
SAVSTK 
SCREXO 
SCREX4 
SCREX2 
SCREX3 
SCROLT 
SCRPTR 
SCRSTO 
SCRICH 
SNAP BF 
STATAR 
STNTDO 
STNTD1 
STNMTRO 
STNTR1 
STSAVE 
SYSEN 
SYSFLG 
Savivl 
SetAVA 
TASTK 
TERCHR 
TFORN 
TGSBS 
TINAF 
TIMER? 
TIMER2 
TIMERS 
TINLAF 
TINLST 
TINOFS 
TNRALM 
TNRAD? 
TMRAD3 
TMRIN 
TMRIN2 
TMRIN3 
TRACEM 
TRFNBF 
TRKDON 
TRPREG 
Trace 
UNFNIB 
UNP 
UPDIEN 
UPDIST 
UPDZEN 
UPL2ST 
VALCHK 
VECTOR 


2F 890 
2F59E 
2F 941 
2F 951 
2F 961 
2F 974 
2F 946 
2F 966 
2F 901 
2F901 
2F 7FO 
2F 7AD 
2F 891 
2F 896 
2F 3871 
2F 881 
2F 6BE 
2F 58A 
2F ob9 
00005 
1B9FA 
2F 599 
2F 97D 
2F59E 
2F5A3 
2F 787 
2£ 3F8 
2E2F8 
2E1F8 
2F77B 
oF 7OF 
cF 763 
2F 697 
2F 69 
2F 6R1 
2F 6R6 
2F GRE 
2F 6B6 
2F 7BO 
2F 8S 
ICFAC 
2F oF 9 


2F OFA 
00001 
2F 599 
2F 55D 
2F eRO 
2F 674 
1AC61 
2F 430 
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ValSub OQ00R 
WINDLN © 2F473 
WINDST  2F 471 
XDelay 00009 


XROMO1 = 00001 
a! 00021 
a" 00022 
a$ 00024 
a’ 00027 
a. 0002E 
20 00030 
al 60031 
a2 00032 
a3 00033 
a4 00034 
a5 00035 
a6 00036 
a? 00037 
a& 00038 
a9 00033 


bALTCH  OOBFB 
bASSGN 00804 
bCARD 00807 
bCHARS  OOBFB 
bECOMD 00809 
bFBFHE OOBCF 
bFBFHS OOBRO 
bFIB 00803 
bFILE 00805 
bFLIO1 O080R 
bFLIO2 00808 
bFLIO3 0080C 
bFLIO4  0080D 
bFLIOS  O080E 
bIEXKY 00802 
bLEX OOBFC 
bPILAI 00810 
bPILSY 0080F 
bRONTB  OOBFE 
bSCRIC OO0E0O 
bSTART 00808 
bSTAT 06806 


bSTNT 00801 
bBSTMXQ 00811 
eC->0 00068 
cR- oC 00069 
cREL 00067 
dCARD 0000? 
dIRAN 00001 
anAIN 00000 
dPCRD 00007 
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dPORT 
eHof# 
e0% 
e0*NEG 
ei Inf 
e2MRON 
eAF 
eRLGN 
eCALGN 
eCHNLH 
eDATTY 
eDVCNF 
efOFIL 
eEXCHR 
eEXPO 
eEXFCT 
eF 2BIG 
ef ACCS 
eFEXST 
ef ILE 
eFNNtF 
eF OPEN 
eF PROT 
oF SPEC 
eF TYPE 
eFnFND 
eF WONX 
eIF*ZR 
elF-IF 
elF/IF 
ei CNT 
eILEXP 
eILKEY 
eILLEG 
eILPAR 
eILTFn 
eILVRR 
eINGOVv 
e INF 
eINF © 
e INPUT 
eINVIN 
eINVLD 
eINVST 
eINVUS 
eINy 
eIVARG 
eIVSAR 
eIVSOP 
eI¥STA 
elIVTAB 


00001 
OOOF 7 
00006 
00005 
00011 
0601A 
00018 
OOOFO 
00060 
00029 
0001 F 
00040 
00036 
QOO4E 
00003 
OOOE 7 
004A 
0003C 
00038 
OOOER 
00021 
OOO3E 
000 3D 
00038 
0003F 
00039 
002A 
00010 
OOOOF 
QOOOE 
Q004F 
00050 
00055 
OOOE 6 
00051 
06037 
00053 
0002F 
OOOF 3 
00012 
OOOF 4 
6002D 
QOOEL 
OOOED 
OO002E 
00015 
0000B 
00033 
00035 
00034 
00030 
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eL2LNG 00041 
eLNO 0000C 
eLOBAT 00016 
eLOG- 00000 
eMen 00018 
eMNCGR 00017 
eMPl 00019 
eMSPAR 00052 
eNEG°X 00009 
eNFOUN OO0OE8 
eNOBDAT 00020 
eNOTIN 00043 
eNSVAR 00033 
eNUMIN 00026 
eNVSTA 00033 
eNXwoF 00028 
eOVFL*  OO0FS 
eQVFLH 00002 
ePRLGN OOOSE 
ePLLC 0005A 
ePil(# 00059 
ePRCER 00054 
ePRMIS 00024 
ePRNEX O004C 
ePROTD § 00042 
ePRTICT OO0F8 
ePULL OOOF 6 
eQUOEX  0004D 
eROWRN 00056 
eRTWRN 00057 
eRALSN 00050) 
eRECOR 00010 
eRNWERR 00046 
eRuoGS  0002C 
eSIGOP 00013 
eSPGNF 00031 
eSQR- COOOAR 
eSTMNF OO01E 
eSTREV 00025 
eSUBSC O001C 
eSYNTX 00048 


eSYSER 00017 
elFFLD 00038 


elFrt OOOF 1 
eTFWRN 00058 
eININF 00004 
eTnd OOOEF 
elQ0FI 00028 
elO0MI 00027 
eTRKDN 00061 


eTRKOF  OO0E5 
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eTuUFAS 00047 
elUSLG 00048 
eURLGN  OO05F 
eUNFLW = 00001 
eUNKCD 00045 


eUNORE 00014 
eVHLGN 0005C 
eVARTY 00032 


eVFYER 00044 
eWALGN 00058 
eWRGNM 00049 
eXFNNF 00022 
eXWORD 00023 
eZROIV 00008 
eZR0/O 00007 
enull 00000 
eu/o QOOEB 
FACS OOODF 
FASCII 00001 
fFBASIC O€214 
fBIN QE 204 
FDATA OEOFO 
FEQF OOOFF 
fEOR OOOEF 
fEOS OO006F 
fKEY OE 20C 
FLEX OE 208 
fLIF1 00001 
fMOS 0007F 
FSDATA OFODO 
FSOS OOOCF 
FTEXT 00001 
FIAL FFFC? 


fFIRLRA  FFFC4 
f1BASE  FFFFO 
f BRT FFFC3 
FIBEEP  FFFFE 
fFIBPLD FFFE? 
fICRLC = FFFCO 
fFICLOC = -FFFD3 
fFICMDS  FFFDI 
fiCTON FFFFD 
FICTRL = FFFDO 
FLDW FFFEF 
f10G1 FFFEE 
f .DG2 FFFED 
f1D63 FFFEC 
fIDORN FFFDS 
f1DVZ FFFFS 
f1EOT FFFES 
flEXAC = FFFD2 
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flEXTD  FFFEA 
flFXEN  FFFF3 
flINFR  FFFFS 
f LINK FFFFC 
flIVL FFFF8 
fILC FFFF1 
fIMKOF = FFFCE 
fINEGR FFFF4 
flNOFN FFFD6 
fINOPR  FFFE6 
f N24 FFFE8 
f1NZ5 FFFCB 
f1NZ6 FFFCA 
f N27 FFFC9 
f1N28 FFFC8 
f 1OVF FFFFA 
fFIPDUN = FFFEB 
f1PRGN = FFFC2 
fIPWDN  FFFCF 
fFlQIET  FFFFF 
f1RAD FFFF6 
f1RPTD =FFFCS 
- f£1RTN FFFD4 
FISCEN FFFF2 
f1SUSP  FFFC4 
flINOF FFFCD 
f LUNF FFFFB 
flUSER = FFFF? 
flUSRX = FFFC6 
FIVIEW  FFFCC 


k#-CHR 00068 
KH-LIN 00068 
k# 1 00027 
k#2 00028 
k#3 00029 
kKRATTIN 00028 
kKRBKSP 3 =00067 
k#BOT 000A 3 
KRCRLC 3=— OOO FF 
kKHCONT 00070 
KHCTRL O009E 
kKHDOWN 00033 


kAEOL 00026 
KHFLFT O009F 


kAFRT OOORD 
kHGON 0009B 
kHI/R 00069 
kKHLAST O00R4 
k#LC 0006R 
kKHLERR OOOA1 


kALFT 0002F 
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kHOFF 
k#RT 
k#RUN 
k#SST 
k#TOP 
kHUP 
kHUSER 
kHUSEX 
kKAVIEW 
kce-CHR 
kce-LIN 
kcRTIN 
kcBKSP 
kcBOT 
ke CALC 
kcCONT 
keC TRE 
kc DOWN 
kcEQL 
kcF LFT 
kcFRT 
kcGON 
kcI/R 
keLAST 
keLC 
kcLERR 
kcLFT 
kc OFF 
kcRT 
kcRUN 
kcSST 
kc TOP 
kcUP 
kcUSER 
kcUSEX 
keVIEW 
IACCSb 
lAp 
1BPOSp 
1COPYb 
ICPOQSb 
1DOp 
1Dip 
IDATEh 
1DBEGh 
IDEVC 
IDEVCb 
1DLENb 
1p 
TEQL 
lf BEGb 


00063 
00030 
0002E 
00066 
O00R2 
00032 
0006D 
00OR5 
QOO6E 
00000 
00004 
OOOOE 
00007 
00015 
00017 
00010 
0000A 
060013 
00001 
00005 
00006 
00016 
00002 
00019 
00001 
0001A 
00008 
00018 
00003 
OOOO F 
00011 
00014 
00012 
00003 
0000C 
0000B 
00001 
00010 
00005 
00001 
00006 
00005 
00005 
00006 
00008 
00005 
00001 
00006 
00010 
00002 
00006 
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lFBFHb 00003 
1FIB 000 3F 
IFILHb 00002 
1FILBF 00100 
1FILSV 00032 
1FLAGh 00002 
1FLENn =00005 
1FNAN+ 00004 
1FNAME 00010 
1FNANR 0010 
1FSIZb §=6.00006 
1LFTYPb 00004 
1FIYPh 00004 
ILXADR 90005 
iLXENT O000B 
ILXFAD 00005 
ILXID 06002 
1LLXTKR 90004 
INSGp 00004 
1POLRp 00005 
1POLLp 00005 
IPOLSV 0003E 
1POLra 00006 
IPROTb 00001 
1IRECHb 00004 
TRECLbD 00004 
IRLENb 00005 
IRTNip 00005 
IRTN2@p 90005 
IRTN3p = 00005 
ISHLNb 00002 
ISPDTB  OO04E 
1SPDn 00001 
1SPOn2 00001 
1TEXTp 00004 
LTIMNEh 60004 
o4isod 0005 
oACCSb 00008 
oAp 0003E 
oBNsod 00011 
oBPOSp 00005 
oBSsod 0011 
oCOPYb O000R 
oCPOSb = 00028 
oDOp 00019 
oDip OOOTE 
oDATEH QOOTR 
oDAsod 00000 
oDBEGb 00015 
oDEV(b d000dc 
oDLENb  002E 
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aDp 

oF BEGb 
of BF #b 
oF IL#b 
oF LAGh 
oF LENh 
oF LSTr 
oF NAN 
oF SIZb 
oF T-FL 
oF TYPb 
oF TYPh 
oINPLh 
okYsod 
oLxXsod 
oMfRINT 
oNSGPT 
oPOLHp 
oPROTL 
oRECHD 
oRECLb 
oRLENG 
oRINIp 
oRTNZp 
oRTN3p 
oSHLNb 
oSPDTB 
oSPDne2 
oSUBLn 
olINEh 
otxsad 
pBSCen 
pBSCex 
pCALRS 
pCALSV 
pCAT 
pcAatT$ 
pCLDST 
pCMPLy 
pCONFG 
pCOPYx 
pCRDAB 
pCREAT 
pCRT=8 
pCURSR 
pDATLN 
pDEVCp 
pDIDST 
pOSURY 
pOSWNK 
pEbIT 


0002E 
0000D 
00002 
00000 
00014 
00020 
00031 
00000 
00039 
00010 
00005 
00010 
00025 
00005 
00005 
00050 
00009 
Q000R 
00009 
00020 
90024 
000 34 
0OO0R 
QOOOF 
00014 
00013 
00111 
QOO0E 
00025 
00016 
00005 
OOOFS 
OOOF 6 
000 36 
00037 
00006 
00007 
OOOFF 
00038 
OOOFB 
00008 
0033 
00009 
00023 
00023 

2A 
00001 
000A 
OOOF D 
OOUFE 
00026 
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pENTER O0012 
pEOFIL 00025 
pERROR  OO0F2 
pExcpt  OO0F8 
pFASCH 0002C 
pFILBC 00002 
pFILXQ 00003 
pFINDF 00017 
pFNIN 000 3D 
pFNOUT  0003E 
pFPROT 00008 
pFSPLp 00004 
pFSPCx 00005 
pFTYPE  0002D 
pINCHR OO01E 
pINXCH  OOO01F 
pINxQT 00012 


pIMbck 00020 
pincp, 00021 
pIMcpy 00022 


pkYDF 0001B 
plist 0000 
plIST2  O002E 
pnen OOOF 1 


pMERGE  0000D 
pnntP OOOF A 
pMRGE2  O002F 
pPARSE  O00F4 
pPRGPR 00032 
pPRIN# 00026 
pPRTICL OOOOE 
pPRTIS OQO00F 
pPURGE 00010 
pPHROF  OOOFC 
pRCRD 00034 
pRDCBF 00018 
pRONBF 00019 
pREADH 00027 
pREN 00039 
pRNANE 00011 
pRTINTp 0003R 
pRUNFt 60030 
pRUNnB = =00031 
pSRECH 00028 
psREQ OOOF 9 
pTEST OOOFO 
pliniR# 00038 


pIRANS  OOOEF 
pIRFMx  0003C 
pVER$ 00000 
pHARN —- QO0F3 
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puCRD 
puCRDS 
puRCBF 
plTKY 
pZERPG 
sRRITH 
sBYEx 
sC/P 
sCARD 
sCARDC 
sCHAIN 
sCONT 
sCONTK 
sCURRT 
sCURUD 
sCURUP 
sCntg 
sCplxP 
sDEST 
sENDx 
sEOF 
sERROR 
sEXTDV 
sEXTCS 
sF OUND 
sGOSUB 
$1/OBF 
SINFRD 
SINX 
sIRAN 
sIk 
sInit 
sKEYS 
sMAINc 
sMULT 
SNEGRD 
sNoChn 
sONERR 
sONTMR 
sPCRD 
sPRGCF 
sRAN 
sRDX 
sREADI 
sRENAM 
sRENUN 
SRESTR 
sRETRN 
SRFILE 
SRUNBn 
sRUNDC 


00035 
00024 
0001A 
0001C 
OOOF? 
0000? 
00000 
00001 
00002 
00008 
Q000B 
OOOOR 
00003 
0000 3 
00004 
00002 
00002 
0000 ? 
0000 3 
00001 
00007 
00000 
00000 
00005 
O00OR 
00003 
QO00R 
O000R 
00005 
00002 
00007 
0000 3 
00005 
00005 
00008 
0000B 
00002 
00004 
00006 
00008 
0000B 
00009 
0000B 
00004 
00006 
00008 
0O00R 
00000 
00008 
00004 
00007 
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sSIGN 00009 
_sSST 00002 
sSSTde 00001 
sSTAT 00006 
sSTOP 00005 
sSpecl 00006 
sUNDEF 00001 
sXCPT 00004 
sXQT 00000 
sXWORD 00009 
t! OOOFC 
1% 00085 
t8 00089 
* 00083 
t+ 00087 
t- 00082 
t/ 00084 
t@ OOOF4 
tABS OOOR2 
tACOS 0009A 
tRADD 000D5 
tADIGO 00060 
tADIG1 00061 
tADIG2 00062 
tADIG3 90063 
tADIG4 00064 
tADIGS 00065 
tADIGE 00066 
tADIG7? 00067 
tADIG8 00068 
tADIGY 00069 
tALL OOOF8 
tAND 0008B 
tANGLE 601B3 
tRRRAY 00070 
tASIN 00099 
tRTAN 0009B 
tAUTO OOOEE 
tBRSE QOOES 
tBEEP OOOES 
tBIG 00010 
tCALL OOOF 9 
tCRRD 000D0 
tCAT OOOEC 
tCEIL 00072 
tCFLAG  OOOFR 
tCHRS OOOA4 
tCLOCK SOVEF 
tCNPLX 0007A— 
tCOLON ODE? 


tCOMMA = OO0F 1 
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tCOPY 
tCOS 
tCVAL 
tBATA 
tDATE 
tDATES 
tDEF 
tBEG 
tDEGRE 
tDELAY 
tDELET 
tD1N 
tDISP 
tOIV 
tOMYAR 
tDSTRY 
tDVZ 
tEDIT 
tELSE 
tEND 
tENDDF 
tENDSB 
tENTER 
tEOL 
TERPS 
tERRL 
tERRN 
tERROR 
tEXOR 
tEXP 
tEXTIF 
tEXTND 
tFACT 
tFETCH 
tFFN 
tF LOW 
tFLT1 
tFLT10 
tFLT11 
tFLT12 
tFLTe 
tFLT3 
tFLT4 
TELTS 
tFLT6 
tFLT? 
tFLT8 
tFLT9 
tFN 
tFOR 
tFP 


00085 
00097 
OOOE1 
000T6 
00077 
00078 
00069 
000 6F 
000D3 
00006 
000B7 
oOOocc 
000C5 
00086 
000 7E 
OOOBE 
000B1 
OOOBE 
OOOFS 
OOODRA 
QOOBA 
000C2 
4FFEF 
OOOFO 
00071 
00075 
00076 
Q00E3 
0008C 
00094 
QOOF 4 
BO1EF 
O0OR8 
00OC8 
000B4 
9O1EF 
00010 
00014 
00013 
00012 
00010 
00018 
0001A 
00019 
00018 
00017 
00016 
00015 
00070 
00003 
000oB 
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tbOSUB ooonl 
tG0TO 000DD 
tIF OOODF 
tIMAGE OOOFF 
tIN QOOF 2 
tINF 000 70 
tINPUT  000C9 
tINT 0009C 
tINTIO «00004 
tINT11 00003 
tINT12 00002 
tINT2 00000 
tINT3 0000B 
tINT4 0000R 
tINTS 00009 
tINT6 00008 
tINT? 00007 
tINT8 00006 
tINTS 00005 
tINTEG OOOCA 


tINTO EOVEF 
tINTR O1SFF 


tINX 000B2 
tIP 0006R 
tIS OOOE7 
tISUB$ 000AR7 
tIVL OOORE 
tKEY OOOES 
tKEY$ 00073 
tKEYS OOOCF 
tLBLRF  OO000E 
tLBLST O00F6 
tLEN OOORI 
tLET 000CO 
tLINE# OOOOF 
tLINPT OOOBF 
tLIST GOOBB 
tLITRL 0004 
tLN 00091 
tLOG 00030 
tLO0G10 00093 
tLPRP OOORA 
tLR 000B6 
tMAIN 0OOD2 
tMATH 601EF 
thAX QOORD 
tMAXRL  0006C 
tMERN 0003D 
tMIN OOOAT 
tnoD 00074 


tNANE 000BD 
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tNEAR 
tNEG 
tNEXT 
tNOT 
tNUM 
tOFF 
tON 
tOPT?N 
tOR 
tOVF 
tPAUSE 
tPCRD 
tPI 
tPORT 
tPO$ 
tPREDV 
tPRINT 
tPRMEN 
tPRNST 
tPURGE 
tRAD 
tRDIRN 
tRERD 
tREAL 
tRELOP 
tREN 
tRES 
tRESTR 
tRETRN 
tRFILE 
TRAD 
tRND 
tROUND 
tRUN 
tSDEV 
tSENIC 
tSFLAG 
tSON 
tSHORT 
tSIN 
tSMALL 
tSQR 
tSTRT 
tSTEP 
tSTOP 
tSTR$ 
tSUB 
tSVAR 
tTAB 
tTRN 
tTHEN 


CO1EF 
DOTEF 
000C4 
00081 
000R3 
OOOE 1 
QOOEO 
QOOED 
0008D 
QOORF 
00007 
EOIEF 
00079 
00001 
20183 
0009F 
000CD 
OOOF 8 
OOOF 3 
OOOEB 
0OObE 
000D4 
000C? 
00OBC 
0008A 
OOOEG 
0007F 
OOODE 
000DB 
OOODE 
0006D 
00OARO 
COIEF 
OOOFE 
0003E 
QOOF 2 
OOOF B 
OOOR 1 
OOOCB 
00096 
00011 
00092 
OOOCE 
OOOF 6 
O0OOD9 
0OOR6 
00001 
00020 
OOOF 7 
00038 
OOOF 4 





HP-71 Softuare IDS 
Introduction 


- 


Entry Point and Poll Interfaces 


tTIME 
tTINE$ 
tTINER 
tT0 
tTRACE 
tUNF 
tUPRCS$ 
tUSER 
tUSING 
tVAL 
tVARS 
tUAIT 
tXFN 
tXWORD 
tZ 
tZERG 
t* 
uALit 
uCPLXC 
uDELIN 
uHKB* 
uINXCH 
ulMbck 
ulNend 
ulMsta 
uJMPdl 
uJMPst 
uJNP{} 
uLGOPB 
ul OOPP 
uLOOPS 
uMODES 
uNULT 
uNUNEn 
uNUMEs 
UNUNF n 
uNUNFs 
uNUMNn 
uNUINs 
uGPNM- 
uOPNNN 
uOPNWN 
uRESTP 
uSTRPT 
xANGLE 
xCLOCK 
xEXTND 
xF LOW 
x INTO 
xMATH 
xNEAR 


00076 
00095 
QO0E4 
0OOF 3 
OQOOER 
00080 
000RB 
OOOE? 
OOOF D 
000A5 
BOTEF 
000D8 
000B3 
OOOEF 
0005A 
COEF 
00080 
OOOF7 
OOOEE 
OOOF 4 
OOOF 6 
00004 
000DC 
QOOFO 
OOODE 
000DB 
OOODR 
GO0D9 
00002 
QOOEF 
000D3 
OBDBI 
000D1 
OOOFC 
OOOF D 
OOOFA 
QOOFB 
OOOF 8 
OOOF9 
OOODF 
00008 
OODEO 
QOOOF 1 
000D0 
00006 
00015 
00026 
00023 
0002E 
00036 
0003C 
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xNEG 000 3D 
xPCRD 9003E 
xPOS 00042 
xROUND  Q004C 
xVARS 00058 
xZERO 00010 
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| | 
{| ADDCAL - Address Calculation Utilities CHAPTER 2 | 
| | 


oe me eee 
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2.1 XNTADR - Get XWORD Nain Table Address 


Category: ADDCAL File: JP&EXC::MS 


Nane:(°) XMTABR - Get XWORD Main Table Address 


Purpose: 
Find & Read XWORD MAINT Address 


LEX ID 
Entry # 


2D 
i 
Nn 
w 
~~ 

moo 


Exit: 
Carry clear 
C = MAINT address for XWORD 
B(A)= Relative Entry # for LEX ID with B(2-4) = 0 
A(B)= Actual Entry # 


Carry set 
LEX ID not found 


D1 preserved 
Calls: LXFND, RANGE 
Exclusive: AC(R),B(R),C(R),R1 
Ri = Preserved D1, RSTK holds LEX ID, Entry# 
Inclusive: A(R),B(A),C(A),R1 
Stk lvls: 4 
Algorithri: 
Find Main Table Address for ROM ID 
Save LEX ID, Entry# (B) 


cn 
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Save D1 (R1) 
Find LEX Table Buffer ( LXFND) 
If Buffer not found --> goto 1 (return, carry set) 
Save LEX ID, Entry# (RSTK) 
Repeat until (LEX 1D = 0) 
Read LEX ID in table 
If IDs match 
Pop Lex ID, Entry # off stack 
If Entry# within Range for LEX ID (RANGE ) 
Shift Entry# to B(B), Zero B(XS) field 
Conpute Relative entry # 
Read Nain Table address --> C 
Restore D1 
RTNCC 
Restore LEX 1D, Entry# to B(A) 
Skip to next entry 
0: Pop LEX If, Entry # of f stack 
1: Restore Dt 
RTNSC (not found) 


History: 
Date Progranner Modification 
07/04/82 JP Modified docunentation 
11/01/82 JP Interfaced to New Lex File forrat 
03/28/83 JP Save LexID, Entry # on Stack 
04/28/83 JP Restore Entry# to A(B) 


2.2 MTADDR - Calc Main Table Address for Token 


Category: RDOCAL File: JP&EKC:2MS 


Nane:(S) NTADDR - Calc Nain Table Address for Token 
Nane:(S) STADR+ - Calc Main Table Address for Token 


Purpose: 
Calculates address of Nain Table entry for token 


Entry: 
NTADDR: A(B) = Token to be looked up 


csc 
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Loads C with Mainfrane MAINT 


MTADR+: B(A) 
((A) 


Token to be looked up 
Main table address 


non 


Exit: 
01 contains main table entry address for token 
C(A) contains value of 01 at tine of call 
Calls: None 
Exclusive: B(B),C(A), ACA), D1 
Inclusive: B(B),C(A), ACA), D1 
Stk lvls: 0 


Detail: 
fultiplies token nunber by length of Nain Table entry 


History: 
Date Progranner Modification 
07/04/82 JP Modified docurentation 


2.3. EXCAOR - Compute Exec Addr of Token 
Category: ADDCAL File: JP&EXC:: M5 


Nare: EXCADR - Corpute Exec Addr of Token 
Nane:(S) EXCAD+ - Compute Exec Addr of Token 


Purpose: Return Execution Address of Command Token, 
preserving DO,D1 


Entry: EXCADR: ACB) = Connand token 
Assuries MAIN Table in MNainfrare 
EXCAD+: ACB) = Cornmand token 
C(A) = Main Table + 3 of XROM 


“uot 
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Position @ Execution Address field 
Exit: C(R) = Execution Address for token 
Calls: None 
Stk lvls: 0 
Uses: ACA), C(R) 


Detail: Preserves DO 
Address = Token * 9 + Main Table Adjustnent 


History: 
Date Prograrmer Modification 
07/06/82 JP Modified docunentation 
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| | 
| BUFUTL - Systen Buffer Utilities CHAPTER 3 | 


| 


Bm ee en rrr nnn 


-——— + 


ee ees + 


3.1. IOFSCR - 1/0 Find for Available Scratch Buffer 
Category: BUFUTL File: SC&FIL: MS 


Nane:(S) IOFSCR - I/0 Find for Available Scratch Buffer 


Purpose: 
Returns available scratch buffer ID 


Entry: 
Pp = 0 
| Exit: 
| Pp = 0 
Carry clear => Available Buffer ID in C(x) 
set => No available scratch buffers 
C(X}=000 


Calls: I/OFND 


A, CCA), D1 
Stk lvls: : 


Detail: 
Scratch buffer ID’s range fron E0O (bSCRIC) to FFF 


History: 
Modification 


02/08/83 = S.W. Added docunentation 
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3.2  I/OFND 


- J/0 Buffer Find 


Category: BUFUTL File: SC&FIL::MS 


Nanie:(S) I/OFND - I/O Buffer Find 
Nane:(S) IOFNDO - I/0 Buffer Find 


Purpose: 


Entry: 


Find the specified I/0 buffer 
IOFNDO looks for the buffer ID specified in C(X). 


I/OFND sets the high bit of the buffer ID 
specified in C(X), then looks for that buffer. 
(Buffer IDs with the high bit clear are those 
which will be deallocated at the next conf igura- 
tion). 


C(X)= Buffer IDH 


Exit: C(X)= Buffer ID# 


Calls: 


Uses: 


Carry set=> Match found 
D1 points past buffer header 
ACA) Buffer length field 
C(S)=#addresses to update in buffer 
Carry clr=> No match 


none 


R, C(A), C(S), 01 


Stack lvls: 0 


Detail: 


History: 


07/04/82 
02/10/83 
03/10/83 
03/14/83 


Buffer length field in header reflects the anount 
of available scratch space in that buffer, but is 
not the entire length of the buffer (eg doesn’t 
include 7? nibbles for the header) 


Prograrmer Modifications 


S.W. Added docunentation 

S.W. Added 1 nibble to header front 
S.W Save Leeway setting in B(S) 
n.8 Packed 3 nibs in I/OFN+ 


ge 


(A 
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3.3 I/ORES - I/0 Buffer Restore 
Category: BUFUTL File: SC&FIL:: MS 


Narie:(S) I/ORES - 1/0 Buffer Restore 

Purpose: Sets high bit of buffer ID to preserve buffer 

Entry: C(x) IS BUF ID# 

Exit: CARRY SET=> BUFFER FOUND AND HIGH BIT OF ID# SET. 
D1 POINTS PAST HEADER. 
C(X) IS ID# WITH HIGH BIT SET. 

CARRY CLR=> BUFFER NOT FOUND. 
Calls: I/OFND 
Uses: A, C, D1 


Stack lvls: 1 


History: 
Date Progranner Modifications 
07/04/82 S.M. Added docunentation 


3.4 I/OCON - I/0 Buffer Contract Fron Buffer End 


Category: BUFUTL File: SC&FIL::MS 


33 
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Narie:(S) I/OCON - I/0 Buffer Contract Fron Buffer End 
Narie: IOCNDO - I/O Buffer Contract Fron Buffer Middle 


Purpose: 
Contract an I/O buffer. 


I/OCON contracts the buffer fron its end, losing data 
stored at the end of the buffer. 


IOCNDO contracts a specified section of the buffer. 


= Buffer nunber 
B(R) = Anount to shrink existing buffer 
AR positive number - not to exceed OOFFF 
2 entry points: 
1) I/QCON - No additional requirenents 
2) IGCNDO - DO points to the beginning of the 
block that 15 te be deleted. 


Exit: 
Carry clear=> Buffer not found 
set=> Buffer contracted specified anount 
D1 points past buffer header 
DO points 1 nibble past front of header 
(at buffer ID) 
P=0 


Calls: I/OFND, IDLNSV, NOVEMNU, PTRADI 
Exclusive: A-D, DO, D1 
Inclusive: A-D, DO, D1 
Stk lvls: 3 
Detail: 


If amount to contract given in B(A) 1s greater than 
the current buffer size, the buffer is collapsed. 


See 1/0COL 
History: 
Date Progranner Modifscation 
07/04/82 SM Added docunentation = 
09/13/83 S.U. Modified doc. to show stk lvls=3 
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3.5 IJ/OCOL - I/0 Buffer Collapse 


Category: BUFUTL File: SC&FIL:: MS 


Nane:(S) I/OCOL - I/0 Buffer Collapse 


Purpose: 
Collapses specified I/0 Buffer - 
Leaves header intact, but shrinks length to zero 


Entry: 
C(X) = Buffer ID# 


Exit: 
Carry clear=> Buffer not found; Created w/zero length 
set=> Buffer collapsed 
D1 past buffer header 
P=0 
DO 1 nibble past buffer header 
(at buffer ID) 


Calls: I/OFND, MOVENU, PTRADIJ 


Inclusive: A-D, BO, D1 
Stk lvls: 2 


Detail: It 1s assumed that 1/OCOL will only be called 
on existing buffers; if the buffer doesn’t 
exist, & mibbles of user RAM will be utilized 
for the header w/o the leeway meriory check. 


History: 
Date Progranner Modification 
07/04/82 S_U. Added docurentation 
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3.6 I/ORLL - I/0 Buffer Allocate 


Category: BUFUTL File: SC&FIL::MS 


{ORLL - I/O Buffer Aliocate 
/OAL+ - I/O Buffer Allocate 


Nane: ( 
Nane: ( 


bh bee 


S) 
S) 
Purpose: Allocates space for I/0 buffer specified. 

If it already exists, will expand or contract to 
conform to size specified. If it doesn’t exist, 
will create it. 


Entry: C(X)=ID# 
B(A)= Desired buffer size (not to exceed FFF) 


I/OALL: Assunes P=0 
Guarantess Leeway added in Men Check 
I/ORL+: Sets P=1, quarantess NO Leeway in Men Ck 


Exit: CARRY SET => BUFFER ALLOCATED 
D1 points past buffer header 
DO 1 nib past buffer header front 
(at buffer ID) 
P=0 
B(A) = buf size if just created, 
else net change in size 

C(6-0) contains buf header info: ‘ 
C(O) #addresses to update 
C(1-3) Buf 10 
C(4-6) Buf length 


If Buffer already exists and expands 


to a larger size: 
R=D1 (past buffer header) 
D(A) points to point of expansion 
Buffer expanded fron botton 


CLR => NO ROOM 
C(4) = Error Nunber (eMEN) 
P=0 
Calls: I/OGFND, MOVEND, NENCL+, MOVEMNU, IDLNSV 


Uses: R, B, C, D, DI, BO 
C(S) used tc save Leeway setting for MENCL+ 
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03/1 


Nane: 
Nane: 


Exit: 
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Stack lvls: 2 


3 - existing buffer decreases in size 


History: 
Date Progranner Modifications 
07/04/82  S.W. Added docunentation 
09/12/82 J.P. MENCL+ interface, entries 
10/12/82 S.W Elininated I/QAL1 & I/ORL2 


entry points. Changed I/OALL 
entry point to ASSUME P clear 
3/83, SW. Modified stack level doc. 


3.7 I/OEXP ~ I/0 Buffer Expand 


Category: BUFUTL File: SC&FIL::MS 


(S) I/OEXP - I/0 Buffer Expand 
(S) I/0EX2 - I/0 Buffer Expand 


Purpose: 


Expand I/0 buffer fron high wenory by the anount 
specified. 


I/OEXP guarantees that the nenory check is done 
including consideration for leeway. 


I/OEX2 does the menory check without regard to leenay. 


Entry: 


C(X)= Buffer ID# 

B(A)= Rriount to expand buffer (1n nibs) 
Not to exceed OOFFF 

2 Entry points: 

1) I/OEXP - P=0 

2) I/QEX2 - No additional requirenents 


Carry clear=> Buffer not found 
OR No room 
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OR Buffer size requested too big 
set=> Buffer expanded 
P=0 
D1 points past buffer header 
DO points 1 nibble past buf header 
(at buffer ID) 
A(A)=D(A)= Point of expansion 
(Old buffer end for I/OEXP) 


Calls: I/OFND, IDLNSV, MEMCL+, MOVEND 
Uses: A-D, DI, DO 
C(S) saves Leeway setting for MEMCL+ 

Stk lvls: 2 
History: 

Date Progrannmer Modification 
07/04/82 SLU. Added docunentation 
03/12/82 J.P, Added Leeway Check entries 


3.8 I/ODAL - I/0 Buffer Deallocate 
Category: BUFUTL File: SCA&FIL:: AS 


Nane:(S) I/ODAL - I/0 Buffer Deallocate 

Purpose: Deallocates an I/0 Buffer 

Entry: C(X)=BUF ID# 

Exit: CARRY SET=> BUFFER DEALLOCATED 
CLR=> BUFFER NOT FOUND 

Calls: I/GFND, MQVEMU, PTRADI 


Uses: R, 8, C, D1, 
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Stack lvls: 2 


History: 
Date Prograrmer Modifications 
07/04/82 = S.W. Added docurnentation. Modified 
code to return with carry set if 
buffer deallocated. 
3.9  LXFND - Set D1 to LEX Table I/0 Buffer 


Category: BUFUTL File: TI&ERD::MS 


Nane:(S) LXFND - Set D1 to LEX Table 1/0 Buffer 


Purpose: 
Set Di to LEX table 1/0 buffer. 


Entry: 

no necessary conditions. 
Exit: 

P = 0 


Carry set: buffer found. 
A(A)= buffer length 
D1 points past buffer header. 
C(S)=Haddresses to update in buffer (7?=0) 
Carry clear: buffer not found. 


Calls: I/OFND 
Uses....... 
Exclusive: C(X), P 


C(x), 
Inclusive: A,C(A),C(S),B1 
Stk lvls: 9 


History: 
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01/05/83 NB 


Nodification 


Docunentation 


ix 


HP-71 Softuare 19S - Entry Point and Poll Interfaces 
Systen Configuration Utiltizes 


fon nnn ne nnn nn nnn ne nn nn ne nn nn nen nn nnn ten crn err ne serene + 
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4.1 ISRAM? - Pointing At RAN? 


Category: CONFIG File: MN&CNF::MS 


Narie:(S) ISRAN? ~- Pointing At RAN? 


Purpose: 
Determine whether an address is in RAM or soriething 
else. This was put in to save writing to non-RAN 
devices, which for ROMs does no harn but for EEPROMs 
does plenty of harn. 


Entry: 
Address to check in C{A]. 


Exit: 
P=0, 
Carry set if address is in system RAN or IRAN. 
Address passed 1s now in B[A]. 


Calls: CNFFND, MSIZ++ 
USES ica 
A,B[A),C,01. 
Stk lvls: 1 
History: 
Date Prograrner Modification 


12/09/82 NM Wrote. 
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4.2 CONF - Configure Everything 
Category: CONFIG File: MNSCNF::MS 


Narie:(S) CONF - Configure Everything 

Purpose: 
To configure all soft-configurable devices on the 
systen bus. 

Entry: 


CONF: SO=0 1f requesting a power-up configuration 
(preserve integrity of systen), 
1 af requesting a coldstart configuration (reset 
all painters to coldstart values). 
CONFS3: SOQ as above plus: 
S$3 = 1 1f we intentionally want configuration to 
behave as though ROM configuratiun changed. 


Exit: 
Configuration proper falls through to LEXBUF. SO 
indicates whether a power-up configuration (S0=0) or 
a coldstart configuration (S0=1) was done. 


Calls: ADIP, C=MAIN, C=RAME, CDIVIC, CLKSPD, CLRXDS, 
CONFP4 ,CSLC3, CSLW4, CSLWS, CSRC3, CSRW3, 
D=AVME, DSLW-P,FNDBUB, INITPT,MODSIZ, MOVED2, 
MOVEUR, MOved3, MRKNEW, MRKOLD,MSIZE, Moveu3, 
R3<KST, RFAGI4¢, ROMTPT, RST<R3, SIZE10, SORT, 
SORTP2, STMBF?, TBLPT+, TBLPTR, UNCFG8,WAITKY, 
WHLTBL,csrwé. 


A,B,C,D,00,01,P,RO-R4, Display buffer, S0-S3, 
RSTKOF. 


Stk lvls: 3 (four are saved in RSTKBF) 





NOTE: 
The configuration code may decide on its own to perforn 
a coldstart configuration when a power-up config mas 
requested. This would be done if certain menory uas 
corrupt, disallowing the manipulations necessary to 
Halntain systen integrity. In this case, the code 
will GOVLNG to COLDST (address #00000), which will 
wipe out the machine and call this code with SO=1. 
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If configuration code determines that ROM configuration 
has changed to a point endangering the validity of 

the unpteen pointers in the mainframe, it wall 
essentially perforn an “EDIT workfile" before falling 
unto the LEABUF code. It will also close all files 

in the FIB. Thais may be forced by entering at CONFS3 
with S3=1. 


If code detects the presence of too many ROMS to 
configure in the address space, it will give a warning 
nessage. It 1s not written to cover the contingency 
of too many RANS or MNI/C devices, on the assunption 
that the possibility of said happening 1s too snall 

to merit the intense code required. 


Detail: 


This code configures all soft-canfigurable devices on the 
syste Bus. The code builds three tables in the configu- 
ration buffers: Systen RAM, Other nenory (ROM, EEPROM, 
independent RAN, etc.), Merory-napped 1/0. The buffer IDs 
for the above configuration tables are, respectively, 

FF, FE, FD. The exact format of the information in the 
tables 15 explained below. 


Following 1s the pre-configuration nmenory layout: 


QOOOO-1TFFFF: Ooerating systert 

2C000-2001F: Card reader 

ZE100-2E3FF: Display RAN 

2F400-2FFFF: Disp Driver RAM 

(FFCOO-FFFFF: Reserved for config garbage collection) 


The configuration code assigns addresses as follows: 
ferory-napped 1/0 upward fron 20000-28000. 


Systen RAM contiguously upuard fron 30000. 
To achieve this contiguous mapping, systen RAN 1s 
configured 1n reverse size order. This assures that 
64 Knib RAMS are configured on 64 Knib boundaries, 
32 Knib RANS on 32 Knib boundaries, etc. 


Uses SO-S3 internally as follows: 
SO: Set for coldstart, clear for power-up configure. 
Si: Used internally in debubbling systen RAN, then 
used to indicate presence of ROMs for which 
there 1s no room to configure. Results in 
nessage. 
(Debuobling is explained in algorithn (below) 


4-3 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Systen Configuration Utaltiles 


shortly below CON400 label.) 


S2: Set to indicate failure of internal file chain 


verify. Results in nessage. 


$3: Set to indicate that systen ROM configuration has 


To explain 
belois: 


PORTH: 


changed to an extent which may endanger the 
validity of sone pointers. Results in collapsing 
of stacks and resetting pointers as though an 
"edit" cormand was entered. 


configuration, the following terns are used 


Physical port location (1-5) whose daisy chain 
ig addressed by a bit (0-4) 1n output register. 
Port HO 1s the internal daisy chain. 
Port #5 goes to tne card reader slot. 


DEVH: Position of a plug-in (0-15) in a daisy chain, 


Unless there 1S a port extender, all plug-ins 
will be device #0. 


SEQUENCE: Consecutive chips in a module to be used 


DEVICE 
DEVICE 


as a single entity (e.g., a quad RAM which 
appears as one plug-in to the user). 
TYPE: Type of meriory (RAN, RON, etc., or menory- 
rapped 1/0). 
CLASS: Identifies menory-mapped 1/0 device. 


KKX CHIP ID KER 


The CHIP 
which 1s 


ID is a (usually) mask-progranned 20-bit pattern 
read by the CPU on an ID poll (C=ID instruction). 


A chip responds to the ID poll if two conditions are met: 


1} The 


2) Dais 


chip 1s unconfigured, 
y-in is high on the chip. 


By exanining the daisy chains one at a tine, configuring 
each chip as we find it, ue can locate and identify all 
soft-confiourable chips oan the bus. 


The chip-id contains the following information: 


NIBBLE 0: 15-Log2(size). 

Nenory Size Nib 0 Mn 1/0 space 

1 knib F 1 word (16 nibs) 
2 t 2 

4 D 4 

8 c 8 

16 B 16 

32 A 32 

64 imax RAM) g 64 

128 8 


128 f 


Wena, 
C 
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256 (tax nenory) 7 256 
6 512 
5 1024 


NIBBLE 1: (Reserved for future use) 
This nibble fron the first chip ina 
sequence is stored in the configuration 
table for all sequences. 


NIBBLE 2: Device type-- 0: RAM 
1: ROM 
2-E: assorted nenory types 
F: Menory-napped 1/0 


NIBBLE 3: For nenory, (unassigned). 
For nenory-napped 1/0, contains device 
class-- 0: HPIL mailbox 
1-15: (unassigned) 
(Note: Card reader is hard configured 
at 2(000-2CO1F. ) 


NIBBLE 4: bits 0-1: (unassigned) 
bit 2: Last chip in sequence (see note (1) 
belou). 
Riuays assuned high for MN 1/0 
devices, meaning all such devices 
have their oun table entry. 
bit 3: Last chip in nodule. 


The top tuo bats (bits 2-3 of nibble 4) are used to 
determine what chips are in what physical plug-ins. 
Every sequence of chips {e.g., four identical RAMS in 
a RAM plug-in, an applications pack containing tuo 
ROMS, etc.) results in one entry in the configuration 
tables. 


(1) End of sequence (but not nodule) is identified in 
one of tuo ways: 1) next chip returns ID with different 
value in nibs 0-3; 2) last chip of sequence has bit 

18 set. The secand approach 1s necessary if 
consecutive, identical chips are to be considered as 
different sequences, and will probably NEVER be used 

in the entire lifetine of the machine. But 1t can 

be done. 


A nodule containing four 8-Kbit RAMS might return the 
following sequence of IDs: 

QOOOE O000E OOO0E 8000E 
The resulting table entry would identify the chip 
$12e, chip count, device type, physical location, 
and configuration address of the device. 
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A nodule containing two 128-Kbit ROMS, a nenory-napped 
1/0 interface using 2 uords of address space, and four 
16-Kbit RAMS aight present the following sequence of 
IDs: 

OO10R First ROM \ one ROMtable entry 

0010A End of ROM sequence / 

QO1FOE MN 1/0 devclass 1 one MM 1/Otable entry 


0OO0D Start of RAMS \ 
00000 | one RANtable entry 
00000 | 
8000D End of nodule / 


Restrictions: 16 chips/sequence 
16 sequences/device 
16 devices/port 


Fornat of table entries: 


System RAN Other Menory 
{cnftable ID FF) (cnftable ID FE) 
NIB 0 Seq position Seq position 
NIB 1 Device # Device # 
NIB 2 Port # Port # 
NIB 3. 15-Log2(size) ** 1§-Log2(size) 
NIB 4 / i 
NIB 5 | Address (kbit) | Address (kbit) 
NIB 6 \ \ 
NIB 7 0 Device type 
NIB 8 #chips/plugin-1 #chips/plugin-1 
NIB 9 Nibble 1 fron ID Nibble 1 fron ID 
Menory-napped 1/0 
(cnftable ID FD) 
NIB O Sequence position in dev 
NIB 1 Device # 
NIB 2 Port # 
NIB 3. 15-Log2(size) 
NIB 4 / 4 
NIB 5 | Address (yords rel to 10000) 
NIB 6 \ 
NIB 7 Device type (always F) 
NIB 8 Device class 
NIB 9 Nibble 1 from ID 


** FREEPORT routine nay set this to zero to indicate 
that the RAN has been removed intentionally. This 
affects operation of this code in the spot where the 
old and neti tables are conpared to determine which 
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RANs are new and which are missing. 


Rigorithn: 
CONF: 
S3=0 {to indicate ue do not want EDITWF unless 
necessary}. 
CONF S3: 
Save 4 subroutine levels in RSTKBF. 
CONFRS: 

B=0000000000000001 {B contains device counters and 
other good things: B[B]=bit for output register, 
B[XS]=deviceH, B[3)=port#, B[S]=sequence#, B[6-5])= 
RAN counter, B[8-7]=ROM counter, 8[10-9]=nnIO 
counter, B[12-i1]=sun of other three counters, 
B[4]=(terporary storage of ID hinib).} 

Di=start of display buffer area where we build table. 

Perforn a bus reset. 

IDLOOP: 

Is there roon for any more entries? If not then goto 
CONF IO. 

Energize daisy chain for this port (OUT=B[B)/2). 

Get ID af next device on daisy chain (C=ID). 

If response#O then goto IDLP20. 

Increnent port# (B[3]). 

Reset device# (B[XS]). 

Reset sequence (B[S]). 

Move port bit over one (B=B+B B). 

If port bit<=80H then goto IDLOOP else goto CONF10. 

IDLP20: 

Hold 1D in R3. 

Hold ID hinibble in B[4]. 

Build device table entry (except address) in C. 

If devicetype=RAM then goto IDLP9O. 

If devicetypetMenory-napped-I/0 then goto IDLP60. 

Write nenory-napped-1/0 table entry at D1. Configure 
device to 40000H. 

P=(position of MMIO counter). 

IDLP30: 

If hibit of ID clear then goto IDLP40. 

Increnent device#. 

Reset sequence#. 

IDLP40: 

Increnent device counter pointed to by P. 

Increnent total-#-devices counter. 

Goto IDLOOP. 

IDLPG0: {configuring "ROMs" } 

Set address field of table entry to FFFOO. 

Find and configure all chips in this sequence to 
40000H (gosub CONFP4). 

P=(position of ROM counter). 

Goto IDLPH. 
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IDLP90: {configuring RAMs} 

Configure chip to 80000H. 

If first 8 nibbles of chip = IRAN ID then unconfigure 
chip and goto IDLP60 {if IRAN then treat as Rom? 

Unconfigure chip. 

Find and configure all chips in this sequence to 
400000H (gosub CONFP4). 

P=(position of RAM counter). 

Goto IDLP30. 

CONF10: {Having identified everything plugged in...} 

Sart table by device type. {Sorting on WP, where P=7. 
Besides separating RAMs fron ROMs fron MMI/0, this 
will separate RAMs fron IRAMs, since IRAMs were given 
an address (FFFOO) while RAMs were not, and address 
serves aS a secondary sort key.} This will arrange 
table into three pieces: RAN, ROM, MNIO. 

A=300H {starting address/100H of first RAN}. 

CONF20: {assign addresses to RAN table entries} 

If there are no nore systen RAMs in table then goto 
CONF6O. 

Write A[X]) to address field of table entry. 

Increnent A[X] by nodule size {nodule size=chipsize * 
Hchips in nodule}. 

Gato CONF 20. 

CONF 60: 

Save RANEND {A[X]*100H} in R1. 

Point at ROM table. Sort it by size. 

Clear B for building allocation nap {B will contain a 
bitnap of uhat pages --a page 1s 1O000H nibbles-- are 
available for configuring ROMs}. 

If there 1s anything non-zero at EQOO {1.e., a hard- 
configured vite then B[15]=B[14]=F {nark those 
pages as unavailable}. 

Mark pages as unavailable which are occupied or 
partially occupied by operating systen and systen 
RAM. 

CONF70: {loop to assign addresses to big ROMs} 

Any tore ROMs in table? If not then goto CON170. 

If size of this entry < 1 page then goto PRKRON. 

Compute legal configuration boundaries and # pages 
needed for this ROM. 

Exanine bitmap (starting at high end) for possible 
locations to configure this RON. 

If possible location 1s found, write address to table 
entry. (Otherwise, table entry still contains FFCOO 
fron ID loop}. Mark allocation map for space taken ie 
by this ROM. 

Gato CONF 70. 

PRKROM: (loop to assign addresses to small ROMs} 

Compute boundaries of one or (if available) tuo 

bubbles (blobs of unconfigured address space). 
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PAKRSO: 
Exartine ROM table entry; 
Tf ROM fats in either bubble, write address to 
table entry and reduce bubblesize appropriately. 
lf there are nore ROMs in list then goto PAKRSO. 
CON1 76: {now to configure nenory-napped 1/0} 
A=0 X (address of MN 1/0 relative to 20000H). 
CONT 80: 

If no nore table entries then goto CON210. 

Write A[X] to table entry. 

Ada device size to A[X]. 

Goto CON180. 

COWC10: 

Sort entire table (RAMs, ROMs and MMI/0) by port-deva. 

Perforn bus reset. 

CON220: {loop ta configure all at assigned addresses} 

Any nore table entries’ If not then goto CONZ70. 

Read table entry. 

Conpute output register value for this port. OUT=C. 

If not menory-napped I/0 then goto CONZ40. 

Compute configuration address (20000H + [addr ]*10H) 
and issue CONFIG cormand at that address. 

Goto CON22O. 

CONZ40: 

Conpute chipsize (fron table entry) and configuration 
address ({table entry ]*100H). 

Configure all chips in the sequence contiguously. If 
address=FFFOO, then do not increnent address for each 
chip <{this 1s rubbish plug-in, to be unconfigured 
soon; all chips goto FFFOO}. 

Unconfigure everything at FFFOO {chips for which there 
Hasn't roon}. 

If R4[A] has been disturbed since we began {an 
interrupt occurred, and the output register nay have 
been screwed} then goto CONFRS {start over}. 

Sort entire table by device type {separates cysten RAMs 
fron "ROMS" fron MMIO}. 

Sort RAN table by port-device# (for comparison with old 
table 1n configuration buffers}. 

{Tine for the hard work. If this 18 a coldstart ue 
will initialize all systen pointers. If this 1s not 
we need to compare the old and new RANtables and nove 
neriory to adjust for any nodules which may have been 
added since the last configuration. } 

Was coldstart requested on entry (SO=1)? If not then 
gota CON280. 

coldst: ‘here if config decides to coldstart} 

Was coldstart requested on entry? If not then GOVLNG 
to OO000. 

Clear password. 

Initialize all pointers, filechain, cornnand stack, 
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variable chain heads, I/0 buffers to coldstart 
values. 
Goto PUTBUF. 
CONC80: {ready to incorporate new RAMs} 
Look for old RAMtable. If not there then goto coldst. 
CON310: {start of loop to conpare RAN tables} 
Anything nore in newtable? If not then goto CON380. 
Anything more in oldtable? If not then goto CON390. 
CONS 30: 
Read tuo table entries. If size, port-devl, sequence# 
and chipcount the sane then goto CON310. 
If newtable pdev# <« oldtable pdev# <newtable has new 
device} then gota CON360. 
If nevtable pdev# > oldtable pdev# {oldtable has 
rassing device} then goto CQON350. 

‘Pdevl’s the sane. Sonething went aiiay, sonething else 
appeared. } 

Mark neutable entry as neu. 

Mark oldtable entry as missing. 

frato CON310O. 

CON 350: 
Mark oldtable entry as missing. 
Goto CON310. 

CON360: 

Mark newtable entry as new. 

Increnent newtable pointer. 

If nore newtable entries goto CON3%. 

CON370: {remaining oldtable entries missing} 

Mark oldtable entry as missing. 

CUN380: 
Any nere oldtable entries? If yes then goto CON370 
else gota CON4WO. 
CON3%: {remaining newtable entries neu} 
| Mark neutable entry as tissing. 
| Any nore entries? If yes then goto CON39. 
CON4O0: 
| Read current values of AVMENS and AVMEME. Look at 
oldtable. If any entries are marked as missing and 
| were not entirely contained between AVMEMS and AVMENE 
then gato coldst. 
: Compute nu AVNENE. Store an R3. 

{Non cones the really hard part. We will rearrange 
everything in menory te restore contiguity in light 
of any systen RAMs which were added. } 

Sort RAMtable by address, 

{ Point past last entry in RAM table {ie well read 
back fron end of table}. 

{This is a debubtilirg process; that 1s, renoving 
“bubbles” cf new nenory fron existing neriory. This 
1s dane by creating a zero-length bubble at RAMEND. 

| The bubble :< then moved down threugh menory, passing 
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RAMs which are not rarked as rew and expanding to 
contain RAMs which are marked as new. This process 
continues until the bubble hits available nenory, 
which 1s 1tself a bubble. } 
DO=nen RAMEND {lowbound of bubble}. 
R3=neuw RAMEND {highbound of bubble}. 
D=old AVMENE {to know when we are done}. 
S1=0 {indicate that we are not alnost done}. 
CON4 70: 
Any nore table entries? If yes then goto CON480. 
Dope up entry to look like built-in hard-configured 
RAN. 
S1=1 {indicate we are alnost done}. 
Goto CON490. 
CON480: 
Read next table entry down. 
Marked as neu? If not then goto CON490. 
DO=P0-nodulesize {expand bubble by changing lowbound}. 
Goto CON4 70. 
CON490: 
If bubblesize#0 then goto CON500. 
DO=D0-rnedulesize {riove lowerbound of bubble}. 
R3=R3-nodulesize {nove upperbound of bubble}. 
If St=1 {1.e., af me are alnost done} then goto CON550 
else goto CON470. 
CON500: 
Move bubble down (i.e., nove data up) size of nodule. 
If there 1s nothing to move (1.e., we have hit 
available menory) then goto CON550. 
If $1=0 goto CON470. 
CON55O: 
{now that we have debubbled the stacks, it is tine to 
debubble progran netiory. } 
R3=30000H {loubound of bubble}. 
DO=30000H {highbound of bubble}. 
D=AVNEMS {to detertiine when we are done}. 
CONS60: {start of loop} 
Any nore table entries? If not then goto CON650. 
Read next entry. If not marked as new then goto 
CON580. 
Increase upperbound of bubble (DO) by size of this 
nodule. 
Goto CON560. 
CONS80: 
Move bubble doin past this rodule (1.e., nove that 
ariount of data doun--to lower nerory). 
If we are not done (bubble has not hit available 
nenory) then goto CON560. 
CON65O: 
Unriark all RAMtable entries which were marked as neu. 
Update all pointers past AVMEME {since available nenory 
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tay have changed size}. 

Update variable chain heads. 

Sort RANtable in port-dev# order {since this ill be 
the oldtable next tine, it needs to be in this 
order). 

Sort ROMtable in port-dev# order. 

Look for old ROMtable. If not found then goto coldst. 

Compare old and new ROMtables. If any old ROMs are 
missing or noved then $3=1 {indicate that we wish to 
force an edit-uorkfile to occur}. 

PUTBUF : 

Sort Nenory-napped 1/0 table by port-dev#. 

Delete all table entries in all tables with an assigned 
address of FFFOO {these were not configured}. If any 
entries deleted, S1=1 {indicate that configuration 
error has occurred}. 

{Now we will move tables fron display buffer, where 
they were built, to configuration buffer area, where 
they will live, and will be known as oldtables on the 
next configuration. } 

Compute size needed for configuration tables. Compute 
size taken by current configuration tables. Conpute 
difference and nove nenory to make proper anount of 
roor. 

If there is insufficient nmenory to hold new tables, 
pinch off tables one entry at a tine until there 1s 
roon and indicate configuration error {S1=1}. 

Move tables from display buffer to configuration buffer 
area. 

Compute clockspeed and store in RAM (gosbvl CLKSPD). 

Restore subroutine levels saved at beginning. 

Fall through to LXBFt+. 

{ Configuration proper is done. The LXBF code will 
find and build tables of all lexfiles. It sll also 
report configuration error if that was requested 
and perform an edit-workfile if that was requested. 
That could not be done at this point in the code 
because sorte polls are 1ssued, and that cannot be 
done until ue have a valid list of lexfiles.} 


History: 
Date Programier Modification 
09/15/82 = NA Added narie to docunentation 
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4.3 CNFFND - Configuration Buffer Find 


Category: CONFIG File: MN&CNF::MS 


Narie:(S) CNFFND - Configuration Buffer Find 
Purpose: FINDS CONFIGURATION BUFFER 
Entry: C(B) IS BUF ID# 


Exit: C(B)= BUFFER IDH (preserved from input) 
CARRY SET=> MATCH FOUND 
Di = =POINTS PAST BUFFER HEADER 
A(A) BUFFER LENGTH 
SB=0 
CARRY CLR=> NO MATCH 


Calls: none 

Stack lvls: 0 

Uses: A(A), 61 

Detail: Length given in header reflects the anount of 
scratch area in the buffer, but doesn’t include 


the total buffer area (e.g. the 5 nibbles used 
by the header) 


History: 
Date Progranner Modifications 
07/04/82 SW Added docurentation 


02/11/83 NN Moved to CNF rodule 
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4.4  LEXBUF - Set Up LEX Files Buffer 
Category: CONFIG File: MN&CNF::MS 


Nane: LEXBUF - Set Up LEX Files Buffer 
Nane:(S) LEXBF+ - Set Up LEX Files Buffer 


Purpose: 
Set up Language Extension Files Table Buffer 
Must be called whenever Configuration or # Lex Files 
changes 


Entry: 
LEXBUF: At power on (through CONF ) 
If coldstart 
Staterent Buffer created 


LEXBF+: When Lex file copied into RAN 
Staterient Buffer not created 


Exit: 
Return after Fast POLL for Configuration 


If not enough nenory to add all Lex files to Buffer 
Lex Buffer 1$ collapsed down 
XROM1 and MAINT are added to Lex Buffer 


Calls: T/OAL+, LEXFOO, LEXFND, ROMCHK ,ROMFND, POLL, I/OCOL 
R<RSTK,RSTK<R 


Uses: 
Exclusive: R,8,C,01 
RSTKBF (3 levels) 
Needed for pCONF can be issued 
Inclusive: A,B,C,D,D0,D1,R1,R2,R3 


R1 = Pointer to next entry in ROM Config Table 
= Length remaining in ROM Config Table 


Stk lvls: 4 
+4 leveis saved in RSTKBF 
Rllows LEXFND to use 4 lvls, also 


NOTE: 


The Statenent Buffer must be created FIRST in the 
I/O Buffer area. Since the LEX Buffer size can 
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Change betueen Power ON and the Statenent Buffer 

may be in use, updating PCADDR that points inte 

the Statenent Buffer would be near IMPOSSIBLE, since 
an offset 18 not easy to calculate. 


Algorithn: 
LEXBUF: If Coldstart (S0=1) 
Create Statenent Buffer (I/OAL+) 
LEXBF+ Rilocate Language Extension Buffer (1/OAL+) 
ID=FC, Size=0 
Save 4 stack levels (R<RSTK) 
Search for LEX files in RAN ( LEXFND) 


Check 1f ROM Table 1s non-enpty (ROMCHK ) 
If ROM Config Table NOT enpty 
Search ROM for LEX files & Update LEX Table 
Repeat until (End of ROM Table) 
Find next ROM (ROMFND) 
Search ROM & Update LEX Table (LEXFND) 
If not enough menory to Expand (Carry Clear) 


1: Collaspe Lex Buffer (I/OCOL) 
Set C(S) so I/0EX1 will not use Leeuay 
goto 2; 


Set C(S) so 1/0EX1 will use Leeway 
2: Rdd Built-in XROM, MAINT to LEX Table Buffer 
Set R3 @ "OO" byte to indicate end of file 
Set DO @ start of XROMW1 
Rdd xronO1 and MAINT to LEX Buffer (LEXFOO) 
If not enough nerory to add --> goto 1; 
CONFIGURATION Poll. 


Restore return levels to stack (RSTK<R) 

If handled, restart CONFIGURATION fron the 
beginning. 

else 


go Ruto delete I/0 buffers 


Detail: 
xronOt and MAINT Lex Files are CHAINED together. 
The next Lex File relative address pointer within 
xron0t points to the start of MAINT. One call to 
LEXFOO «W111 add both xronO1 and MAINT to the Lex 
Buffer. 


4 stack levels are saved to fixed TWO problens: 


Within LEXFND (called by LEXBUF) 
Usage 1s 4 levels (Stack save, I/OEX2 (uses2) 
One level too deep --- 


pCONF issued at end of LEXBUF 
since FPOLL uses 2 levels to get there 
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No levels left for HPIL/Lex file to deal mith 
its buffers 


COPY 
COPYu 
RSTK <-- R1 
LEXBUF 
History: 
Date Progranner Modification 
07/09/82 JP Modified docunentation 
09/09/82 JP Rdd no nerory to expand handling 
11/01/82 JP Rdded New Lex file fornat 
11/04/82 JP Calling LEXFOO to add xron01/MAINT 
61/03/83 JP Renoved S39 usage 
03/09/83 JP Changed STMBID to bSTNT 
07/05/83 JP Save 3 levels in RSTKBF 
07/05/83 JP Adjusted docunentation 
07/22/83 NN Moved configuration excpt handling 
09/13/83 JP Updated docunentation: 
4 stack levels used;4 saved 
4.5 KYDN? - Is a Key Down in Current Ron? 


Category: CONFIG File: SB&DVR:: MS 


Nane:(S) KYDN? - Is a Key Down in Current Row? 

Purpose: 
Deternine if a key is down which could cause a problen 
for configuration, 

Entry: 

Exit: 
Carry clear if a key 1s down in the currently energized 
rou(s), else carry clear. 


Calls: None. 
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Stk lvls: 1 


NOTE: 
A brief description of the problen: If 2 or nore keys 
are down in a colunn, and a row containing one of the 
keys 1s energized, the multiple keys short the rous 
together, resulting in energizing multiple rous. In 
configuration, this arounts to addressing nore than one 
port daisy chain at once, which can lead to disaster. 
This routine is called at appropriate tines to ensure 
that no keys are down that can screw up configuration. 


Detail: 
Preserves all registers at the expense of a subroutine 
level. 
History: 
Date Progranner Modification 
09/16/82 Wh Added docunentation 
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anne cnn ne ne ee nnn ee nn eee oe en eee ee eee $= =~ =e on n nnn nen-- + 
| | 
| CONVRT - Conversion Utilities |} CHAPTER 5 | 
| | 
anne n nen nnn ene nn ne enn enn ee nen ee een nee tenn nnn nnn enn n nnn + 
5.1 FLIDH - Convert 12-digit Flt To Hex Integer 
Category: CONVRT File: AB&UTL:: MS 
Nane:(S) FLTDH - Convert 12-digit Flt To Hex Integer 
Nare:(S) DCHXF - Convert 12-digit Flt To Hex Integer 


Purpose: 
Convert a 12-digit floating-point number to a 5-digit 
hex integer. 


Entry: 
A=12-digit floating-point nunber. 
(FLTDH and DCHXF are tuo names for sane entry point.) 


Exrts 
P=0. 
A[A] = hex integer. 
Carry set 1f nunber is positive and in range. 
Carry clear -> 
If XM=1, number is out of range (returns FFFFF). 
(NaN is considered out~of-range. ) 
If XM=O, nunber 1s negative (returns result in 2's 
coriplenent). 
Also B[S]#0 iff nunber is negative. 
HEX node. 


Calls: OVF LOW. 


A,B,C,P,xM. 
Stk lvls: 1 
History: 


Date Progranner Modification 
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SA Wrote 
12/20/82 Sw Added info about B[S] to doc hdr 
10/18/83 = NM Atteripted to docunent 


5.2 DECHEX - Convert DEC Integer To HEX Integer 
Category: CONVRT File: RAB&UTL::MS 


Name:(S) DECHEX - Convert DEC Integer To HEX Integer 
Nane:(S) DCHX=C - Convert DEC Integer To HEX Integer 


Purpose: 
Convert decinal integer to hex integer. 


Entry: 
DECHEX: A[W] 
DCHX=C: C[W] 


decinal integer. 
decinal integer. 


Exit: 
P=0, 
ALA} = hex integer. 
HEX node. 


Carry set -> result is good. 
Carry clear -> overflow. 
XM = not carry. 


Calls: None. 


A,B,C,P, xn. 
Stk lvls: 1. 


History: 


Date Progranner Modification 


SA Wrote 
10/18/83 NM Atteripted to docurent 
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5.3 HDFLT - Convert HEX Integer To DEC Fit-pt 


Category: CONVRT File: AB&UTL::MS 


Nane:(S) HDFLT - Convert HEX Integer To DEC Flt-pt 


Purpose: 
Convert hex integer to 12-digit decinal floating-point 
nuriber. 


Entry: 
ALA} = hex integer. 
Exit: 
P=0, 
R=12-digit floating-point nunber. 
Carry set. 
DEC node. 


Calls: HEXDEC. 


A,B,C,P. 
Stk lvls: 1 


History: 
Date Progranner Modification 
SA Wrote 
10/15/82 SR Changed to NM’s conversion 
10/18/83 NN Atternpted to docurient 
od 
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5.4 FLOAT - Convert Dec Integer Into 12-Dig Float 
Category: CONVRT File: AB&UTL:: MS 


Nane:(S) FLOAT - Convert Dec Integer Into 12-Dig Float 


Purpose: 
Convert right-justified decinal integer into floating 
point nunber. 


Entry: 
Argument in A[W] (unsigned). 
Maxinun 999999999999 (1e12-1). 


Exit: 
Floating-point number in A[W]. 
DEC node. 
Carry set. 


Calls: None. 


Stk lvls: 0 


Algorithn: 
Return if A=0. 
ASL 3 tines, A[X]=011. 
While A[14])=0 do 


begin 
ASL M {loop to align mantissa} 
A=A-1 X 
end. 
History: 
Date Progranner Modification 
SA Wrote 
06/11/82 oN Atternpted to docunent 
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5.5 HEXRASC - Convert Hexadecinal to Ascii 


Category: CONVRT File: FHATFMN: > AS 


Nane:(S) HEXASC - Convert Hexadecimal to Ascii 


Purpose: Converts specified nunber of hex digits to ASCIT 
and returns the string (backwards) in A(W), B(W) 


Entry: 
ACW) = Hex digits 
C(S) = #nibs-1 to convert; must be 7 or less 
P = 0 
Exit: 
ACW) = Converted string (high digit in low nenory) 
B(W) = Converted string (high digit in low menory) 
C(S) = F 
P = 0 
Carry = Set 
Calls: none 


Stack lvls: 0 
Uses: A, B, €(S), C(B) 


History: 
Date Progranner Modification 
07/04/82 SW Added docunentation 
5.6 CNV2UC - Converts 8 chars to uppercase 


Category: CONVRT File: JP&PR3::MS 
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Nane: CNV2UC - Converts 8 chars to uppercase 
Nane:(S) CNVNUC - Converts 8 chars to uppercase 
Nane:(S) CVUCH - Converts 8 chars to uppercase 
Purpose: 


Converts 8 lowercase characters to uppercase. 


Lowercase characters are converted to uppercase by 
clearing bit 5 of the ASCII code. All characters 
with character codes fron 60-7F HEX get bit 5 
cleared. This results in ensuring that digits, 
uppercase letters, and most special characters are 
left unchanged. However, any character within the 
range of 60-7F that is not a lowercase letter WILL 
have 1ts character code altered. 


Entry: 


Exit: 


3 entry points: 

1) CNV2UC - D1 at possible preceding blanks before 
characters to convert. 

2) CNVWUC - D1 at ist character to convert. 
P=0, 

3) CvUCW - A contains characters to convert. 

(1t may contain any no. of characters). 

P=0, 


P=0 
Carry clear 
Every byte in A has bit 5 zeroed. 
CNV2UC: 
D1 points at the first non-blank character 
R contains the following eight bytes with 
bit 5 zeroed in every byte. 
CNVNUC: 
Sane as CNV2UC, except Di is preserved fron entry. 
CVUCH: 
Di preserved fron entry 


Calls: GNXTCR, BLANKC 
Uses: A,C, 01 - CNV2UC entry 
R,C - CNVWUC, CVUCW entries 


Stk lvls: 1 


NOTE: 


only works if characters are upper- or lower-case chars 
to begin with 


History: 
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Date Progratiner Modification 


07/08/82 = S.W. Added docunentation 


5.7 CONVUC - Convert To Upper Case 
Category: CONVRT File: MAN&ED:: NS 


Nane:(S) CONVUC - Convert To Upper Case 
Nane:(S) CNVUCR - Convert To Upper Case 


Purpose: 
Convert char in A(B) to upper case if lower case 
Read a byte into a first if CNVUCR entry point used. 


Entry: 
A(B) = Character to be converted 
Pp = 0 
HEX rode. 

Exit: 


Carry set if no conversion required 

A(B)=converted letter, not changed if carry set at 
exit. 

P = 0 


Calls: Range 


Exclusive: C(3-0),A(B) 
Inclusive: C(A),A(B) 


Stk lvls: 1 
History: 
Date Progranner Modification 
07/16/82 BS Updated docunentation = 


S-? 
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5.8 RJUST - Unfloat A Floating-Point Number 
Category: CONVRT File: MINSTN::AS 


Nane:(S) RJUST - Unfloat A Floating-Point Nunber 


Purpose: 
Unfloat a 12-digit forn floating-point nunber. 


Entry: 
12-digit floating-point number in A 
(sign ignored). 


Exit: 

Error exit (Inv Arg) if NaN passed. 

A[W) = Raght-justified decinal integer version of 
argunent. 

Carry set: Arg was infinity; result=1E16 - 1. 

Carry clear: Arg was finite; arg >= 1£16 returned 
as 1£16 - 1. 

DEC node. 

P=0, 


Calls: None. 


BU? 
Stk lvls: 9 


Detail: 
Input: 0123000000000002 Output: 0000000000000 123 
Input: 0123500000000002 ‘Qutput: 00000000000001 24 
Input: 0123456789870007 Output: 0000000012345679 
Input: 0987000000000998 Output: 0000000000000000 
Input: 0987000000000050 Output: 9999999999999999 


History: 
Date Prograriner Modification 
06/18/82 NN Added docunentation 
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5.9  HXDCH - Hex To Decinal Conversion 


Category: CONVRT File: MN&UTL:: MS 


Nane:(S) HXDCW - Hex To Decinal Conversion 
Narie:(S) HEXPEC - Hex To Decinal Conversion 


Purpose: 
Convert a full-word HEXH# or an A-field HEX # to a DECH. 


Entry: 
HEXDEC: Argurent in A[A]. 
HXOCW: Argunent in C{W] (HEX). 
Mode doesn’t natter. 


Exit: 
Result in A,B,C (DEC). 
DEC node. 
Carry clear. 
P unaffected. 


Calls: MPY (falls through) 
Uses....... 
A,B,C 
Stk lvls: 0 
Algorithn: 


HEXDEC: C=O W, C=A A 
HXDCU: —R=0000000000000001 
SETDEC 
Fall through to MPY for mixed-mode multiply. 


History: 
Date Prograriner Modification 
06/03/82 NM Added docurentation 
10/15/82 SA Added HEXDEC entry point 
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5.10 DCHKW - Full Word Decinal To Hex Conversion 


Category: CONVRT File: MNSUTL::MS 


Name: (S) DCHXW - Full Nord Decinal To Hex Conversion 


Purpose: 
Convert full-uord DEC to full-word HEX nunber. 


Entry: 
Argunent in C. 
Mode doesn’t natter. 


Exit: 
Result in A, B and C. 
HEX node. 
Carry clear. 
P=0, 
Calls: None. 
Uses....... 
A,B,C,P 
Stk lvls: 9 
Algorithm: 


Clear register for result. 
For g=15 downto 0 do 
begin 
Multaply result by 10. 
Add digit #q of argurient to result 


end. 
History: 
Date Prograrmer Modification 
06/03/82 WN Added docunentation = 
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5.11. VARNBR - Pop and Test Variable Number 
Category: CONVRT File: PM&STA::MS 


Nane:(S) VARNBR - Pop and Test Variable Nurber 
Nane:(S) YARNB- - Pop and Test Variable Nunber 


Purpose: 
Rounds decinal floating point real value on tap of 
nath stack to a hex integer, then tests for a valid 
variable nurber. 
A NaN input till fall through; an out-of-range input 
will create a NaN -- both set carry. 


Entry: 
decinal vaiue to be converted on top of nath stack 
DP see points to top of nath stack 


R2(S) -- # statistical variables 


Exit: 
Carry=Set: invalid input, NaN output in registers A/B 
XM=1: If NaN created 
Carry=Clear: A(A) -- rounded hex integer 
XN=0 
HE XNODE 
P=Q 


Calls: DCHXF , IVARG, POP1R, SPLTAX, fanita 


Inclusive: VARNB-: A,B,C,P,xn 
VARNBR: sare, unless fatal error 


Stk lvls: 2 
History: 

Date Progranner Modification 
06/09/82 PM Docunented routine 
08/12/82 " Changed entry points 
12/14/82 er Added signaling NaN test 
02/10/83 ” Fixed neg var nbr problen 
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5.12 STR$SB - Convert Number to String 
Category: CONVRT File: SB&I0::MS 


Nane:(S) STR$SB - Convert Number to String 
Nane:(S) STR$OO - Convert Number to String(Generic) 


Purpose: 
Pops a nunber off stack and pushes a string on stack 
containing ASCII representation in current display 
setting. 
STR$SB is a subroutine which returns a string without 
leading and trailing blanks surrounding the nunber. 
STR$00 15 a generic routine which will either return 
when done or jJunp to EXPR. It may or may not output 
leading and trailing blanks. 


Entry: 
P = 0 
D1 points to top of stack 
STRS&OO: 
Return (SO) set iff return is desired 
otherwise junps to EXPR when done. 
Blanks (S1) set iff leading and trailing blanks 
are desired, 
Exit: 
P = 0 


D1 points to string 
Exits to MNEMERR if nmenory overflous 


Calls: POPIN,FMTNUM, STKCHR, NAN?, FNTPRP, ADHEAD, D=AVMS, 
DSFORN 
Exclusive: D1,S0,$1,C(A), D(A) 
Inclusive: A,B,C,D(A),SO,RO,R1,R2 
Stk Ivls: 2 
Detail: 


Pops an numeric iten off expression stack and 
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checks the current display forrat. 

Standard format: If the number can be represented 
without losing accuracy in 12 digits plus 
optionally a decinal point it will be, else 
scientific notation will be used and all 
significant digits will be shown. 


FIX n: Display n places past the decinal point 
uith rounding. If result 1s longer than 
13 digits, defaults to SCI n. 


SCI n: Display n+1 significant digits in 
scientific notation with rounding. 
(1. <= mantissa <= 9.999999...) 


ENG n: Display n+1 significant digits in 
engineering notation with rounding. 
(1. <= mantissa <= 999.9999, ..; 
exponent divisible by 3) 


History: 
Date Prograrimer Modification 
07/20/82 —s«=B.S. Updated docunentation 
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| DSPUTL - Display Utilities | CHAPTER 6 | 
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6.1 NOSCRL - Request No-display-scrolling 
Category: DBSPUTL File: MN&ED: NS 


Narie:(S) NOSCRL - Request No-display-scrolling 


Purpose: 
Request that main loop bypass scrolling of current 
display contents. 


Entry: 

None. 
Exit: 

C{A}=0. 

DO=NEEDSC. 
Calls: None. 
Uses....... 

C{A}, 00 

Stk lvls: 0 
Detail: 


Clears (NEEDSC). This prevents main loop from calling 
SCRLLR so user can stare at display. 


History: 
Date Progranrer Modification 
10/31/83 NM Rdded docunentation 
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VIEWD1 - View A Buffer While Keys Down 
Category: DSPUTL File: MIN&ED: = AS 


Nane:(S) VIEWD1 - View A Buffer While Keys Down 


Purpose: 
This entry point takes a 22 character buffer pointed to 
by D1 and builds a bit pattern in display inside 
the WINDOW setting. This display is held until all 
keys are up, 


Entry: 
P=0 
01 points at a 22 character buffer. 


Exit: 
P = Q 


Calls: BLDBIT 


A,B,C,D,00,01 
Stk lvls: 2 


Detail: 
This routine looks at the current WINDOW settings 
to set up the first character position and the nunber 
of characters to be displayed. Since this may be 
(and usually 1s) 22 characters, the buffer to be viewed 
should be at least 22 characters. It should be padded 
with either blanks or nulls to prevent unwanted "junk" 
at the end of the display. 


History: 
Date Progranner Modification 
07/15/82 BS Updated docunentation 
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6.3 CURSFR - Move Cursor To Far Right 


Category: DSPUTL File: MN&ED:: MS 


Nane:(S) CURSFR - fove Cursor To Far Right 


Purpose: 
Send CURSOR FAR RIGHT to display. 


Entry: 


HEX node. 
Exit: 

P=0 

Carry clear 


Calls: ESCSEQ (falls through) 


A,B,C,0,D0,D1. 


Stk lvls: 4 
History: 
Date Prograrner Modification 
O7/15/82 BS Added documentation = 


6.4 CURSFL - Move Cursor To Far Left 


Category: DSPUTL File: MN&ED::MS 


Narie:(S) CURSFL - Move Cursor To Far Left 
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Purpose: 
Send CURSOR FAR LEFT to display. 


Entry: 
Exit: 

P=0 

Carry clear 
Calls: ESCSEQ (falls through) 
Uses....... 

A,B,C,0,00,D1. 

Stk lvls: 4 
History: 

Date Progranner Modification 
07/15/82 BS Added docurentation 
11/04/82 NM Packed a little. 
12/09/82 WM Packed a lot. 


6.5 SETFAT - Set Display Fornat 
Category: DSPUTL File: MNSUTL::MS 


Nane:(S) SETFNT - Set Display Fornat 


Purpose: 
Set FIX, SCI, ENG or STD display fornat. 


Entry: 
aes C(O} = C for STD, D for FIX, E for SCI, F for ENG. 


Exit: 
Carry clear. 


Calls: None. 
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Inclusive: A[A],C{A},D[A] 
Stk lvls: 0 


Algorithn: 
Read DSPFMNT nibble fron systen flags. 
Set lower 2 bits thereof. 
AND with argunent passed in C{0]. 
Write out DSPFNT nibble. 


History: 
Date Progranner Modification 
10/26/82 NM Wrote. 


6.6 UPDANN - Update Annunciator 
Category: DSPUTL File: PNM&FLG::MS 


Nane:(S) UPDANN - Update Annunciator 
Nate: UPDRNX - Update Annunciator 


Purpose: 
Updates annunciators corresponding to user and systen 
flags. 


Entry: 
user and systen flags 
HEXMODE 


Exit: 
appropriate annunciator(s) turned on/off 
Carry=Clear 
P=0 
HEXMODE 


Calls: DBLUP, SNGLUP, UPDAN1 
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Inclusive: CPU: A(B),B(A},C(A),B0,P 
RAM: ANNADI-4 


Stk lvls: 1 
History: 
Date Progranner Modification 
06/11/82 PN Docunented routine 
10/04/82 PM Changed for annunciator revision 
01/05/83 PN Revised docunentation 
6.7 ASCII - ASCII Bit Pattern Tables 


Category: DSPUTL File: SB&BIT::NS 


Nane:(S) ASCII - ASCII Bit Pattern Tables 


Purpose: 
Bit patterns for built in character set. 


Detail: 
The bit pattern for each character requires 10 
nibbles. Each of the 5 pairs of nibbles defines 
one display column. Each colunn has 8 bits where 
the lsb of the byte is the top row and the nsb is 
the botton rou. The bit pattern for an ASCII char 
nay be found by reading 10 nibbles at the address 
ASCII + 10 * (Chart). 


History: 
Date Progranner Modification 
07/29/83 «B.S. Updated docunentation 
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6.8 CHMDPR" - Text for command stack pronpt 
Category: DSPUTL File: SB&CMD::NS 


Nane:(S) CNDPR" - Text for command stack pronpt 


Purpose: 
This is the text for the command stack prompt, it is 
the following sequence: CR, LF, cursor off, 
backslash, cursor on. The text string is terminated 
by a FF byte as expected by BF2DSP. 


Entry: 
Don’t enter 
Exit: 
History: 
Date Progranner Modification 
11/09/83 B.S. Added docunentation = 


6.9 MAKEBF ~- Make ASCII Buffer from Display Buffer 
Category: DSPUTL File: SB&CMD::AS 


Nane:(S) MAKEBF - Make ASCII Buffer fron Display Buffer 
Purpose: 
Builds an ASCII buffer containing all readable 
characters in the display and appends it to the 
corinand stack (between CLCBFR and RAWBFR). 


Entry: 
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Exit: 
P = 0 
C(A) points at first char of text 
DO points past text 
A(A)=Buffer length + 3 nibbles 


Calls: OUTITk, OUTBYT, OUTNBC, INITPT, STKCND, CHKSPC, MOVEU2, 
D=AVNE 


Exclusive: DO,0 
Inclusive: DO,D 


Stk lvls: 2 


Detail: 
DO 1s initialized to contents of RAWBFR, a 3 nibble 
length field is output, then for each readable 
character in display, a byte is added to the buffer 
by calling OUTITK. After buffer is built, a CR is 
written to the end of the buffer. STKCMD is called 
to edit the connand stack. Pointers fron RFNBFR 
to AVNENS are updated to point to new end of buffer. 
If there is less than LEEWAY menory left, connands 
in the conmand are crushed, starting with the oldest, 
until LEEWAY available menory exists or all but the 
host recent cormand have been crushed. 


History: 
Date Progranner Modification 
10/19/82 B.S. Updated docunentation 


6.10 BLDDSP - Build Display Pattern fron Buffer 
Category: DSPUTL File: SB&DSP:: MS 


Nane:(S) BLDDSP - Build Display Pattern fron Buffer 
Nane:(S) BLDLCD - BLDDSP Except Display Status Active 
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Purpose: 
Uses the display buffer and related status infornation 
to build the display bit pattern. 










Entry: 
Hexnode 



















Exit: 
P = QO aoe 
Hexnode 
Calls: GETSTA, DO=FC, FCALC?, DIO=FC, BLDBIT, BLDB40, 
WRTTM1, SETSTA 
Uses....... 


Inclusive: A(W),B(W),C(W), D(H), DO, D1 
Stk lvls: 2 


Algorathn: 

If cursor is on then adjust FIRSTC so that cursor will 
be in display window. 

Turns left arrow annunciator on or off depending on 
whether FIRSTC 1s zero or not. 

Sets up registers and calls BLDBIT to build display. 

Turns on right arrow annunciator iff display buffer 
contains characters to the right of last character 
in the currently displayed mindow. 

If cursor 1s on then sets the cursor phase so the 
cursor Will appear "on" first and falls into 
code for display update (1e cursor blink). 

If cursor off then disables display tiner and returns. 


History: 
Date Programmer Modification 
10/19/82 B.S. Updated docunentation 


6.11 BLOBIT - Build Bit Patterns in Display 
Category: DSPUTL File: SB&DSP::MS 
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Nane:(S) BLDBIT - Build Bit Patterns in Display 


Purpose: 
Used to put a given number of character’s bit patterns 
in display given an arbitrary ASCII buffer. 


Entry: 
Pp = 0 
D(R)=Display starting position (ie WINDST) 
0(14,15)=Nunber of positions to display ninus 1 
C(A) points to buffer of characters 


Exit: 

P = 9 
Calls: IOFNDO 
Uses....... 


Inclusive: A(W),B(W),C(W), D(H), DO, D1 
Stk lvls: 1 


Algorithn: 
For each character to be displayed 
If the high bit is on then 
Look for an alternate charset buffer. 
If one is found then 
Check for indirect character set and 
change pointers if found 
Multiply character nunber by 12 
If this nunber is less than the length 
of the charset buffer then use that 
buffer 
else use the default bit pattern table 
else use the default bit pattern table 
else use the default pattern table 
If using the default bit pattern table 
then nultiply the character nunber by 10 
Add the offset (char number tines 10 or 12) 
to the start of the table being used 
and read in bit pattern. 
Read 3 nibble table entry fron LCDTAB 
Double table entry to set carry if this 
char crosses a display driver boundary 
and to generate the lower 3 nibbles 
of the starting address of this display 
position. 
Write out bit pattern to display. 
If display driver boundary 1s crossed then 
shift the bit pattern 4 columns and 
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nove to next display driver and write 
out remainder of character. 


History: 
Date Progranner Modification 
10/19/82 8.58. Added docunentation 


6.12 DSPUPD - Display Update 
Category: DSPUTL File: SB&DSP::A$ 


Nare:(S) DSPUPD - Display Update 


Purpose: 
Process service request for display code. 
Service request can be generated by TINER1 and is used 
either for: 
1) Cursor blink, or 
2) End of display delay. 


Entry: 
P=0. 


Exit: 
P=0, 


Calls: GETSTA,D1=FC, BLOBIT, BLDB40, URTIM1, SETSTA 


Inclusive: ACW),B(W), CCW), D(H), DO,D1, RAM(DSPSTA) 
Stk lvls: 2 
NOTE: 
Saves contents of ST on entry into DSPSTA. Restores 


on exit. 


Algorithm: 
Stores callers status bits im DSPSTA and recalls 


6-11 





HP-71 Software IBS - Entry Point and Poll Interfaces 
Display Utilities 


display status. 

Sets TinOut bit to indicate tiner has tined out. 

If UpdOff then display doesn’t need updating so 
set tiner to a long tine and return. 

If CurOff then cursor is off and thus display 
doesn’t need updating so set tiner to a long 
tine. TinQut was set above uhich notes the 
fact that the tiner has tined out. This is 
used for display delay during line feed. 

If BitsOK then the LCD reflects the display buffer 
and doesn’t require rebuilding just to change 
cursor. If not BitsOK then ue need to rebuild 
the LCD to make sure cursor will nake sense, this 
code will fall back through DSPUPD once display 
has been updated. 

Now need to change cursor. 

The position of the cursor in the display is 
calculated by looking at CURSOR, WINDST and WINDLN. 
If the cursor isn’t in display then set the tirier 
to a long tine and return, 
Depending on the Phase, either 
* Rebuild the character that belongs in cursor 
position and toggle phase. 
* (Check if replace or insert cursor 1s required, 
build 1t in display, toggle phase and return. 


History: 

Date Progranner Modification 
02/25/83 NN Added docunentation 
06/07/83 «B.S. Enhanced documentation 


6.13 GETMSK - Get Mask for Character Protection Bitnap 


Category: DSPUTL File: SB&DSP::MS 


Nare:(S) GETMSK - Get Mask for Character Protection Bitmap 


Purpose: 
Point at location if protection bitnap and return a 


6-12 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Display Utilities 


nask for isolating bit corresponding to current cursor 
position. 


Entry: 
P=0. 
Exit: 
P=0, 
B[O }=C{OJ=Nask nibble. 
DO points at nibble in bitmap for current cursor 
position. Mask can be used to isolate proper bit. 


Calls: None. 


B[A}, C, P, WO. 
Stk lvls: 0 


History: 
Date Progranner Modification 
02/25/83 = NM Added docunentation 


6.14 AVN2DS - Buffer to Display 
Category: DSPUTL File: SB&DSP::MS 


Nane: AVMN2DS - Buffer to Display 
Nane:(S) BF2DSP - Buffer to Display 
Nane: BF2DS+ - Buffer to Display 
Nane: BF2DPP - Buffer to Display 


Purpose: 
AVN2DS: Send buffer at AVNENS to display 
BF2DPP: Send PROMPT to display 
BF2DSP: Send buffer at D1 to display 
BF2DS+: Send buffer at (D1) to display 


Entry: 
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P = 0 

BF2DPP: Set 01 @ PROMPT 

BF2DSP: D1 points at first char of buffer 

BF2DS+: Di points at address of start of buffer addr 
AVN2DS: none 


Exit: 
P = 0 
Carry set 


Calls: 
DSPCHA 


Exclusive: 01,C{A : A(B) 
Inclusive: ACU), B (W), CCW), DCW), BO, D1 
Stk lvls: 4 
Detail: 
In each case above the buffer 1s terminated by an FF 
byte. 
History: 
Date Prograntier Modification 


eww ewe we eee eee ee we me He ee ee ee ee we ee ee ew eee 


10/19/82 B.S. Updated docunentation 


6.15 DSPCHA - Display Character 
Category: DSPUTL File: SB&DSP::MS 


Nane:(S) OSPCKA - Display Character 
Nane:(S) DSPCHC - Display Character 


Purpose: 
Accepts a byte for pseudo-device display driver. 
The routines take data fron R or C and send the 
character to the display. 
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Entry: 


P = 0 
DSPCHA: A(B) contains character 
DSPCHC: C({B) contains character 


Exit: 
P = 0 
Carry clear 
Calls: BLDDS*, BLDDSP, CKSREQ, CLEARD, DO=CUR, DO=FC, 
DSPCH., DSPTIM, FINDA, GETMSK, GETSTA, MOVCOO, 
MOVCUR, MOVED3, MOVEU3, NOKEYS, PUTSTA, R<RSTK, 
RCLSTA, RSTK<R, SCNRT, SCRLLR, SETFCA, SLEEP, 
cksreq, TBLINC, USRSTA. 
Uses....... 
Inclusive: ACW), B(W),C(W),D(W),DO,D1,RAMN(See note below) 
Stk lvls: 2 
NOTE: 


Detai 


This routine will call CKSREQ if CR or LF is sent. 
This anplies that a poll may happen. That will cause 
certain RAM locations (SNAPSHOT) to be altered. 

This routine uses R<RSTK / RSTK<R to preserve stack 
levels--this also uses RAM. 


This routine nay also transfer control out to HPIL. 
The HPIL ROM may not have exactly the sane register 
usage for a given character, 1e don’t assure a certain 
Character will leave a certain register preserved 

Just because this code doesn’t seen to use it. For 
any character, f,B,C,0,D0,D1 may be used. 


Ts 
This routine provides the nechanisn to access the 
pseudo-device that controls the display. 
This device has 3 nibbles of status that are 
defined as follows: 
SO -- Miscellaneus uses 
$1 -- Set iff LCD currently matches display buffer 
S2 -- Cursor blink phase 
$3 -- Display needn’t contain cursor 
S4 -- Disable cursor update 
S5 -- Display buffer needs to be cleared(1) 
$6 -- Cursor on(0)/off(1) 
S? -- Insert(1)/Replace(0) node 
$8 -- Cursor/FirstC need to be cleared(1) 
S9 -- Suppress Delay(1) (Auto-clears) 
S10 -- Display has tined out 
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The pseudo-device accepts the following escape 


sequences: 
Esc Q -- Insert cursor 
Esc R -- Replace cursor 
Esc € -- Cursor right 
Esc D -- Cursor left 
Esc H -- Hone cursor 
Esc J -- Clear Display 
Esc K -- Delete through end of line 
Esc > -- Cursor on 
Esc < -- Cursor off 
Esc E -- Reset display 
Esc P -- Delete char 
Esc % <col> <row> -- Set cursor position absolute 


Esc 
Esc 


History: 


10/19/82 
02/25/83 


6.16 DSPCL? 


Ctrl-C -- Cursor far right 
Ctrl-D -- Cursor far left 


Progranner Modification 
B.S. Updated docunentation 
NM Updated "CALLS" section 


- Clear display buffer if necessary 


Category: DSPUTL File: SB&DSP::MS 


Nane:(S) DSPCL? - Clear display buffer if necessary 


Purpose: 


Clear display buffer if Clear bit set in display status 
Reset cursor position if Reset€ bit set in display 
status 


Entry: 
pois 


Exit: 
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Calls: GETSTA, CLEARD, PUTSTA 







Inclusive: A(M),C(B) 









Stk lvls: 2 





History: 
Date Progranner Modification 
11/01/83 B.S. Added docunentation 


6.17 CRLFOF - Send cursor of f/CR/LF to disp u/o delay 
Category: DSPUTL File: SB&DSP::MS 


Navie:(S) CRLFOF - Send cursor of f/CR/LF to disp u/o delay 
Nane:(S) CRLFND - Send CR/LF to display with no delay 
Nane:(S) CRLFSD - Send CR/LF to display with delay 


Purpose: 
CRLFOF: Send Cursor off, Replace Cursor, CR, LF to 
display with delay suppressed. 
CRLFND: Send Replace Cursor, CR, LF to display with 
delay suppressed. 
CRLFSO: Send Replace Cursor, CR, LF to display with 


delay. 
Entry: 
P = 0 
Exit: 
P = 0 
Calls: CRLFOF: ESCSEQ, XDELAY, BF2DSP 
CRLFND: XDELAY, BF2DSP 
CRLFSD: BF2DSP 
Uses....... 


Inclusive: A,8,C,0,D0,D1 
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Stk lvls: Ls) 


History: 
Date Progranrer Modification 
11/01/83 B.S. Added docunentation 
6.18 SCNRT - Point Cursor Past Unprotected Field 


Category: DSPUTL File: SB&DSP::NS 


Narie:(S) SCNRT  - Point Cursor Past Unprotected Field 


Purpose: 
Scans to right of cursor and returns A(R) pointing 
past end of unprotected field, a null byte or end 
of display buffer whichever cones first. 


Entry: 
P = 0 


Exit: 
P = 0 
A(R)=Points past unprotected display character 
Carry set 1f pointer points past DSPBFE (1.e. buffer 
1s full and protected to end of buffer). 
B contains value of A at tine of call. 
D(A) points past cursor position. 


Calls: CR=CUR, DO=CAR 


Exclusive: 
Inclusive: A,B8,C,0(A), 0 


Stk lvls: 1 
History: 
Date © Progranner Modification 
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10/19/82 B.S Updated docunentation 
03/17/83 «B.S. Packed by calling subroutines 


6.19 ESCSEQ - Send Escape Sequence to Display 
Category: DSPUTL File: SB&DSP::MS 


Narie:(S) ESCSEQ - Send Escape Sequence to Display 


Purpose: 
Sends an escape to display followed by a specified 
character. 
Entry: 
Pp = 
C(B)=Character to follow escape character. 
Exit: 
Pp = 0 
Calls: DSPCHC 
Uses....... 


Exclusive: C(B) 
Inclusive: A(W),B(W), CCW), DOCH), DO, 01, RAM(See DSPCHA) 


Stk lvls: 4 
History: 
Date Progranner Modification 


07/15/82 B.S. Added docunentation 
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6.20 ODSPRST - Display reset 
Category: DSPUTL File: SB&DSP::MS 


Narie:(S) DSPRST - Display reset 


Purpose: 
Resets display driver pseudo-device: clears buffer, 
display mask, cursor position, first character, 
status, and window. 


Entry: 
Exit: 

P = 0 
Calls: None 
Uses. es) 


Inclusive: C(W),P,DO 


Stk lvls: 0 
History: 
Date Progranner Modification 
10/25/83 BS. Added docunentation = 


6.21 LCDINI - Initialize LCD display 





Category: DSPUTL File: SB&DVR::NS 


Narie:(S) LCODINI - Initialize LCD display 


Purpose: 


6-20 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Display Utilities 


Initialize LCD row driver and contrast, turn display on 


Entry: 

P = 0 
Exit: 

P = 0 

Carry clear 
Calls: None 
Uses....... 


Inclusive: C{W) 


Stk lvls: 0 
History: 
Date Progranner Modification 
10/25/83 BS. Added docunentation = 


6.22 SENDWD - Send Out Width-Sized Chunks to Device 
Category: DSPUTL File: SB&I0::NS 


Nane:(S) SENDWD - Send Out Width-Sized Chunks to Device 
Nane:(S) SNDWD+ - Send Out Wadth-Sized Chunks to Device 


Purpose: 
Send out width-sized chunks to display/printer device. 


Entry: 
STNTRO nust have been set up correctly by CKINFO 
Status bit InhEOL (4): 
QO= send out initial CR-LF if buffer won’t fit in 
first width-sized chunk 
(only if position .ne. 0) 
1= start sending out buffer inmediately, regardless 
if the buffer won’t fit on the first line. 
SENDUD: 
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A(A)= characters (#bytes) in output buffer. 
Di points to output buffer. 

SENDW+: 
B(A)= #character (Hbytes) in output buffer. 
C(A) points to output buffer. 


Exit: 
Pp = 0 
Carry set 
A(A) = 9 
Calls: CSLWP9, CSRWP9, SENDEL, SEND20, D1@POS, B2C95, 
CSLUP, CSRUP 
USES ce e555 


Exclusive: ACA), BCA), C(W), DCA), P, DI, R2 
Inclusive: ACW), B(W), CCW), DCW), P, D1, R1, R2 
Does not change DO, Status 


Stk lvis: 4 
NOTE: 
DO NOT CHANGE DO OR STATUS BITS!!! 
Detarl: 
1614131211109 8 7 65 43 2 1 0 
R2 usage: l#chars in bfr | entry D1 | | 
History: 
Date Progranner Modification 
08/26/82 =N.B. Wrote routine. 


6.23 DSP$O0 - Create String of Readable Characters 
Category: DSPUTL File: SB&I0::NS 


Nane:(S) DSP$0O - Create String of Readable Characters 


Purpose: 


Uy 
ee 
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Adds a string to stack containing all readable chars 
in display buffer. 


Entry: 
P = 0 
D1 points to top of stack 
SO set implies append CR and RIN when done. 
SO clear implies no CR on end and jurp to EXPR when 
done. 


Exit: 
p = 0 
01 points to new string on top of stack 
If Return(SO) set then CR will have been appended 
Exits to EXPR if SO clear. 


Calls: STKCHR, ADHEAD 


Exclusive: R1,D1,A(A),B(W),C(14-0), D(A) 
Inclusive: R1,01,A(R),B(W),C(W), D(A) 


Stk lvls: 3 


Detail: 
Exanines display buffer and copys all "unprotected" 
characters into a string on the nath stack. If SO 
is set then a CR 1s appended following the last char 
in the string. A standard string header is attached 
with D1 pointing to it. If 50 1s clear then the 
routine will jump to EXPR to continue expression 
execute instead of returning. 


History: 
Date Progranner Modification 
07/20/82 B.S. Updated docunentation 


6.24 FINLIN - Finish line in display/video 


Category: DSPUTL File: SB&I0::MS 
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Nane:(S) FINLIN - Finish line in display/video 


Purpose: 
Finishes line in display and video by moving the 
cursor to the far right then sending CR/LF with 
no delay. 


Entry: 
P = 0 


Exit: 
Carry clear 
P = 0 


Calls: CURSFR, CRLF OF 


Inclusive: A(W),B(W),C(W),D(W),00,D1,ST(11-0) 
Stk lvls: 4 


Rigorithn: 
Unprotect last display buffer character 
(This is needed to guarantee that even if the entire 

display line 1s protected the cursor can be moved 
past the last character on the video nonitor line 
which will allow a CR/LF sent to the nonitor to 
position the cursor past the last video line of 
this display line.) 

Send cursor far right. 

Restore protection bit of last character. 

Send replace cursor, CR/LF with no delay. 

Return with carry clear. 


History: 
Date Progranner Modification 
11/01/83 B.S. Added docunentation 
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6.25 PRPSND - Prepare to send buffer to display 
Category: DSPUTL File: SG&SYS: = M$ 


Nare:(S) PRPSND - Prepare to send buffer to display 


Purpose: 
Sends buffer to ascii to display device 


Entry: 
P = 0 
HE XMODE 
B(R) = # of characters in buffer 
QUTBS = pointer to start of buffer 
RO = pointer past end of line 
S-R1-1 contains pointer to end of file 
Exit: 
P = 0 
buffer sent to display 
C(W) = RO 
Calls: SENDWD, SENDEL, CKINFO 
USES. even 


Inclusive: A,B,C,D,D1,00,R1,R2 
Stk lvls: 5 
NOTE: 
This routine’s integrity requires that for sending a 
buffer to a display device, SENDWD, SENDEL, CKINFO 
do not touch RO,R3!1! 


History: 


Date Progranner Modification 


ee ewe eee ww ew ee eee ie ee a ww a ww a ee ee ee we ewe wee 


10/14/82  S.W. Wrote routine 
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6.26 LSTLEN - Calculate fchars to list in display buf 
Category: DSPUTL File: SG&SYS:: MS 


Narie:(S) LSTLEN - Calculate #chars to list in display buf 
Purpose: Calculates nunber of chars in (display) buffer. 


Entry: (OUTBS) = Address of buffer start 
10) = Rddress past last character in buffer 
2 ENTRY POINTS: 
1) LSTLN+ - 1st calls GUTBYT; preserves ist 
5 nibbles of RO. 
2) LSTLEN - Ptr to save in C(A) 


Exit: B(R) = nuriber of characters in buffer 
Carry clear 
Pointer saved on entry 1s restored into RO 
via OBCOLL (collapse of OUTPUT buffer) 


Calls: OUTBYT, AVS=DO, OBLCMP, MFWRNQ 


Uses: 
exclusive... A(R), B, CCA), RO 
inclusive... A-D, P, 01,00, RO 


Stack lvls: 5 


Detail: If #chars to output >=95, then 95 returned 
as nunber of characters in buffer and a 
“Lane Too Long" warning is sent out. 

History: 


- 


Date Programner Modifications 


07/06/82 S.W. Irproved docunentation 
12/21/82 S.N. Added ’Line too long’ 
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6.27 DONNA - Re-pronpt input line 
Category: DSPUTL Fale: TI&ERD:: MS 


Narie:(S) DONNR - Re-pronmpt input line 


Purpose: 
Re-display an input line, with a prompt, and position 
the cursor to any desired point in the line. 


Entry: 

R3(A)= Address of prompt. The pronpt can be any 
ASCII string, delinited with tuo matching 
bytes (delimiters can be any byte value). 

R3(9-5)= Number of cursor-rights to position the 
cursor within the input strean (counted 
fron the first input character). 

INBS contains the address of the input buffer; 
the length of the input buffer 1s contained 
in the three nibbles preceding the buffer. 


Exit: 
P = 0 
Carry set. 
D1=FFFFF. 
Calls: CKINF-, DSPBUF (SENDWD), ESCSEQ, DSPCNA, DSPCHA, 
CURSFL, CURSRR. 
Uses....... 


Exclusive: A(W),B(W),C(W),D(W),DO,D1,P 
Inclusive: sane plus R1,R2 (in SENDWD), STMTRO (in CKINF-) 


Stk lvls: 4 


NOTE: 
The prompt 1s built in the display observing WIDTH; 
the input line is displayed without observing WIDTH. 
Any single-character prompt will not have to worry 
about this, but a multi-character pronpt nay be 
split betueen tuo lines if WIDTH is short. 


The length of the input buffer (found in the three 
nibbles preceding the buffer) must be one greater 
than the number of characters (usually this length 
includes a OD terminator at the end of a BASIC 
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input line). 


Exanple of pronpt: 
Say an editor uses the prompt "Crd:". The address 
in R3(R) would point to the characters xCrid:x 
where the x’s are delimiters, any matching byte 
value. 


Algorithn: 
Turn off cursor. 
Set up CKINFO. 
Display pronpt. 
Redisplay input line. 
Send out a null character (in case input line had 
zero length, this clears display buffer) 
Cursor far left. 
Count cursor-rights, using count in R3(9-5). 


History: 
Date Progranner Modification 
10/05/82 MB Docunentation 


6.28 CURSRT - Count cursor-rights 
Category: DSPUTL File: TI&ERD::NS 


Narie: (S) CURSRT - Count cursor-rights 


Purpose: 
Send out a cursor-far left, then send out a given 
nunber of cursor-rights. 


Entry: 
C(A)= count of cursor-rights. 


Exit: 
P = 0 
Carry set. 
DI=FFFFF. 
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Calls: CURSFL, CURSRR 
Exclusive: 01 
Inclusive: ACW), B(W),CCW), D(H), DO,D1,P 
Stk lvls: 3 
Algorithn: 
Copy counter to Di 


Cursor far-left 
Count cursor-rights until D1 carries 


History: 
Date Progranner Modification 
10/05/82 MB docunentation 


6.29 AVS2DS - AvMenSt to display 
Category: DSPUTL File: TI8ERD:: MS 


Nane:(S) AVS2DS - AvMenSt to display 


Purpose: 
Send ASCII stored at AvMenSt to display. 


Entry: 
P=0 (P is used to select options, nust =0!) 
ASCII characters reside in nenory starting at 
AvMenSt; an FF byte nust intiediately follow 
the characters. 


Exit: 
P = 0 
Carry clear. 
Calls: DO=AVS, DSPBUF 


For all other details, see DSPBUF. 
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History: 
Date Progranner Modification 
06/25/82 MB docunentation 


6.30 DSPCNA - Display by count 
Category: DSPUTL File: TISERD:: MS 


Narie:(S) DSPCNA - Display by count 
Nane:(S) DSPCNB - Display by count 
Nane:(S) OSPCNO - Display by count 


Purpose: 
Send ASCII characters to display, by count. 
DSPCNO -- Counter in B(A), use Output Buffer. 
DSPCNB -- Counter in B(A), use DATO. 
DSPCNA -- Counter in A(A), use DATO. 


Entry: 
DSPCNO -- #characters-1 in B(A), output resides in 
Output Buffer (address in OQUTBS). 
DSPCNB -- #characters-1 in B(A), DO points to output 
DSPCNA -- #characters-1 in A(A), DO points to output 


Exit: 
p = 0 
Carry clear. 
Calls: DOOUTBS (DSPCNO oniy), DSPBUF 


For all other details, see OSPBUF 


History: 
Date Progranner Modification 
06/25/82 NB docunentation 
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6.31 OSPBUF - Send a buffer of chars to display 
Category: DSPUTL File: TI&ERD:: MS 


Nane:(S) DSPBUF - Send a buffer of chars to display 


Purpose: 
Send a buffer of characters to display, allowing 
1) tertiinate buffer on count or FF byte. 
2) observe WIDTH or not. 


P= 0 Send out characters until a terminator 
byte 1s encountered (terrinator byte is 
passed 1n A(B)). Do not observe WIDTH 
(1.e., do not split up display into 
WIDTH-sized chunks). 


1 

| 

| 

| 

| 

| 

| 

| 

| 2 Count characters. Send out characters 
| until counter decrenents (counter passed 
| in A(R)). Doe not observe WIDTH. 

| 

| 

| 

| 

| 

| 

| 

| 


4 Send out characters until a terminator 
byte 1s encountered (terminator byte 1s 
passed in A(B)). Observe WIDTH. 


Note: The conbination "Count characters and 
observe WIDTH" is perforned by SENDWD. 


2 
| 
| If P=2 (send by count): 

| A(A)= characters in buffer. 
| 

| 

| 

| 


4 (send until tertinator): 
ertinator byte 
(used for separate counter). 


Oe 3 
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P = 0 
Carry clear. 


Calls: CSLWPS 
DSPCHA (for entry P=2 only) 
SENDWD (for entry P=0 or 4 only) 


Exclusive: P,A,C,D1,RO(10-5) 
Inclusive: B,D,D00 
R1,R2 and STMTRO (in SENDWO) for P=0 or 4 only 


Stk lvls: 3 


NOTE: 
RO(15-11) and RO(4-0) are not touched by this routine. 


Algorithn: 

Swap P (options) into ST1, swap ST1 into RO(10). 

1} If by count, decrenent counter; if carry, goto 2). 
If by terminator, test match; if match, goto 2). 
If observe width, count buffer length in B(A), 

go to 1). 

Save counter or natch in RO. 
Send out character (DSPCHA). 
Fetch cuunter or match in RO. 
Go to 1). 

2) If observe width, call SENDWD with length in A. 
Restore ST1 fron RO(10). 


History: 
Date Progranner Modification 
06/25/82 NB docunentation 
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t------ fee een anne nnn ne ene eee ee t--------------- =e + 
| | | 
{ DCMUTL - Deconpile Utilities | CHAPTER ? 
| | | 
$n nnn en en ne nee ee ee 2 ee + ¢------------------ + 
7.1. CURSRU - Cursor Up 
Category: DCMUTL File: JP&NEM::MS 

Nane:(S) CURSRU - Cursor Up 

Nane:(S) CURSRD - Cursor Down 

Natie:(S) CURTOP - Cursor Top 

Nare:(S) CURBOT - Cursor Botton 

Nane:(S) DCPLIN - Decompile line and display it 

Narie:(S) DSPLI+ - Display line with cursor on;cale cursor pos. 

Nane:(S) DSPLIN - Display line with cursor on;pass cursor pos. 


Purpose: (Cursor UP, Cursor DOWN, Cursor TOP, Cursor BOTTOM 
FETCH "next line" in progran nenory 
Scroll] Cursor Up | Cursor Down 
Deconpile and Display line with Cursor on 


Entry: CURBOT: Sets Cursor Botton flag sCURBT 
Clear Cursor Up flag sCURUP 

Displays last line of non-null progran 
CURTOP: Clears Cursor Botton flag sCURBT 


Displays first line in a non-null progran 
CURO20: Entry for FETCH u/ CURRL=0 

Assunes sCURBT=0 

Avoids CR/LF and Poll for Cursor UP/DOWN 
CURSRU: Sets Cursor Up flag sCURUP 
CURSRD: Clears Cursor Up flag sCURUP 
DCPLIN: Deconpile & Display Line Entry 

D1 @ Line to deconpile 
DSPLI+: Display line entry in output buffer 

#cursor rights needed will be calculated 

FETCH KEY entry 
DSPLIN: Display Line Entry in Output Buffer 

RUTOX entry 

A(A) = Hbackspaces for cursor position 

= #cursor rights 
QUTBS @ Start of line to deconpile 


7-1 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Deconpile Utalities 


Exit: 


Calls: 


Uses: 


Stk Lyls: 


Detail: 


CURRL = Current line# referenced 
Rfter FINDOL call: 
SO=0 if Line# > found 
SO=1 1f Line# not found 
S1=1 af Null progran nenory 
DO = Previous Line found 
D = End of current progran 


If Private progran 
Error Exit <-- eFPROT 
If not BASIC progran 
Pell on pCURSR 
If no response: 
Error Exit <-- eF TYPE 
If no CURRent Line # or Null Progran file 
Return to Main Loop 
else 
D1 = Start of line to Deconpile 
Decompile & Display line u/ Cursor 
Return to MAIN3O to preserve display 


FINDL, LDCOMP, BF 2DPP, DSPCHO, NXTLIN, RDCHDR 
NULLP, BLODSP, FPOLL, CURRLO, DO=OBS, CURSRT, 
CRGTPR (CRIFSD & GETPeF) 


R-0, D0, D1, CURRL, RO-R2,S0,S1, $5-S8 
For Cursor entry: sCURUP ($2), sCURBT (S3) 


sCURUP = Cursor Up 
sCURBT = Cursor Botton 
RO= # backspaces for cursor position after line# 


5 


sCURBOT, sCURUP set/cleared for pCURSR to guarantee 
unique determined of Cursor key. | 


CURBOT: 


CURTOP: 
0: 


0.5: 


Ciear Cursor Up flag (sCURUP ) 

Set Cursor Botton flag (sCURBT) 

goto 0: 

Clear Cursor Botton flag (sCURBT ) 

Set Cursor Up flag 

Send Carriage Return / Line Feed (CRGTPR) 

If Private Program (GETPeF ) 
Error Exit (eF PROT) 

Set status to check file type & error (S9) 

If non BASIC progran (Carry set) 
Poll for Cursor keys (pCURSR) 


v2 
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Error exit if no response (eF TYPE) 
CURO2Z0: If NULL Progran 
golong MAINLP 
If CURTOP 
Position to line# of First line (D1+1EOL) 
go Deconpile and Display line (DCPLIN) 
else 
go Find Last Line in file 
Linet <--- FFFF (goto 3) 
CURSRU: Set Cursor Up flag (sCURUP ) 
Set Cursor Botton flag 
goto 1; 
CURSRD: Clear Cursor Up flag (sCURUP) 
Clear Cursor Botton flag 
1: Send CR/LF (CRGTPR) 
If Private progran (GETPeF ) 
Error Exit (eF PROT) 
If non-BASIC progran (Carry set) 
Issue pCURSR poll (goto 0.5) 
Read current Line# (CURRLO) 
3: Find Line# (FINDL) 
If Line# NOT found (Carry clear) 
If Cursor Down 
If Line# > found (SO=0) 
go Deconpile & Display line (DCPLIN) 
else 
If NULL progran (S1=1) 
goto Main Loop 
else 
go Deconpile previous line (goto 4) 
If Cursor Up (sCURUP ) 
If NULL progran (S1=1) 
goto Main Loop 
else 
Get First line of file (RDHDR1 ) 
go Deconpile previous|first line (goto 4) 
If Line# found (Carry set) 
If Cursor Doun 
Save current line position (B) 
Get next line C(NXTLIN) 
If next line >= End of progran 
Next line <-- Saved current line 
go Decorpile & display line (DCPLIN) 
If Cursor Up (sCURUP) 
4; If previous line # 0 (00) 
Next line = Previous line 
else 


D1 @ Line to Deconpile & Display 


DCPLIN: Deconpile line @ D1 
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Calculate # backspaces to space after linet# 
DSPLIN: Display line 


Send prompt (BF 2DPP) 
Send buffer (DSPCNO) 
Send backspaces (cursor rights) (CURSRT) 
Build display (BLDDSP) 
Return to Main, Keep display (MAIN30) 
History: 
Date Progratiner Modification 

03/01/83 JP Added pCURSR poll on File Type 

04/12/83 JP Ignore CURRL=0 

04/12/83 JP CURO2Z0 entry point for FETCH 

07/15/83 JP Send CR/LF before Private check 


7.2 EXPRDC - Expression Deconpile 
Category: DCMUTL File: SB&EXD:: NS 


Narie:(S) EXPRDC - Expression Deconpile 
Nane:(S) EXDCLP - Funny function decompile reentry point 


Purpose: 
EXPRDC: Deconpile expression lists 
EXDCLP: This is the point where funny function 
deconpile routines should reenter the expression 
deconpiler. 


Entry: 

EXPRDC: 
fO=Qutput strean pointer 
Di=Input strean pointer 
D(A)=End of avail nen pointer 
A(B)=Contents of MEN(D1) 
P=0 

EXDCLP: 
D1 1s current input pointer(past FFN tokenization) 
DO is current output pointer(past FFN text) 
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Exit: 
DO=Upda 
D1=Upda 
A(B)=Fi 
Carry c 
P=0 


Calls: 


Uses....... 
Inclusive: 


Stk lvls: 
Detarl: 
RO 
R1 
R2 


Explana 
Nullo 


Denat 


IOS - Entry Point and Poll Interfaces 
ties 


ted output pointer 

ted input pointer(First unused byte) 
rst unused token 

lear 


VARDC , MOVEDO , RANGE , DRANGE, OUT1TK, OUTNBC , NENERR 


A,B,C, RO,R1,R2, SO, $3, $8,810,511, D0, DI 


4 
= Output pointer @ entry 
= Tenporary input pointer, Sign holds text len 
= Function text 


tion of terns used: 

p -- This a © byte which is used to preserve 

a spot in the output strean to insert an 
operator later. It also 1s used as a marker 

to help find the spot later. 

ure -- Once operators have been enclosed in 
parentheses or in a function call, the 

of that operator 1s no longer of any 
consequence to the rest of the expression. 

To prevent operators so enclosed fron affecting 
precedence, they are changed (denatured) in 
such a way that they do not look like operators 
but can be recogized later shen the tine cones 
to expand the operator token into the text 

that corresponds to the token. 


The expression deconpiler keeps track of 
uhether the expression has the forn of a 
reference expression. To do this, 1t uses two 
status bits, NewYal and OldVal. Each pass 
through the decorpile loop, the NewVal flag 

is copied to the OldVal flag, and the NewVal 
flag set, then if the token being decoripiled 
ig a variable or an array token, the NewVal 
flag is cleared. When the loop finally hits 

a token which terrinates the expression, the 
OldVal flag will be clear only af the last 
token in the expression 1s not a variable or an 
array. This 1s equivalent to whether the 
expression has the form of a value expression. 
If the token that terminated the expression 
was a cal] by value token and the OldVal flag 


7-5 


HP-71 Softuare IDS ~ Entry Point and Poll Interfaces 
Deconpile Utilities 


was left clear, then an extra set of parenthesis 
1s placed around the entire expression. This 
feature is used in SUB decompile. 


Algorithn: 
Expression deconpile converts an RPN string of 
operands, operators and functions to an algebraic 
stream of characters. The RPN strean 1s exarined 
an item at a tine starting at the beginning (lowest 
address). There are several types of iters which 
nay be encountered in the stream. The following 
summarizes that happens for each type: 
Operands -- output a nullop followed by text for 
constant 
Single digit constants 
Integer constants (2-12 digits) 
Floating point constants (1-12 digits) 
String constants (single or double quoted strings) 
Alpha variables 
Alpha-digit variables 
String alpha variables 
String alpha-digit variables 
Monadic operators -- search back for a nullop, 
insert operator token just after nullop, 
insert parentheses around that area if an 
operator of lower precedence 1s there. If 
parentheses were inserted then denature any 
operators enclosed therein. 
Unary minus 
NOT 
Dyadic operators -- search back for a nullop, 
replace this nullop with the operator token, 
insert parentheses around that area if an 
operator of equal or lower precedence is there. 
If parentheses were inserted then denature any 
operator enclosed therein. 
Now search back for another nullop, insert 
parentheses if any aperator of lower precedence 
Has encountered and denature all operators 
within these parentheses. 


IV 


pe +e TOR ™ FF OD 


Relops 
RND 
OR 
Functions -- Deterriine number of paraneters. 3 5 
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If the function has no parameters then treat 
it like an operand. If it has nore than one 
paraneter then for each “extra” parameter look 
back for a nullop and replace it with a conna. 
Non search for a nullop and insert the function 
nane and a left parenthesis just after it and 
denature all operators between it and the 
end of the output where a closing parenthesis 
1S appended. 

Furiny Functions -- Output a nullop and the text 
for the function nane then call the functions 
“deconpile" routine. 

LPRP token -- Output a left and right parernthesis. 


When any token other than one of the above is 
encountered, that marks the end of the expression. 
The entire output stream 1s noved fron the beginning 
of available nenory to the end of available menory. 
Now the copy back process begins. The first byte 

of the output strean should be a nullop and is 
ignored. Each remaining byte in the output 

strean 1$ copied back to the beginning of available 
nenory except that operators (and denatured operators) 
are expanded to their full text representation and 
any enbedded nullops are converted to contias. 

When a single or double quote 1s encountered, bytes 
are copied verbatin until the corresponding closing 
quote 1s found. 


History: 
Date Progranner Modification 
06/24/82 B.S. Updated docunentation 
11/09/82 B.S Merged Dunny array decorpile 
into expression deconpile 
08/30/83 Fixed bug in DNATUR (39-1017(3)) 


B.S. 
09/06/83 —s-B.S. Added to docurientation 
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7.3. HXDASC - Hex to decirial ASCII conversion 
Category: DCMUTL File: SB&EXD:: MS 


Nane:(S) HXDASC - Hex to decinal ASCII conversion 
Purpose: 
Converts a byte to a 3 character decimal ASCII string. 
Output string contains leading zero(s) if <1. 


Entry: 
A(B) contains byte to convert 


Exit: 
B(15-10) contain 3 ASCII decimal digits 
P = 0 


Calls: None 


Inclusive: B(W),A(B),C(S),C(B) 
Stk lvls: 1 


History: 
Date Prograriner Modification 
09/06/83 «B.S. Added docunentation 
7.4 ARITH - Get Text For An Arithnetic Operator 


Category: DCMUTL File: SB&EXD:: NS 


Nane:(S) ARITH - Get Text For An Arithnetic Operator 
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Purpose: 
Returns text for an arithnetic operator 


Entry: 
Pp = 0 
A(B)=arithnetic operator 
Exit: 
P = WP length of text of arithnetic operator 
C(WP) = Text for arithnetic operator 


(First ASCII char is in low C, last in high) 
Carry clear 


Calls: None 

Uses....... 

Inclusive: A(X),C(W),P 

Stk lvls: 0 
History: 

Date Progranner Modification 

08/01/82 SRA Wrote routine 

10/19/82 B.S. Rdded docunentation 


7.5 (DCONP - Line Deconpile Driver 
Category: DCMUTL File: SG&LDC::NS 


Nane:(S) LDCOMP - Line Deconpile Driver 
Narie:(S) LOCM10 - Line Deconpile Driver 
Nare:(S) LDCEXT - Line Deconpile Driver 
Nave: (S) LDSST1 - Line Deconpile Driver 
Nane:(S) LOSST2 - Line Decoripale Driver 
Purpose: 


LINE DECOMPILE DRIVER 


Entry: 
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Exit 


P=0 
D1 @ BEGINNING OF COMPILED LINE IN RAN. 


LDCOMP: 1) Updates current line 
2) Clears SST flag 
3) Deconprles entire BASIC line 
LOCNIO: Does 2 & 3 above 
LOCEXT: Sane as LDCM10, EXCEPT that this 1s 
used to ’externally invoke’ decompile. 
Any nerierr will return control to caller 
With carry set. 
sSSTdc=1 => only decornpiles 1 stnt at a tine 
LDSST1: SST entry for Deconpile u/ Line# 
Ascunes sSS$Tdc (St) set appropriately 
LDSST2 : SST entry for Multi-stnt Line 
Assumes sS$Tde (S1) set appropriately 


Normal entry: 
Carry Clear (through LSTLEN exit) 
Decorpiled Line sent to Input/Output Buffer 
RO past tEOL 
If LDSSTI/LOSST2 entry 
D1 @ Tokenized Statement Terninator 
BCA) = BUFFER LENGTH (#CHARACTERS) 
Output Buffer collasped --> AVMENS <-- QUTBS 


If LOCEXT entry is used: 
Carry clear => nornal exit 
DO) past ascil strean 
QUTBS is start of ascii strean 
ACA) past tEOL of line deconpiled 
Carry set => Menerr 


Calls: RTNSET, SAVELH, LOCSET, LINHDC, GTXT+1, AD1+2, 


Exclusive: R-D 
Inclusive: A-D 
S-R 


"DC (OUTBYT), ASCICK, 'TEST, GTEXTI, OUTNBC 
LINAAU 


- 


3, 85,S6,87,S88,sSSTde ($1) 
3,35, 56,87,S8,51, RO-R2, 
(1f LDCEXT entry used) 


, 90,5 
, 90,38 
1RTN 
sSSidc = SST Deconpile - GLOBAL throughout deconpile 
S6 (VARDC),S8,CURRL 


RO = Pointer past tEOL (provided LDCEXT not used) 
R1 = Preserved 01 
R2 = Nain Table Address 


R3 cannot be used, it 1s used by "LIST" 
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SAVES NEW LINE# INTO CURRL (UPDATES CURRENT LINE) 
CLEARS S8 FOR ALL BEGIN BASIC DECOMPILE STATEMENTS: 
(CURRENTLY USED BY LISTDC & USER/BEEPDC ) 


Stk lvls: & 
Note: 


No single Vecorpile routine can used more then 6 lvls 
EXPRDC uses 4 subroutine levels 


sSSTde (S1) must not be used by individual Deconpile 
routines 


Any deconpile routine that POLLs must set AVMENS at 
the Current DO (call AVS=DO). This prevents the Poll 
Save area fron overwriting the Output Buffer. 
Deconpile, on exit, mili set AVMENS back @ OUTBS. 


History: 

Date Programner Modification 
07/13/82 J.P. Modified docunentation 
08/90/82 IP. Fixed SSi/ELSE decompile 

7.6 GTEXT - Get Text for Keyword/Func tion 


Category: DCMUTL File: SG&toC:: nS 


Nane:(S) GIEXT - Get Text for Keyword/Function 
Narie: GIEXTIN - Get Text for Keyword/Function 
Narie: GTEXTX - Get Text for Keyword/Functisn 
Purpose: 


Get Text for Keyword or Function 


Entry: 
DO pointing into output buffer 
D(A) contains available memory end (AVHEME) 
GTEXTI: A = flain token | XUGRD token | XFN token 
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D1 = At Keytiord | Function token 
D1 increnented by 2 on entry 
P=0 


GTEXT: A = Main token | XWORD token | AFN token 
DY = Past Keyword | Function token 
P=0 


GIEXTM: Mainfrane Lex Table used 
D1 = Past Keyword | Function token 
P=0 


GTEXTX: XWORD Lex Tables used 
D1 = Past XWORD | XFN token 


Exit: 
P=0 
Carry Clear 
A = Text 
C(S)= # nibbles - 1 
D1 @ Execution address for token 
Ri = Di on entry (Pact token) 
D1i+4 on entry if ZWORD (Past Lex ID and Entry#) 


Carry Set 
XWORD | XFN not found 
D1 @ BI on entry ( @ lex ID ) 


Calls: ARTADR, MTADR+ 


Exclusive: A, 
Inclusive: fi, 


1 @ entry 


R p 
R Main fable Address 


j= 
2: 
Stk Ivis: 2 
Algorathri: 


GTEXTI: Increnent D1 past token 
GTEXT: If XWORD or XFN 
gato GTEXTX 
GTEXTN: Load MAINT address 
Save token --> BCA) 
goto 1; 
GTEXTX: Read LEX ID, Entry# 
Calculate Mair Table address (XNTRDR) 
Tf address NOT found ---> RING 
Skip ove; LEX ID and Entryk 
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07/13/82 J. 


: Save 01 (R1) 


Save Main Table Address (R2) 

Calculate Start of Text Table 
yxt Thl Rel Addr Ptr @ Nain Table Addr - oSPDn2 + 14 
Tet Tol Start = Txt Thl Ptr + (Txt Tbl Ptr) 

Bi <-- Text Table Start 

C <-- Main Table Address (R2) 

Calculate Entry into Main Table (MTADR+) 

Read Text JTable Offset 

Read Execution Address & Save it (R2) 

Conpute Entry into Text Table 


Read # ritbles for text (C(S)) 
Read ASCII Text (A) 
Set Bi = Execution address (R2) 
RINCC 

Progranner Nodification 


Nod) fied docunentation 


P, 
O8/17/82 3H. Added GTEXTI entry point 
P. 


De 
12/00/82 J. 


i 
History: 
Date 


Fived XWORD not found exit conditions 


7.7? LINKDC ~- Line number deconpile 


Category: DCMUTL File: SG&LDC::MS 


Nane:(S) 
Nane:(S) 
Nane: (5) 
Nane: 
Nane: 
Purpose: 
Entry: 


a 


LIN#UC - Line nunber deconpile 
LINKD+ - Line nuriber decorpile 
LINHAU - j.ine nurtber decoripile 


LINHR+ - Line nuriber deconpile 
LINHCK - Line nuriber decompile 


Deconpiles a line number & outputs it 
P=0 
D(A} points to end of available nenory (AVNENE) 


DO positioned at where deconpiled line nunber to go 
5 ENTRY POINTS : 


7213 
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Exit: 


Calls: 


Uses: 


Stack Ivls: 


History: 


07/06/82 
10/18/82 


2) LINHD+ 


1) LINHCK - Returns uitnh carry set if ACB) # tLINER. 


Otherwise, falls into LIN#D+ entry pt. 
Assunes D1 1s 7 nibs prior to Ist 
digit of 4 nibble line nunber 

(2 nib line# token, 5 nib junp addr) 
Suppresses leading 0’s 


3) LINKDC - Sane as above, except assunes that 01 


1s pointing to ist digit of line nurnber 


4) LINHAU - Used by TRACE - also suppresses leading 


zeroes, 

P=@ => 4 digits output, leading zeroes 
suppressed. 

P=12 => Convert fron HEX to DEC. 2 
digits output, up to 4 leading 
ceroes suppressed. 

P=14 -> Convert fron HEX to DEC. 2 
diaits output, up to 6 leading 
zeroes suppressed. 


5) LIN#A+ - Used by Syster command AUTO - save as 


above except line# already in B(3-0) 
DO updated/ P=0/ Carry clear 
LINHAU, LINHA - D1 left intact 
LIN#DC, LINHD+ ~ 91 stepped over 4 nibble line# 
DOASCI 
A, 8, C, DCS), P 
2 


Progranrier Modifications 


S.W. Added docunentation 
S.W. Added P=0 entry condition 
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7.8 ASCICK 


- Ascii Strean Deconpiler 


Category: DCMUTL File: SG&LDC:: AS 


Nane:(S) ASCICK - Ascii Strean Deconpiler 
Nane: ASCO2 - Ascii Strean Deconpiler 
Purpose: Outputs strean of ascii characters 
Entry: 3 ENTRY POINTS : 
DO points to here output to go 
D(A) contains end of available nenory (AVMENE) 
1) ASCI+ - D1 at 2 mibs prior to alleged start 
of strean. 
2) ASCICK - D1 at start of alleged ascii strean. 
3) ASCO2 - Sane as (2) above, only 1st character 
already known to be ascii & 1s in C(B) 
Exit: Carry clr 
D1 past the ascii strean 
C(B) contains ’terrinating’ 1-byte token 
Calls: OUTBYT 
Uses: A(B), C(B), D1, DO 
Detail: If there’s no ascii characters, nothing will be 


output & D1 will be left at ist token 
Interprets as ascil any 1 byte token in which 
bit 7 is clear. 


Stack lvls: 2 


History: 


07/06/82 


Progranner Modifications 


S.W. Inproved docurentation 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Deconpile Utilities 


7.9 ARYDC ~~ Array Deconpile 
Category: DCNMUTL File: SG&LDC:: MS 


Nane:(S) ARYDC - Array Deconpile 
Purpose: Decorpiles Array compiled in ARRYCK format 


Entry P= 0 

DCR) contains available nenory end (AVNENE}) 

DO paints into output buffer 

2 entry points: 

1) ARYDC - Assunes C(B)=al 
D1 at first subscript, $5=0 

2) ARYDC+ - Checks for substring declaration (tSEMIC) 
in ACB). If not found, returns u/carry set. 
Else D1 stepped over tSEMIC & expression 
deconpiled enclosed in brackets. 


Exit: 

Carry clear=> 

subscripts output between parens (or brackets) 
parens (or brackets) 

D1 at token following last subscript 
A(B) contains the token 
If ARYDC+ called, S5=1 

Carry set (ARYDC+ entry only) => 
No subscript decl. found 


Calls: OUTBYT, OBEXPR 


Uses: A> 015 00,35 
RO-R2, SO,53,$8,510,511 -- EXPRDC 


Stack lvls: 5 


History: 

Date Progranner Modifications 
07/06/82 S.W Inproved docurentation 
08/16/82 S.W. Added ARYDC+ entry 
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7.10 GTEXT+ - GTEXT Preprocessor 


Nane: 
Nane: 
Nane: 
Narie: 


Category: DCMUTL File: SO&LDC::MS 


(S) GTEXT+ - GTEXT Preprocessor 
(S) GIXT++ - GTEXT Preprocessor 
(S) GIEXT1 - GTEXT Preprocessor 
(S) BLNKCK - Blank Check 


Purpose: 


Given a keyword, GTEXT+, GIXT++, and GTEXT! outputs 
the corresponding text. 


The BLNKCK entry point ensures that there is exactly 
one blank after the last iten deconpiled. 


Entry: 


Note: 


Exit: 


For all entry points: 

P = 0 

D(A) = AVMEME 

DO = Ptr to output buffer 


BLNKCK entry: 


ee ee 


No additional entry requirenents 


GTEXT+, GTXT++, GTXT1 entry: 
S9=1 => Output a trailing blank 
D1 at keyuord 


1) GIXT++ - Outputs a leading & trailing blank 
Sets $93; Doesn’t attenpt to deconpile 
text 1f token < 7E 

2) GTEXT+ - Doesn’t attenpt to decorpile text if 
token < 7£ 

3) GTEXT1 - Assunes A(B) already loaded with token 
greater than 6A. No leading blank output 


Can’t call 1 or 2 above if want to output text 
associated with a keytiord in the range 6A-7D 


GTEXT+, GTXT++, GTEXT1 entry: 


fete 
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Call 


Uses 


Stk Ivis: 


P 


= 0 


S93 set if GTXT++ used 
Carry set => Keyword not found, D1 intact 


clr => Text output, D1 past token, 00 advanced 


BLNKCK entry: 


Exactly 1 blank follows last iten deconpiled. 
DO points past that blank 


S. 


History: 


08/12/82 


7,14 


OUTELA 


GTEXTI, OUTBYT, OUTNBS 


R-C, R1I-R2, D1, D0 (GTEXT1, GTEXT+ entry) 
A-C, R1-R2, D1,D0, S9 (GTXT++ entry) 
A(B),C(B), 00 (BLNKCK entry) 


2 BLNKCK entry 
3 All other entry points 


Progratner Modification 


mem eww mw ee ee ew ee ew te ew we we Eee 


S.W. Routine created 


- Qutput End of Stnt Terrianator Fron R 


Category: DCMUTL File: SG&LOC::MS 


Purpose: 


Entry: 


° 


QUTELA - Output End of Stnt Terninator Fron R 
QUTEL1 - Exit for End of Strt Deconpile 
EOLKXC* - Check for End of Stnt Deconpile 
TRACDC ~- TRACE Statenent Deconpile 


RENDC - REMark or DATA Statement Deconpile 
CUTEOL - Output End of Statenent 
ENDDC - Deconpile END Statenent as, 


Entry points to handle end of statenent deconpile 
and nisc statenent deconpile 
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P=0 
G(A) contains AVNENE 
D1 points inte token strean 
DO paints into ascii output buffer 
ENTRY POINTS: 
1) OUTELA - also STOPDC 
D1 at statenent terminator (already read 
into A(B)) 
2) GUTEL1 - End of statement deconpile 
Di at statenent terminator 
3) EQLXC* - Doesn’t return if D1 is at strt 
end, eise does 
4) TRACHC - TRACE and DEFAULT deconpile 
Gutputs single keyword - no blanks 
5) RENDC - also DATADC; Dt pointing after 
tREM or tDATA. 
) GUTEGL - D1 at tEOL 
) ENDOC - Looks for AL! token 
Falls inte OUTELI 





6 
? 


Exit: 
If not called externally, exits via LSTLEN 
with carry clear 
If upon entry, D1 at tEOL or t! : 
D1 at tEOL, 01 untouched 
DO pts past last decompiled char 
B(R)=#chars in buffer 


If upon entry, D1 at tELSE or t@ : 
Decorpile 1s continued, via ELSEDC & 
LDCN20, respectively. 

Tf SST deconpile and ELSE 
ELSE staterient NQT deconpile 
Junp to tEOL processing 

Tf SST deconpile and Multi-statenent line 
Deconpile does riot continue 
Don't decompile past @ 

REN/DATA entry points - statenent decorpiled 


Calls: BLNKCK, OUTITK, EOLDC, GTEXTt, "TEST, OUT2TK, 
TRNFCK, REMP1O 


Stack lvls: 4 
Uses: sSSTde (S81) 


History: 


Paya 
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07/07/82 
08/30/82 
10/27/82 


7.12  YARDC 


Progranner  ficdifications 

S.u. Inproved docunentation 
J.P. Added SST/ELSE checks 
iP Added END ALL Deconpile 


Variable Deconpile 


Category: OCNUTL File: SOG&LOC: 25 


Narie:(S) VARDC - Variable Deconpile 
Narie: VARDC+ - Variable Deconpile 
Purpose: Deconpiles variables 
Entry: 
P=O 
D(R) contains available nenory end (AVMENE) 
D1 = input pointer 
DO cutput pointer 
$8=1 => no attempt to decompile arrays 
{used by EXPRDC) 
2 entry points: 
1) VARDC+ - D1 2 nibs before alieged variable 
2) VARDC - D1 at alleged variable 
Exit: P=0 


Regardless of S8: 

Carry clr => Variable found & deconpiled 
Di past variable token 
A(BjJ=B(B)~ following token 


$8 clr on entry: 

Carry clr => If S6 set, then deconpiled 
variable descriptor of array 

Carry set => no variable found 


S8 set on entry: 

Carry cle => OO byte output prier ta deconpiled 
Varlabe. 

Carry set =, either ssriaole not found or 
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Cails: ADDCHR, RANGE, GUTNES 

Uses: A, 6, CCS), CCR), Sé 

Stack lv'ts: 1 

History: 

Date Progranner Modifications 


C//06/82 SM. Inproved documentation 
TO/18/82 SLU. Added P=O entry condition 
06/09/83 = Sib. Changed A=B B => A=B A (pack) 


7.13 LABLDC - table Deconpile 
Category: DBCNUTL File: SG&LOC:: MS 


Nane:(S) LABLDC - Lable Deconpile 


Purpose: 
Deconpiles label references 


Entry: 
D1 at tLBLRF 
BO output pointer 
P=0 
D(R) contains available rienory end (AVMENE) 


Exit: 
P= 
Carry clear 
01 past string expression or literal 
DO past deconpiled label) 


If string expression, through EXPRDC 
else through DUTBYT 


Calis: RO142, ASCICK, OUTBYT 
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Inclusive: A,C, Bi, 00 
Exclusive: Q-C, DI,DO, RO-RZ, S80,83,58,S810,811 - EXPRDC 


Stk lvls: 4 
Detail: 

tLBLRF tLITRL <asci label> 

tLBLRF <string expression> 
History: 

Date Progranrer Modification 
07/13/82 J.P. Modafied docunentation = 
7.14 FILDC® - File Deronpiie 
Category: DOMUTL File: SG&LOC:: NS 


Name: (5) FILDC* - File Deconpile 


Purpose: Gerornpiles mainfrane file specifiers & HPIL file 
specifiers if HPIL plugged in 


Entry: 

P=0 

D(A) contains available nenory end 

MM) output pointer 

2 entry paints: 
1} FILDC+ - D1 hasn’t yet been increnented. 
©) FILDC* - 11 already at file spec 


Exit: BY past fale specifier 
File specifier deconpiled, with DO updated 
P=O 


Calls: POLLO+, QUTWRS, ASCICK, EXPROC, OUTITK, GTEXT+, 
FINDA, D=AVAF 


Uses. 98,99, a-f, DI,DO, R1I,R2 


a 
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A-C, D1,D0, RO-R2, SO,S$3,S8,S10,S11 -- EXPRDBC 
Stack lvls: § 
Detail: Will check for tKEYS, tCARD, tPCRD 


Assunes that non-nainfrane file specs are 
tokenized with preceding tCOLON. 


Must immediately precede SKIPDC code, since it 
falls into SKIPDC. 


History: 
Date Progranner fodifications 
07/07/82 = S.W. Inproved docunentation 


7.15  SKIPDC - Skip Rest of Staternent Deconpile 
Category: DCMUTL File: SG&LDC::hS 


Nane:(S) SKIPDC - Skip Rest of Staterient Deconpile 


Purpose: 
When an unrecognized token 1s encountered, deconpile 
of that statenent cannot continue. SKIPDC skips 
D1 to the end of that statenent. 


Entry: 
(INADDR) = Address of the statenent length byte of 
the statenent currently being deconpiled. 


Exit: 
D1 points to the statenent terninator byte in the 
token strear. 
Exit as via OUTELT. 
ACA)= Staterent Length for the statenent skipped. 
C(A)= 01 


Calls: None 
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Uses: ACR), CCR), BI 
Stk lvls: 0 
Detail: Must inmediately follow FILDC 
History: 
Date Progranner Modification 
11/08/83 S$. Added docunentation header 


7.16 LISTDC - Decompiles LIST, RENUMBER, SECURE, NERGE 
Category: DCMUTL File: SG&LDC::MS 


Nane:(S) LISTOC - Deconpiles LIST, RENUMBER, SECURE, NERGE 
Purpose: DECONPILES LIST, SECURE, MERGE STATEMENTS 
Entry: P= 0 
D1 past begin BASIC token 
DO output pointer 
D(A) contains available menory end (RYMEME) 
Exit: via QUTELA 
Calls: FILDC, LINADC, EOLXC*, CONTST, OUTBYT 
Uses: A-C, D1,00, $8.89, R1,R2 
A-C, D1,D0, RO-R2, S0,S3,S8,S810, S11 -- EXPRDC 


Detail: EXPECTS THAT S8 WILL BE CLEAR UPON ENTRY 


History: 
Date Progranner Modifications 
08/29/83 = S.W. Added docunentation header 
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7.17 PRTIHDC - Port# Deconpile 


Category: DCMUTL File: SG&SYS::NS 


Nane:(S) PRTHDC - Port# Deconpile 


Purpose: 
Decornpiles a port nunber 


Entry: 
P = 0 
D(1)= Port#, B(O0)=Extender# 
DO positioned for output (Next 10 nibs blank-filled) 


Exit: 

P = 0 

DO increnented by 10 (past trailing blank) 
Calls: HEXDEC, CAT$70 
Uses....... 


Inclusive: A,B,C,P,D0 


Stk lvls: 1 
History: 
Date Progranner Modification 
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08/13/83 = S.W. Added docunentation 
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7.18 FTYPDC - File Type Deconpile 


Nare: 


Category: DCNUTL File: SG&SYS::NS 


(S) FTYPOC - File Type Decorpile 


Purpose: 


Decorpiles File Type 


FIYPD+ checks to ensure there’s enough nenory 
to output deconpiled file type. 


FIYPDC assumes there’s enough nenory. 


Entry: 


Exit: 


DO past a blank (pointing to output buffer) 
D1 pointing at 4 nibble file type# 

2 ENTRY POINTS: 

1) FTYPD+ - D(A) = AVMEME 

2) FIYPDC - P=0 


5 character file type written to where DO pointed; 
DO past outputted file type; D1 as it was upon entry 
Carry clear 


P=0 
Calls: FTYPFD, CAT$90, CAT$95, ODUTNBS, RDENTY 
Uses: A-C, DO, RO, P 
Sth lvls: 3 
History: , 
Date Progranner Modification 
10/21/82 SM AO W <= A=0 A 
06/10/83 SLU, Call CAT$95 to output ’-’ 
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} EXCUTL - Execute Utilities i (CHAPTER 8 
| i 
+ wm ee OOO ee eS ~~ ewer ann nm wer REO Ema READS + ee oe we me 0m oe om ee we 
8.1 SVTRC - Save Trace infarnation In Stnt Scratch 
Category: EXCUTL File: ABARSN: MS 
Nane:(3) SVTRC - Save Trace Information In Stmt Scratch 
Purpose: 
Save trace informetion in stnt scratch. 
Entry: 
DO = trace infornation. 
Exit: 
Copy of information in C{A}. 
Infornation saved in S-R1-2. 
Calls: None. 
Uses....... 
C{A) 
Stk lviIs: 9 
History: 
Date Progrannmer Modification 
SR Wrote - 
11/01/83 9 NM Attenpted to docunent 
8-1 
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EXPEXC - Evaluate Expression 
Category: EXCUTL File: ABAEXP:: MS 


Narie:(S) EXPEXC - Evaluate Expression 


Narte: EXPEX1 - Evaluate Expression 
Narie:(S) EXPEX- - Evaluate Expression 
Nanie:(S) EXPEX+ - Evaluate Expressiori 
Purpose: 


Initiate evaluation cf an expression. 


Entry: 
HEX node. 
DO pointing to start of expression. 


Exit: 

Carry clear. 

D1 pointing at top of mathstack, which contains 
whatever results the expressions put there. 

DO pointing past expression. 

A[W] = 16 nibbles at top of stack (==result if this 
is a REAL numeric expression). 

If the last iter in the expression was a variable, 
inforration is left in certain registers for use 
by the DEST routine. See the documentation for 
DYNANC and STATIC in this nodule. 


Calls: COLLAP, GETST. Exits through EXPR. 


Everything available to functions: 
ALL-CPU REGS, Function Scratch, SCRICH, 


Stk lvls: 4 (4 levels available to functions invoked) 


Note: 
EXPEXC and EXPFK1 are different names for sane entry 
point. s 


Rigorithn: 
EXPEX-: Collapse nathstack to forstk. 
Coto expexc. 
EXPEX+: Save CFU status bits im STSAVE. 
EXPE X1: 
EXPEXC: 1 = (ATHSTK). 
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Go to EXPR {1.e., evaluate expression}. 


History: 
Date Progranmar Modification 
SA Wrote 
10/13/83 MM Atternted to docunent 
8.3 FNRINI - Function Return 


Category: EXCUTL File: AB&EXP::NS 


Nane:(S)} FNRTN1 Function Retura 
Nane:(S) FNRIN2 Function Return 
Nanes(S) FNRIN3S - Function Return 
(3) 
(S) 


Nane: FNRTNG Function Return 
Mane: (S) EXPR - Function Return 


Purpase: 
Return to expression execution controller after 
evaluation of a function or operator. 


Entry: 

FNRTNT: DO = PC. 

D1 = stack pointer. 

Nunber to be pushed on stack in C[W]. 
FNRTNC: ALA) = PC. 

D1 = stack pointer. 

Nunber to be pushed on stack in ¢[k]}. 
FNRTNG: ALR] = PC. 

D1 = new stack pointer (pointer already 
decrenented for storing result and stack 
collision check already perforred). 

Nunber to be pushed on stack in C{W). 

FNRTN4: DO = PC. 

D1 = new stack pointer (pointer already 
decremented for storing result and stack 
collision check already perforred), 

Nunber to be pushed on stack in C{W}. 

EXPR: DO = PC. 


ooh 
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ht = stack pointer. 
Resuit has already been put on stack. 


Exit: 

Continues evaluation of exvression. Returns to 
whonever called expression execution controller when 
expression is dane. 

Return conditions at that tine: 

Carry clear. 
D1 at top of stack. 
DO = PC, 18 past expression. 


Calls: None. 


Everything availabie for functions. 


Stk lvls 4 
History 
Date Progranner Modification 
Sonate nar Te arg ee 
10/13/83 NM Attempted ta docunent 


8.4 OQOUTRES - Round And Return Result 


Category: EXCUTL File: ABSFCN: AS 


Rane: (S)} QUTRES - Round And Return Result 


Purpose: 
Round result according to IEEE rounding rules, put on 
nathetack and reenter expression execution controller. 


Entry: 
Result in (A,3), SB, XM and P as per uRESI2 entry 
candi tions. 
Di = tap of math stack 
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Exit: 

Through EXPR. 
Calls: uRES12. 
History: 

Date Progranner Modification 
SA Wrote 
11/01/83 oN Attempted to docunent 
8.5 LIMITS - Compute Dinension Limits In Dec] Stnt 


Category: EXCUTL File: AB&REG:: MS 


Nane:(S) LIMITS - Conpute Dimension Limits In Decl Stnt 
Purpose: 
Conpute the dinension linits in a declaration statenent 
(INTEGER, REAL, SHORT, DIN). Collapses the stack 
beforehand. 


Entry: 
DO pointing at start of tokenized expression. 


Exit: 
DO pointing past expression. 
01 @ top of math stack. 


Calls: COLLAP, EXPEX+. 


Everything available to expression execute. 
Stk lvls: 5 
History: 


Date Progranner Modification 


fe a Feng etme 
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SA Wrote 
10/18/83 9 NM Attempted to docunent 
8.6 HASH1 - Indexed Junp Through A GOTO Table 


Category: EXCUTL File: AB&UTL:: MS 


Nane:(S) HASH1  - Indexed Jurip Through A GOTO Table 
Nane:(S) HASH2 - Indexed Junp Through A GOTO Table 
Purpose: 


Junp into a table of GUTOs (or other 4-nibble beasts) 
according to an index variable. 


Entry: 
ALA} = Hash byte (naxinun 3FF). 
HASH1: RSTK = Address of start of GOTO table. 
HASH2: C{[A] = Address of start of GOTO table. 


Exit: 
This routine exits by jumping to the A[A}’th entry 
in the GOTO table. 


Calls: None. 


A[X], C(A). 


Stk lvls: HASH: 0. 
HASH2: 1. 


Detail: 
Typical use: 
GOSBVL =HRSH1 


GOTO =O 
GOTO Of 
GOTO 8 L2 
GOTO §8=6L3 
GOTO 84 
GOTO) |= 
GOTO = Lb 
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The GOSBVL puts the address of the GOTO table on RSTK; 
HASH1 peels it off. Note that this GOSBVL 1s actually 
acting like a GOTO; control will never return to the 
code in the vicinity of the GOSBVL. 


History: 
Date Progranner Modification 
SA Urote 
10/17/83 NM Attenpted to docunent 


8.7 IRSFMu - Transforn Utility Routine 


Category: EXCUTL File: FHATFN: MS 


Nane:(S) TRSFMu - Transform Utility Routine 
Purpose: 
Transforn a file using source/dest file info on Save 
Stack. 
Entry: 
P = 0 
/OFTYP = Destination file type 
Save stack info set up by SVINFO as by COPYX or TRSFNX 
Exit: 
P = 0 
C(1-0) = Transfornation option 
C(6-2) = Dest file creation first paraneter 
C(11-7) = Dest file creation second paraneter 


Save Stack info cleared fron Save Stack 
Carry clear: 
Transforn conpleted successfully 
Carry set: 
C(3-0) = Error code. "Syntax" if all errors uere 
recoverable. 
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Calls: FILFIL, EXPDEV,RDINFD/S, SVINFO, OPENF*, FINDFS, CRTIF, 
RAN/ON, MEMCHE , POLL, PROF I#, LOCFI+,RPLLIN, 
WRITNB, and a host of local utilities 


Inclusive: Rll CPU registers, statenent and function scratch, 
TRFNBF, $11-SO0 


Stk lvls: 6  (RSTKBF: 1 plus any used by handlers) 


Detail: 


Val Phase Nane Meaning 


(0) ( 1 } sEXTDY Source or destination 1s on HPIL device. 


(0) ( 2.) sTFREQ If set, a transform 1s required. Other- 
wise 1t 1s a trivial case (file is already 
desired type). 


(1) ( 1.) sUNDEF Indicates both file nanes are undefined. 

(1) (3,4) sTFERR If set, a fatal error has occurred sone- 
where in the transform. User will be 
notified at end. 

(2) ( 1.) sCARD Indicates a card device on source or dest. 

(2) (3,4) sTFUNG If set, a recoverable error has occurred 
during the transform. This wall becone 


a fatal error after the transforn is 
conplete. 


(3) (all) sDEST If set, we are accessing the destination 
file info on the save stack. 


(4) (all) sREADI Used by RDINFO 


(5) (234) sTFINP If set, transform is in place. Else, the 
source and dest files are distinct. 


(6) ( 3.) sTFINV If set, we are doing an inverse transforn. 
A nonrecoverable error at this point will 
cause the file to be purged. 

(7) (all) sEOF If set, an EOF has been read on input 
Operation. 


8-8 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Execute Utilities 


(8) ( 3.) sTFEND If set, the last line has been transforned. 
fust be used because sEOF can be set BEFORE 
the EOF is transforned. 


(9) (234) sDRYRN If set, transform results are not written 
to dest, but used to calculate required 
size of dest file. 


(10}(al1) sI/OBF If set, last referenced opened file is 
external. 


(11}(234) sPRGCF If set, the transformed file nas current 
file or was referenced on the stack (e.9., 
CALLer of current file) 


Algorithn: 
Save return address 
Initialize FIB storage and status to zero 
Fill an massing file nares fe.g., :TAPE INTO TEXT A) 
If either filenane undefined, then error exit 
Expand destination device code 
If dest device not specific, then error exit 
Open source file (exit if error) 
Save aitay source FIBER 
Build expanded source device code 
Save away source file type 
Clear status 
If source device = dest device 
If source nane = dest nane 
Set "Transforn IN PLACE" 
Store source FIBH as dest FIBH 
If file is secure, then 
Error exit 
If dest device is HPIL then 
If "Transforn IN PLACE” then 
Error exit 
Else 
If dest device is not RAN 
Error exit 
Find transform handler 
If no handler, then : 
If transforn required, then 
Error exit 
Else 
If transforn "In piace”, then 
Return 
Else 
Copy file to destination using COPYu 
If “Transforn IN PLACE" then 
If there is no inverse transform then 
Error exit “Illegal Transforn" 
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Release file info, clear sDRYRN 
If file is current file then 
Close it out and open new workfile 


Else 
Tf dest fale is external then 
Set "Dry Run” 
Else 


Search for dest file 
If fale found, then 
Error exit "File exists" 
Else 
Create dest file 
Open dest file 
Store auay dest file FIBH 
Release file info 
Initialize counts: NUMLINES, DESTLEN 
Save away true AYNENE 
3.1 Set up default output buffer 
Save status 
Verify mininal mernory requirenent 
Call Transform routine 
Restore status 
If Error, then 
If recoverable, then 
Issue warning message 
Set "Warning" status 
If no error, then 
If "Ory Run" then 
Adjust destination length counter 
If at EGF then 
Create dest file 
Open dest file 
Store away dest FIB # 
Clear "Dry run" status 
Rewind source file 
Go to 3.1 [go to next line] 
Else 
Read dest FIB 
If transform NOT IN PLACE, then 
Set old jine length to zera for insertion 
Call WRITNE to copy output buffer to dest file 
If fatal error, then 
Go to 3.5 
Fise 
Go to 3.1 {go to next line} 
Else {error} 
If recoverable error, then 
If in "Ory run” then 
So to code sequence to process line 
Else 
oet error flag 


me 
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Save error code 
Tf in “Dry run" then 
Go to 4.0 
If menerr, substitute "Transforn Failed" nessage 
Issue warring nessage 
Tf recavereble error, then 
Set uarning flag 
Go to code sequence to process line 
Fise [It's an unrecoverable error] 
If INVERSE transfornation, then 
Save “Transform failed" error nassage 
Go ta 3.3 
Else 
If transforn IN PLACE, then 
Set “Inverse Transforn" status 
Rewind source file 
Set up inverse transform address 
Go to 3.1 
3.7 Collapse input, output buffer 
If Gry Run then 
Fetch Source FIB 
Else 
Fetch Dest FIB 
If NOT inverse transfaornation, then 
Truncate file to current position 
Rewind file, save status 
Call Chain Handler on file 
Call TFUSVE to hold error code, restore status 
If Dry Run, then 
Play it again, San 
If error, then 
Set error code 
Purge destination file 
Restore return address 
Read source FIB# 
If source FIB® not zero then 
If transform IN PLACE then 
Add file type and copy code to header 
Close source FIB 
Read dest FIBH 
If dest FIBH not zero then 
Close dest file 
If not "Fatal error” status, then 
If not “Warning” status, then 
Exit successfully 
Else 
Set "Syntax" error code 
Issue error code message 
Exit wath error condition 


Pw 
ow. 
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History: 
Date Progranner Nodification 
06/20/82 FH Split off from TRSFNX code 
8.8 (COPYu - COPY Utility 


Category: EXCUTL File: JP&EXC:: MS 


Nane:(S) COPYu  - COPY Utility 


Purpose: 
COPY Utility 
COPY Mainfrare/PORTs 
COPY CARD 
COPY External 


Entry: 
File information in SAVSTK area 
(Through SVINFO utility) 


SAVSTK- 5 = Source Device information 
SAVSTK-25 = Source Filenane 

SAVSTK-30 = Destination Device Information 
SAVSTK-50 = Destination Filenane 


See SVINFO utility 
Device Info - Nib 0 = Device type 
Nib 4-4 = Device specific info 
Filenane lip to 10 chars 
Blank filled 


Exat: 
Save area is RELERSED 


Carry clear - Good COPY 
R1 = Start of file just copied 
If destination into Mainfrane/IRAN 


pCOPYx Poll issued if either Source or Destination 
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is External (not Maanfrane/IRAM/CARD) 


Carry set - Error Return 
C(4) = Error number 


Error Returns: 
enen ~ No nenory to create destination file 


eFSPEC - No response to COPY Poll 
Non Mainfrane for CARD 


eFnFND - Source file not found 

eFPROT - Private source file 

eFEXST - Destination file exists 

eFTYPE ~- Non KEYS file for KEYS copy 

eFACCS - Destination 1s unknown PORT device 


eDVCNF ~ PORT device not found 


Calls: FILFIL,POLL,FINDF (FINDFS), GETPR1,MFDVC+,RDHDR1, 
CRETF+, MOVEUO,RDINFD, WFIMD-, LEXBF+,RLINFO, CROFIL, 
FILCRD, CHAIN-, BASCHA, FLDEV+ , MFDEVC, D1=SRO 


Exclusive: R-D,D0,D1,SAVSTK (50 nibs), RO,R1,R2, 
SO-S$7,$8,S9,S$12,STMTRO (5 nibs),SCRICH (32 nibs) 
4 levels of RSTKBF (1f Copying LEX file) 


See LEXBF+ 
Inclusive: 
sDEST = Destination Execute flag (S3) 
sREADI = Read file information (S4) 
sKEYS = COPY to KEYS ($5) 
sPCRD = Private CARD (S8) 
D = Device information 
D(O) = Device Type 
F = No device 
dMAIN O = :NAIN 
dPORT 1 = : PORT 
0(1,2) = Extender¥, Portk 
= FF if all ports 
dCARD 7 = CARD D(B)=0 
aPCRD 7? = :PCRD D(B)#O 
>= 8 = PIL / Non-nainfrane Device 
R14 Destination file start (CREATE ) 


R3 = Start of source file 


POLL uses B,C,AVMEME, XM 
FINDF use A-D,DO,01,86,$8,S9,R2,R3 
NOVEUO uses A,C,D0,01,P 
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RDINFO 

SVINFO use’ A,C,0,S3,S4 

GETPR1 uses A,C,D1 

CREATF uses A-D,D0,D1,RO,R1,SCRICH (32 nibs) 
tKYSck uses A,C,D(S) 

LEXBF+ uses R-D,R1,4 lvls RSTKBF 


Stk lvls: 6 


Algorithn: 


COPYu: 


0: 


1: 


Get source information, Fill tissing names (FILFIL) 
If device # Nainfrare (sEXTDV) or ext PORT 
POLL for COPY external device (pCOPYx) 
If carry set 
Error Return 
If no response 
If external device (D(O)>7) 
Error <-- eF SPEC 
If unknown PORT device 
Error <-- eFACCS 


else 
RIN 
If MAIN | PORT (sCARD=0 ) 
If source 
Find source file (FINDF ) 
Save pointer to file start (R3) 
Check file protection (GETPR1) 
Error Return if private (eF PROT) 
If BASIC file (BASCHA) 
Chain file (CHAIN- ) 
Set Destination flag 
Get Destination device info (MFDVC+) 
If CARD 
go COPY to CARD (goto 5) 


else (destination) 
If “keys” filenane 
Set KEYS File flag 


Save source start (STNTRO) 
If PORT destination not found (FLDEV+) 
Error (eDVCNF ) 


If Not Mainframe destination 
Convert Dest. filename to Uppercase (CVUCW) 
Save updated Dest. File infor (SVINF+) 

If not Independent RAM or MAIN 
go Poll for COPY to unknown dev (goto 0) 


Find destination file (FINDF) 
If file found 
Error Return {eFEXST) 
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Restore source start 
Read Source file header (RDHOR1 ) 
If KEYS Copy (skEYS) 
If source file type # KEYS 
Error Return 
Conpute file length 


Create Destination file (CRETF+) 

Error if not created (Carry set) 
Copy source to destination (MOVEU3) 
Read destination infornation (RDINFD) 


Write new filenane 

Write new creation date & tine 

If LEX file copy (Dest. filetype = LEX) 
Save file start (R1 --> RSTK) 


Regenerate LEX Buffer ( LEXBF +) 
Restore file start (R1) 
goto Done; 


If CARD | PCRD device 


If source 
Set destination flag 
Read destination device (MFDVC +) 
R3 <-- Source Filenane 
R2 <-- Destination filenane 
If destination device = MAIN 
Copy CARD to File (CROFIL) 
Set R1 = Last file in Mainfrane(EOFLCH) 
Position to File type 
go Check if Lex File copy {goto 4) 
else 
Error Exit (eF SPEC) 
5 If destination = CARD 
If Private Card ((D(1-2)#0) 
Set Private Card flag 
If source device = MAIN | PORT 
R1 <-- Destination Filenane 
C <-- Source file start 
Copy file to CARD (FILCRD) 
else 
Error Exit (eF SPEC) 
Done: Release File Infornatin Save area (SRLEAS) 
Return CC 


CPYERR: Save error nessage on stack 
Release File infornation save area 
Restore error message 
Return SC 


History: 
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Date Progranner Modification 
07/04/82 JP Modified docunentation 
11/20/82 JP Fixed COPY TO CARD 
12/18/82 JP Combined pCOPYd with pCOPYx 
12/18/82 IP Added chain source if BASIC 
03/21/83 JP Test 1f PORT not found after FLOEV+ 
03/21/83 JP Using S-RO-0 to save Source start 
05/11/83 JP Packed CVUCW,SVINF+ calls @ CPY135 

8.9 CK"ON' - Check ON / ATTN Key 
Category: EXCUTL File: JP&SYS::MS 

Nane:(S) CK"ON" - Check ON / ATTN Key 
Purpose: 


Check if ON/ATTN key hit (CK"ON" entry) 
This routines needs to be called after 


Entry: 


Exit: 


Carry set 
ATTN key Not hit 

Carry clear 
ATTN Key hit y 
NoCont (S14) set if ATTN key hit 


Calls: 


No 


each statenent execute 


ne 


Exclusive: A(S),D1,NoCont(S14) 
Inclusive: A(S),B1,NoCont(S14) 


$14 = ATTN key hat, NoCont flag 


Stk lvls: 


0 
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8.10 FINDLB - Find Label in Current Progran 
Category: EXCUTL File: JP&SYS:: MS 


Narie:(S) FINDLB - Find Label in Current Progran 
Narie: ATCHK - Find Label in Current Progran 





Purpose: 
Find Label in current progran. This routine is for run 
tine only. To find a label across a file call FCHIBL. 


ATCHK: Late entry point to check if at an "@" 


Entry: 
FINDLB: 
P=0 
B = Label to find 
Right justified with trailing blanks 
("ABC = 2020202020434241) 
File already chained 


ATCHK: 
DO @ Possible "@" (nulti-statenent line) 


Exit: 

FINDLB: 
P=0 
B = Label to find 
Carry Clear - Label found 

DO @ EOL or @ preceding the statement with Label 

Carry Set - Label not found 

ATCHK: 
DO @ "@" or EOL 


Calls: LBLNAN 

Exclusive: A,C(A),00 

Inclusive: A,C,00,P 

Stk lvls: 2 

Detail: Starting fron label chain head (PRGNEN-5) 
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Junp by Label Link looking for LABEL token 
When a LABEL token 1s found 
Call LBLNAN to get label into A 
If label matches the label in B 
ATCHK: Position to EOL | @ 
Return CC 
else 
Continue until End of Label Chain reached 


History: 
Date Progranner Modification 
06/30/82 JP Modified docunentation 
04/08/83 JP Test for @/line# using ACXS) = F 


8.11  LBLNAN - Get Label Name into Register A 
Category: EXCUTL File: JP&SYS::MS 


Nane:(S) LBLNAM - Get Label Nane into Register A 


Purpose: 
Get label name into Register A 


Entry: 
@ Beginning of Label in Mernory 
Exit: 
Carry clear 
P = 0 
A = Label rane, Right justafied mith trailing 
blanks 
“ABC = 2020202020434241 (hex) 
Calls: BLANKC 
Uses.....0. 


Exclusive: A,C,P 
Inclusive: A,C,P 
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Stk lvls: 1 
History: 
Date Progranner Modification 
06/30/82 JP Modified documentation 
10/08/82 JP Added BLANKC call 


8.12 PRSCOP - Compute Progran Scope 
Category: EXCUTL File: JP&SYS::MS 


Nane: PRSCOP - Compute Progran Scope 
Nane: PRSCKB - Conpute Progran Scope; Return 1f SUSP 
Nave: (S) PRSCOO - Compute Progran Scope; GETSTC exit cond 


Purpose: 
Compute Progran Scope:Progran Start,Progran End, Sub Links 


Entry: 
Assumes: CURRST, CURREN pointing at current file 


PRSCKB: If progran suspened --> Return 
P=0 
PRSCOP: Calls GETSTC to position in file and 
check file type 
Error Exits 1f non-BASIC file 
PRSCOO: Assunes positioning = GETSTC exit conditions 
File type must be BASIC;Binary or Sane structure 
p= 
PRSCO-: Get progran start/end u/o File Type error exit 
Allows Program scope set for Binary prograns 
PRSC60: Set Program Start and End only 
D1 @ PRGMST 


Exit: 
If program already running on entry: 
This routine does nothing 
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If PRSCOP entry: 
If current file not BASIC 
Error Exit ---> eF TYPE 


A = PRGNST (Progran Start) 
C,D = PRGNEN (Progran End) 
Di = @ PRGNST 
Calls: GETSTC,GETSTe, CHAIN*, RUSUS?, SCOPEN 
Uses....... 
Exclusive: ACA}, B{A),C(R),0(A), DO, 01, R2 
Inclusive: A,B(A),B(S},C, D(A), 00,01, R2 
Stk lvls: 3 
NOTE: 


PRSCKB will not set progran scope if running or suspended 
PRSCOP will always set the program scope if progran not 


running 
History: 

Date Progranner Modification 
06/30/82 JP Modified docunentation 
09/15/82 JP Changed GETSTC to error retum 
01/04/83 JP Added PRSCKB entry point 
02/11/83 JP Deleted PRSC55 entry point 


8.13 Ckloop - IMAGE parse loop to check fcr edit chars 


Category: EXCITL File: MB&ING::MS 


Nane:(S) CkLoop - INAGE parse loop to check for edit chars 
Nane:(S) CkLpNC - IMAGE parse loop, no synbol count 


Purpose: 
This 1g the main parsing routine for INAGE parsing. 
It first accepts spaces and nultipliers in the image 
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string, then parses the next inage character for 


correct syntax. 


Entry: 
P = 0 


Ri(A) points to last IMACE synbol which was parsed 
D1 points to current position in BIdING strean 


D(A)=AyvMenEnd 


Return address contains a four-nibble nask used 
to parse the next character (see USING header) 


Exit: 


CkLoop does not return! 


It jurips to 


1) IMerr (if multaplier=0 is found) 

2) CkDlin (1f no match found in parse table) 

3) To appropriate parse routine if match found 
(these routines are fixed in the parse table; 
they cannot be added to) 


CkLoop leaves the RSTK in a ness... 


The parse mask 


address 1s left in the RSTK (no problen, since USING 
can never be called as a subroutine). 


Calls: IMnlt+, PRSsc+, DRANGE, TBLJMP 


Exclusive: A,8,C,0,D0,D1,P 


Inclusive: Can use anything when exits to parse handlers 


Stk lvls: 


NOTE: 


3 (before exit to parse handler) 


This parser is used only for the following IMAGE syn- 
bols, with the corresponding parse handler routines: 


or R 
or’ 
or ff 


or P 


unit’s digit Z 
H,K,B or 


In'x" 
IMD" 
Ina" 
IMrdx 
IMstr 
Ifsign 
In'z" 
Inve" 
IMsep 
er 
Ini"2" 
TMHKB* 


Only those syrbols included in the parse nask (found 
at the RSTK address) will be accepted. Any other 
character will cause a junp to CkDlin; af the char- 
acter 1s not a delimiter, CkDlin will issue a pIMCHR 


poll. 
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Algorithn: 
CkLoop: Increnent digit symbol count (in R2(A)) 
CkLpNC: 
1) Fetch next IMAGE character, convert to uppercase 
Check for digit (DRANGE); if not digit, goto 3). 
Else (digit) if digit already found (sMULT=1) 
goto 2). 
Else (digit not found yet) set sMULT=1, 
write out multiplier fields to BldING. 
2) Check for digit overflow (nore than 4 digits), 
error if overflou. 
Write out current multiplier. 
Goto 1). 
3) Check char for ASCII space. If so, goto 1). 
If multiplier pending, test for: 
if mult= 0, then error. 
1f nult= 1, then 1gnore (back up over 
multiplier fields) 
Fetch parse mask fron RSTK address. 
4) Read next character fron fixed parse table. 
If end of table, junp to CkDlin. 
Check mask bit for valid char; if not, 
go to 4). 
Else (valid char), cornpare with IMAGE synbol: 
1f no match, go to 4) 
else (natch), Jump to parse handler for 
that synbol 


History: 
Date Progranner Modification 
12/08/82 NB Wrote routine, docunented. 
8.14  BOPNH- - Process uOPNN- token during backup 


Category: EXCUTL File: MB&ING:: MS 


Nane:(S) BOPNM- - Process uOPNM- token during backup 


Purpose: 


8-22 








HP-71 Software IDS - Entry Point and Poll Interfaces 
Execute Utilities 


To process u0PNM- token during IMAGE parse backward 
search. 


Entry: 

P = 0 

D1 points to uOPNN- token in BIdING strean 

RO(A)=current position in BldING stream (any new 
token will be written below this address) 

R1(R)=address if synbol which caused backward search: 
a right parenthesis (to close a field), or the end- 
of-image (to check for unmatched parentheses). 

S5=1 if end-of-inage search; S5=0 if closing field. 


Exit: 

P = 0 

Carry clear. 

A uL BOPP token, a 5-nibble offset pointing to the left 
parenthesis location, and a uJMP{} token will have 
been written to the BIdING strean. 

Di=current position in BIdING strean (address passed 
in RO(R) rinus 9) 


Calls: COPYn1, EndBck, IMoffs, BidING 


Exclusive: B(A),C,D1,P 
Inclusive: B(A),C,D1,P,S8 


Stk ivls: 1 


NOTE: 
This backward search during IMAGE parsing is perforried 
to find an open field (a field defined by parentheses). 
The search 1s perforne either to close the field (when 
a right parenthesis 1s found), or to check for 
unnatched parentheses at the end-of-inage. 


Algorithn: 

Set B(A)=1 (for COPYn1) 

If S5=1 ("end-of-inage"), report "Invalid IMAGE" error. 

Copy multiplier fron reserve field to decrenenter 
field (adding one to the reserve, fron B(A)) 

Write uLOOPP token to BIdING 

Conpute offset to left parenthesis position, store it 
in BldING 

Write uJMP{} token to BIdING. 


History: 


Date Progratiner Modification 
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12/08/82 MB Docunentation 


8.15 Minit - Initiate IMAGE output field 
Category: EXCUTL File: MB&ING::MS 


Nane:(S) IMinat - Initiate IMAGE output field 
Nane: IfinOi - Backup to field delimiter (close field) 


Purpose: 
To back up through the BIdING token strean to the 
pending delimiter and re-write a field delimiter, in 
order to identify the type of field for the execution 
routines. 


Entry: 

P = Q 

C(B)=neu delimiter token (see detail, below) 

Di=current position in BIdING strean (any new tokens 
Will be written below this address) 

A(B)=IMAGE symbol which caused the initialization (in 
uppercase ) 

D(R)=AvMenend 

$320 1f field has not already been initialized; 
$3=1 1f field has already been initialized. 


Exit: 
If pending fields need to be executed (SO=1), then 
exits to INGxgt. 

Else, 
P=0 
Carry clear 
Dl=current position in BIdING strean 
C=address of deliniter token 
Delimiter token has been re-written to identify 

new field. 


Calls: DIZROR, BACK, CSLORO 


FPOLL (pINcpi) af S7=4 
IMGxqt rf SO=1. 
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Exclusive: A,B(A),C,RO(A),R2 
Ifinit also uses 90,S2,53,810 
Inclusive: If S¢=0: 9,B,C,RO(A),R2 
If SO=1: can use anything in execution routines. 


Stk lvls: 3 (unless SO=1: execution routines can use 7) 


NOTE: 
Whenever a new field begins, a deliniter token 
(uDELIM) 1s written to the BIdING strean, along maith 
tuo 4-nibble fields used for digit counters. Also, 
53 18 set=0 to indicate that the field has not yet been 
initialized (type of field not yet discovered). IManit 
1s called uhenever an output character is found; if 
$3=1, it returns immediately. Otherwise, $3 1s set=1, 
and the BldING tokens are scanned (backwards) until 
the uDELIN token 1s found. It 1s then replaced with 
the appropriate token to identify the type of field. 


However, 1f pending fields need to be executed (S0=1), 
the token is replaced with a uRESTP (restart parse) 
token, and INGxqt 1s invoked to execute the fields. 


IMindt 18 called to find the field delimiter at certain 
tines, for the following actions: 

1) uhen a radix synbol (. or R) is found, one of the 
4-nibble counter fields is filled with the nunber 
of digits before the radix 

2) when a nuneric field ends, the other 4-nibble 
counter field is filled with the total nunber of 
digit syrbols. 

3) when a sign symbol (S or MN) 1s found, the field 

delimiter 1s adjusted to indicate that a sign 

is specified. 

when the E syrbol is found, the field deliniter 
is replaced with one which indicates that the 
exponent 1s to be displayed. 

At these tines, S0=0 so that execution will not start. 


4 


— 


Fast poll for pIMcpi nay change SO, or the flag in 
R2(XS) (see C(XS) detail below), if necessary. 


Detail: 
At entry to IMinO1, C(XS) is used as a flag to indicate 
whether to re-write the delinater. In cases (1) and 
(2) above, the field delinater is not overuritten: in 
these cases, ((XS) 1s nonzero as a flag. 


Rt entry to IMinO1, C(B}=new deliniter token to re- 
write, or C(B)=0 if delimiter merely has to be ad- 
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justed (case (3) above). 


Algorithn: 
Ifanit: Set S2=1 ("count digits”) 
If $3=1, return. ("Field already initialized") 
Set $3=1, SO=1 ("execute pending fields"), 
$10=1 ("output field found") 
Set C(xXS)=0 (flag for “re-write delimiter") 
Save symbol in R2. 
IMin01: Save 01 in RO. 
If $7=1 and SO=1, fast poll (pINcpi) 
1) Back up through tokens: 
if uJMPst, then D1+12, go to 1) 
if uJMPdl, then D1+6, go te 1) 
if uDELIN, then go to 3) 
if other delimiter, ga to 4) 
if uRESTP, then go to 2) 
else go to 1} 
2) Set SO=1 (don’t execute) 
Copy D1 to RO(9-5) (new execution address) 
3) Clear R2(R) (digit count) 
If SO=1, jurip to INGxgt: re-write delimiter 
with uRESPT token and execute pending fields. 
If “don’t re-write deliniter", go to 5) 
If "urite new token", goa to 4) 
If S9=1 ("sign"), then increnent delin+1 
4) = Re-urite delirnaiter 
5) Restore 01 from RO(R). 


History 
Date Prograrner Modification 
12/08/82 MB Docunentation 


8.16 BldING - Put tokens fron C into BIdING strean 
~~ Category: EXCUTL File: MB&ING::MS 


Nane:(S) BIdING - Put tokens from C into BIdING strean 
Nane:(S) BldIMA - Put 1 or 2 tokens fron A into BIdING 
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Nane:(S) BldIN+ - Put tokens fron C into BIdING strean 


Purpose: 
To put IMAGE tokens into parse strean. 


Entry: 
BidINA:  A(B}=token and P=0 
or A(3-0)=2 tokens and P=2 
BldING: (=tokens and P=2*(#tokens-1) 
BidIN+:  C(WP)=tokens and P=2*(#tokens)-1 
Dl=current position in BIdING strean 
DCR)=AVMENSt 


Exit: 
Pp = Q 
Carry clear 
Exits to MENERR if 01 moves below AvMenSt 


Calls: none 


Exclusive: P,D1 noved below write 
BldINA: also does ACEX R 


Stk lvis: 9 


NOTE: 
The “B1dING" streari refers to the token strean used 
for IMAGE execution. This routine can be used by any 
code which needs to urite bytes or nibbles to Available 
Menory. 


Exampl: for entry into BIdING, say C(7-0) contains 
4 tokens. Then enter with P=6. 


Detail: 

=BIdIMA ACEX A 

=BIdING P=P+1 

=BldIn+ C=-€ A 
C+P+1 
C=-C A 
<=>) A 
GOYES MENERR 
CDIEX 
DAT1=C WP 
P= 0 
RTNCC 


Progranrer Modification 
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12/08/82 mB Docunentation 


8.17 IMoffs - Store offset from D1 in BIdING strean 
Category: EXCUTL File: MB&ING::MS 


Nane:(S) IMoffs - Store offset from D1 in BIdING strean 


Purpose: 
Store a 5-nibble offset fron D1 ain the BIGING stream. 


Entry: 
P= at least 4. If C€(15-5) contains nore tokens to 
write into the BldING strean, then set P such that 
a P=P+1 will define the entire write field in C(UP). 
C(R)=address-2 for which offset will be conputed. 


Exit: 
Pp = 0 
Carry clear 
Calls: BidINA 
Uses.....,. 


Exclusive: C(A) 
Inclusive: P,D1 (does not use A) 


Stk lvls: 0 


Detail: 

=IMoffs ADTEX 
C=C-A A 
ADTEX 
C=C+t A 
C=C+1 A 
ACEX A 

<falls into BldINA> 


History: 
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Date Progranner Modification 


12/08/82 MB Docunentation 


8.18 PRSscn - IMAGE parse scan 
Category: EXCUTL File: MB&ING:: NS 


Nane:(S) PRSscn - IMAGE parse scan 
Nane:(S) PRSsc+ - IMAGE parse scan, increnent 0 first 


Purpose: 
Read a byte fron address 1n R1(A), scan a table of 
values for a natch. If match found, jump to corres- 
ponding routine. 


Entry: 
P = 0 
R1(A)=address of byte to natch 
Address in RSTK points to table of bytes and relative 
offsets (see FINDR for table structure) 


Exit: 
P = 0 
Carry clear 
Exits to desired routine 1f byte match. If no natch, 
returs to address past table. 


Calls: CONVUC, FINDA 


Exclusive: C(W),D0,A(B) 
PRSsc+ also increnents R1(A) by 2, 
Inclusive: C(W),D0,A(B) 


Stk lvls: 2 


NOTE: 
The byte fron the address found in R1(A) is read into 
A(B) and converted into upper case before the junp to 
FINDA. 
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See FINDA for description of table of bytes and offsets. 


Detail: 
=PRSsc+ GOSUB INDO+2 Increnent R1(A) by 2. 
=PRSscn C=R1 
DO=C 
A=DATO B 
GOSUBL =CONVUC Convert to upper case. 
GOVLNG =FINDA 
History: 
Date Progranner Modification 
12/08/82 MB Docunentation 


8.19 IMNxq2? - Return to IMAGE token executor 
Category: EXCUTL File: MB&USG::MS 


Nane:(S) IMxq27 - Return to IMAGE token executor 


Purpose: 
Return to IMxq12 (main IMAGE token execution routine) 
after restoring D1 (token pointer). 


Entry: 
C(A)=address+2 of next IMAGE token to execute. 
$5=0 
$6=0 
Exit: 
May jump to any execution routines. 
Calls: May junp to any execution routines. 
Uses....... 


Inclusive: May junp to any execution routines. 


Stk lvls: May jurnp to any execution routines. 
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NOTE: 
Sone IMAGE poll handlers will use this entry point 
after handling a poll. Since the FPOQLL routine does 
not preserve D1, this allows a poll handler to junp 
to the IMAGE token executor mith D1 pointing to the 
appropriate token. 


History: 
Date Progranner Modification 7 
12/08/82 NB Docunentation 


8.20 USst03 - Output characters fron address in C 


Category: EXCUTL File: MB&USG: : MS 


Narie:(S) USstO3 - Output characters fron address in C 
Nane:(S) USstO5 - Output characters fron address in 01 
Purpose: 


To output a character during USING execution; character 
display observes WIDTH. 


Entry: 
USstO3: Di=address of current token being executed 
C=address of characters to be output 
USst05: R=address of current token being executed 
Di=address of characters to be output 
P=0 
B(A)=#characters to output 
CKINFO rust have been called previously to set up 
the output information (see CKINFO) 
$5=0 to exit to IMxql2, S5=1 to return. 


Exit: 
P = 0 
If $5=0, exits to IMxq12 
If $5=1, does a "return", carry clear. 


Calls: SENDWD 
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Uses....... 
Exclusive: A,B,C,RO,S4 
Inclusive: A,B,C,0,RO,R1,R2,P,$4,01 


Stk lvls: 5 


NOTE: 
If you want to display only one character, call USGch+ 


Detail: 
Before call to SENDWO, sets S4=0 to inhibit EOL before 
iten is displayed. 


=USstO3 ADIEX 
D1=C 

=USstO5 RO=A 
A=B OR 
ST=0 4 
GOSBYL =SENDUD 
C=RO 
D1=C 
2120 5 
GOYES INxqt2 
S120 § 
RTNCC 


History: 
Date Prograiner Modification 


wee ee wee wee ee ee Ke mm ew em ew ee eee ee ewe ee ew ewe 


12/08/82 MB Docunentation 


8.21 USGch+ - Display character during USING execution 
Category: EXCUTL File: MB&USG: = mS 


Nane:(S) USGch+ - Display character during USING execution 
Nane:(S) USGch- - Display character during USING execution 
Purpose: 


To display one character during USING execution. 
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Entry: 
USGch-: RSTK address contains table of ASCII characters 
P=pointer into ASCII table 
USGch+: P=0 
C(A)=address of ASCII character 
Di=address of current IMAGE token being executed. 


Exit: 

See USst03 
Calls: USst03 
Uses....... 


Exclusive: A(W),B(A),C(R),P 
Inclusive: A,B,C,D,RO(A),R1,R2,P, D1 


Stk lvls: 5 


NOTE: 
For USGch- entry, the ASCII table must have a 00 byte 
as the first entry. A value of P=0 would point to the 
first byte past this 00 byte. 


Detail: 
=USGch- C=RSTK Address of ASCII table. 
C+P4+1 Pointer into table. 
C+P+1 
P= 0 
=USGch+ B=0 A B(A)=1=#characters 
B=B+1 A to display. 
A=RO Preserve RO(9-5). 
GOTO §©USst03 
History: 
Date Prograriner Modification 
12/08/82 MB Docunentation 


8.22 USGrst - Suspend USING execution, restart parse 


Category: EXCUTL File: MB&USG:: MS 
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Narie:(S) USGrst - Suspend USING execution, restart parse 
Purpose: 
Halt IMAGE execution and restart parsing of IMAGE 
fields. 
Entry: 
P = 0 


R3(A)=Progran Counter 
RAN storage at AvMenEnd is as shoun in IMGxgt header. 


Exit: 

To Nxtfl3 (parse next field). 
Calls: GETSTA, C+A2D1, R2=Di+, CA2D1., IMDO--, Nxtf13 
Uses....... 


Exclusive: ACA),C,D1 
Inclusive: IMAGE parse routines at Nxtfl3 can use anything 


Stk lvls: 2 (before exit to Nxtfl3, which can use all 7) 


NOTE: 
Most pINXQT poll handlers will return to USGrst, after 
they have taken care of their execution. 


Algorithn: 
Restore status bits fron RAN. 
Restore address of start of IMAGE string to R3(9-5) 
Restore length of IMAGE string to RO(9-5) 
Restore address of next parse synbol to RO(A). 


History: 
Date Progranner Modification 
12/08/82 MB Documentation 


8.23. USGnun - Evaluate and execute nuneric IMAGE field 


Category: EXCUTL File: MB&USG:: AS 
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Nane: USGnuri - Evaluate and execute numeric IMAGE field 
Nane:(S) USnnO0S - Execute numeric IMAGE field 


Purpose: 
To evaluate (through EXPEXC) and execute numeric IMAGE 
field. 


Entry: 
RAM locations as specified in IMGxqt header. 
USGoun: 
P=0 
Di=address of current token in BIdING strean 
A(B)=deliniter token which defined numeric field 
USnrO5: 
P=0 
A(W)=nuneric expression (real or iriaginary part) 
D1 points to AvMeriEnd-16, which also contains a copy 
of the expression in A. 


Exit: 
Exits to IMxqi2. 


Calls: SET-ST, FPOLL (pIMcpu), GetEXP, C+A2D1, DECP=C, 
RND-12, ExpEXP, CHKFLT 


Inclusive: GetEXP calls EXPEXC, which nay use anything 
Stk lvls:  GetEXP calls EXPEXC, which nay use all 7 


NOTE: 
USGnun is the routine which formats all numeric fields. 
The value of the delimiting token deterrnines the status 
bit settings, which in turn define the type of forrnat- 
ting (sign field, exponent field, etc.). 


USn05 1s a return point for the pIMcpu poll ("“conplex 
field working"). 


Algorithn: 
Set status bits as specified by nuneric delimiter. 
Fetch expression, store at AvMenEnd-16. 
Copy expression to B. 
Read Hdigits in field, store in D. 
Read #digits before radix, store in C. 
Allow 1 digit position for sign, if sign not specified. 
Expand exponent to 5 digit forn. 
Calculate #zeroes before first nonzero digit. 
Calculate position to round; round expression. 
If exponent changed in rounding, decrenent #zeroes. 
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If insufficient digits, "IMAGE Ovfl" warning/error. 
Store Hzeroes in R1. 
Store rounded expression back in AvMenEnd-16. 
If floating field (D’s), go to CHKFLT 
else go to IMxgi2. 


History: 
Date Progranner Modification 
12/08/82 MB Docunentation 


8.24 ENDING - Process end of IMAGE string 
Category: EXCUTL File: MB&USG::NS 


Nane:(S) ENDING - Process end of IMAGE string 


Purpose: 

Process ulIMend token at end of IMAGE string. 
Entry: 

P = 0 


RAN storage as shown in IMxqt header. 


Exit: 
If “not ouput field found" (S$10=0), generates 
an "Invalid USING" error. 
Else: 
P=0 
D1=AvMenEnd+5 
C(A)=address of start of IMAGE string. If there 
are Nore output fields, the IMAGE string can nou 
be recycled. 
$0=0,$1=0,82=0, $2=0, S6=0 


Calls: GETSTA, CLOST+, RCVOFS 


Exclusive: Dt 
Inclusive: D1,A(A),C(A),D(A),S0,S1,S2,83,S6 
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Stk lvls: 2 


NOTE: 
During IMAGE execution (output or enter), when the end- 
of-inage 18 encountered the routine TstEnd should be 
called to determine if at the end of the output list 
{or enter list). If so, exit to NXTSTM. If not, call 
IMGEND to recycle the inage string. 


Detail: 
=ENDING GOSUB GETSTA Get status bits fron RAM 
GOSUB =CLOST+ Set S0,81,52, $3, $6=0 
*ST=O 610 Output field found? 
GOYES <Invalid USING error> No. Error. 
D1i=D1+ 8 Gives D1+#3 in RCVOFS 
. fall into RCVOFS... Recover offset to start 
of inage string. 
History: 
Date Programrer Modification 
12/08/82 NB Docunentation 
8.25 GetEXP - Expression execute for IMAGE output list 


Category: EXCUTL File: MB&USG::MS 


Nane:(S) GetEXP - Expression execute for IMAGE output list 


Purpose: 
Call EXPEXC for iters im IMAGE output list, screen 
expression for valid type. 


Entry: 
e = 0 
R3(A)=Progran Counter 
RAN storage as shown in IMGxqt header. 
$3 and $6 deternine valid expression types: 
S6=1 means “nurneric expression acceptable" 
$3=0 means "string expression acceptable" 


8-37 








HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Execute Utilities 


S34#S6 means "“conplex acceptable" 
valid type $3 $6 


nuteric 1 1 
string o 90 
coriplex 1 0 
any (K or H) 0 1 
Exit: 
If expression 1s not of valid type, "Invalid USING". 
Else: 
P=0 
Carry clear 
$6=0 
If nureric or conplex expression: 
RES register has been updated 
A(Wj=nuneric expression (or =real part, in 
the case of complex) 
If string expression, A(W)=string header except 
that At B) -00. 
Calls: TstEnd, NXTEXP, CKINFO, POPMTH, AVE=D1, GETST1, 
POPTST, PUTRES 
USES 5.5 sa ece 


Calls EXPEXC, which may use anything. 


Stk lvls: Calls EXPEXC, which may use anything. 
5 levels available to EXPEXC. 


Algorithn: 
Test output list for end-of-list. If so, to NXTSTM. 
Call NXTEXP, which stores status bits and offset 
to Di in RAM, jumps to EXPEXC. 
Pop math stack. 
Restore status bits fron RAN. 
If nuneric expression: 
2) If S6=1, then go to 4). Else go to 3). 
If string expression: 
If $3=0, then return. Else go to 3). 
If complex expression: 
If $3=0, then go to 2). 
Else (S$3=1) if S6=0 then go to 4). 
3) Exit to “Invalid USING" error. 
4) Put expression in RES register. Return. 


History: 
Date Progranner Modification 
12/08/82 NB Docunentation 
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8.26 IstEnd - Test IMAGE output list for end of list 


Category: EXCUTL File: MB&USG:: AS 


Nane:(S) TstEnd - Test IMAGE output list for end of list 


Purpose: 
Test IMAGE output list for end-of-list. If not, 
positions DO to next expression. 


Entry: 
. = 0 

R3(A}=Progran Counter 

RAN storage as shown in IMGxqt header 


Exit: 
P = 0 
Carry clear: oh of output list (D0 points past EOL, 
n@u or wayae 

D1 points to first inage token 
A(B)=first image token 
C(B)=ASCII “#" for test of first image token. 

Carry set: DO points to next expression in output list 


Calls: EQLXCK 
If end-of-list, also calls: SetAVE, C+A2D1 
Uses....... 
Exclusive: A(B),C(W),D0,D 
Inclusive: A(B),C(W),DO,D 
Stk lvls: 1 
NOTE: 


If end-of-list, A(B) and C(B) are ready to test 
first image token for "#". If the first token 
is a "#", then a CR-LF should not be sent out. 


Algorithn: 
Fetch Progran Counter fron R3(R), copy to DO. 
1) Read byte fron DATO. 
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If ACB) not "," or "3" then return carry set 
(A(B) rust be first byte in expression) 

Increnent DO+2 

Test A(B) for EOL, "@" or "'", If no natch, 
go to 1) (must be another "," or ";") 

(Match with EOL, "@" or "!"); 

Recover offset to start of IMAGE string, 
put address in D1. 

Read first image token into A(B). 

Load ASCII "#" into C(B). 

Return carry clear. 


History: 
Date Progranner Modification 
12/08/82 MB Docunentation 


8.27 USloop - Loop on IMAGE multiplier 
Category: EXCUTL File: MB&USG: NS 


Nane:(S) USloop - Loop on IMAGE nultiplier 


Purpose: 
To process a loop-on-nultiplier token while executing 
an INAGE statenent. Repositions D1 back to start 
of multiplier loop. . 
Entry: 
For a fixed junp (jump back a fixed nunber of nibbles), 
P=#nibbes-1 to junp 
P=3 for uLOGPB (loop on byte -- 4 nibble junp) 
P=15 for uLOOPS (loop on string -- 16 nib junp) 
For a junp whose length is calculated by a 5-nibble 
field, 
P=0 for uLOOPP (loop on parentheses) 
Dizaddress of loop token in BIdING strean 


EX1t: 
Carry clear 
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(P unchanged) 
If multiplier has not expired: 
loop counter has been decrenented. 
D1 points to start of multiplier loop. 
If multaplier has expired: 
the reference counter has been copied into the 
loop counter. 
D1 is left as it was passed (points to loop token). 


Calls: CK"ON" 
Uses....... 
Exclusive: C(A),D(A), 01 
Inclusive: C(A),D(A),D1 
Stk lvls: : 
NOTE: 


USloop checks if the ATTN key has been hit; 1f so, it 
exits through PART3 (output handler), which goes to 
NXTSTN. Thus, an inage string like "9999X" will allou 
the user to abort 1t with the ATIN key. 


Algorithn: 
Copy D1 to D(A). 
Check ATIN key; af pressed, exit. 
Increnent D1 by P+t. 
If P#0 (loop on byte or string), go to 2) 
Else (loop on parentheses): 
Move D1 to offset storage 
Recover offset to start of loop 
2) Decrenent loop counter 
If counter not expired, return. 
Else (counter expired): 
Copy reference counter to loop counter. 
Restore 01 from D(A), return. 


History: 
Date Progranner Modification 
12/08/82 MB Docunentation 
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8.28 DCRNNT - Decrement multiplier in IMAGE string 


Category: EXCUTL File: MB&USG:: NS 


Nane:(S) OCRNNT - Decrenent multiplier in IMAGE string 


Purpose: 
To decrenent loop counter in IMAGE string. An image 
synbal with a muitaplier causes a loop which must 
decrenent the counter each tine. 


Entry: 

Pp = 0 

D1 points to uMULT token (nultiplier) 
Exit: 

Pp = QO 


Carry clear 

D1 ponts to next executing token (D1-8 fron entry) 
Loop counter has been decrenented. 

If an open parentheses loop, see note belon. 


Calls: none 


Exclusive: A(B),C(A),01 
Stk lvls: 0 


NOTE: 
If the loop counter is for a parentheses loop which 
has not been closed yet (execution of the fields 
Was started before the parse routines found the 
closing parentheses), then a uOPNWM token (open 
parentheses loop with riultiplier) 1s found in the 
reference counter field. If such 1s the case, the 
uOPNWM token is replaced with a uOPNM- token te 
indicate that the loop counter has been decrenented. 


Algorithr: 
Move D1-4 to reference counter. 
If uOPNWM token in reference counter fieid, re-write 
with uGPNA-. 
Move 21-4 to loon counter. 
Decrenent lorp counter (DEC rode), replace; retuin. 
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History: 
Date Progranner Modification 
12/08/82 MB Docunentation 
8.29 NXTEXP - Store pointers, execute next expression 


Category: EXCUTL File: MB&USG::MNS 


Nane:(S) NXTEXP - Store pointers, execute next expression 


Purpose: 
Store pointer and status bits, call EXPEXC for IMAGE 
output itens. 


Entry: 
P = 0 
DO=Progran Counter (points to expression to be 
executed) 
Di=address of current BIdING token 
RAM storage as shown in IMNGxqt header 


Exit: 
Through EXPEXC: 
DO=new Progran Counter 
Di=points to 1ten on nath stack 


Calls: SetAVN, DTIC-A, EXPEXC 
Uses: EXPEXC can use anything 
Stk lvls: EXPEXC can use all levels (5 availble at call) 
Algorithn: 
Save status bits in RAM at AvMenEnd+5. 
Save offset to D1 (current IMAGE token address) in 
RAN at AvMenEnd. 
Jurip to EXPEXC. 


History: 


8-43 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Execute Utilities 


Date Progranner Modification 


12/08/82 MB Docunentation 


8.30 COUNTC - Count output characters in IMAGE field 
Category: EXCUTL File: MB&USG::MS 


Nane:(S) CQUNTC - Count output characters in IMAGE field 


Purpose: 
To count the number of output syrbols in an IMAGE 
field. Operates on individual synbols, checking 
to see if accompanied by a nultiplier. If not, 
increnents count by 1; 1f so, adds sultiplier 
value to count. 


Entry: 
P = 0 

Di points to symbol which needs to be counted. 

B(A)=current count of synbols. 


Exit; 
DEC node’ 
Carry clear 
If no multiplier accompanied synbol: 
P=0 
Di=sane as entry (address+2 of next token ta 
execute) 
B(S) increnented by 1 
If nultiplier accompanied syribol: 
P=14 
M1 points to uLQOPB tohen (address+2 of next 
token to execute) 
H(A) ancreriented by nultaplier value 


Calls: TstEnd 


Exclusive: A(B),8(9),C(R),0(A),P, D1 
Inclusive: sane 
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Stk lvls: 1 


NOTE: 


An application which processes the uMULT token by 
decrerienting the loop counter will want to call 
the COUNTC subroutine as follows. The HPIL ROM, 
for ENTER USING, is an exariple of an application 
which needs to call COUNTC this nay. 


GOSBVL =COUNTC Count synbol. 
SE THEX 
MPs 0 Multiplier? 
GOYES ..<exit>.. No. 
P= 0 Yes. Reset P. 
Di=Dit 4 Fetch reference counter, 
DAT1I=C 4 copy it into loop 
Di=D1- 4 counter. 
..<e@Xit.. 
Algorithn: 


Move B1-2, to possible ulOOPB token. 

Test token for ulLOOPB; af no natch, reset D142, goto 2) 
(uLOOPB token found -- accompanying multiplier): 

Move Di+6 to reference counter. 

Read multiplier value into C(A). 

Reset 01 to uLOOPB token. 

Set P=14 to nullify LCHEX 1 


2) LCHEX 1 for increnenting count 
Add B=B+C A for new count, in DEC node 
Return, carry clear. 
History: 
Date Progranner Modification 
12/08/82 MB Docunentation 
8.31 MGOSUB - Execute A GOSUB Fron Movable Code 


Category: EXCUTL File: fN&GSB::NS 


Nane:(S) MGOSUB - Execute A GOSUB Fron Movable Code 
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Purpose: 


Allows code which may nove (such as code within a 
LEXfile in RAM) to GOSUB to a utility which nay 

rove it (such as a file expand utility). The utility 
Will return to the LEXfile properly even 1f it moved. 


Entry: 


Exit: 


Instead of GOSBVL <address of desired routine>, call 
the routine as follows: 


GOSBYL =NGOSUB 
CON(S) <address of desired subroutine> 


All registers and nodes should be set up as required by 
the subroutine. 


Execution resurnes at the location following the CON(5) 
at the call to MGOSUB. 

All registers, nodes and carry are as returned by 
the subroutine. 


Calls: STRALL, PSHMCR, POPGSB, RCLALL (falls through) 


RAN: SCRTCH, SCREXO, SCREX1, SCREX2 
Register usage is dictated corpletely by the 
requested subroutine. 


Stk lvls: MAX ( 3, <H#levels used by requested subroutine>) 


NOTE: 


The scratch RAM 1s used before and after this code 
calls the requested subroutine, but not during. 

Thus the subroutine can use the scratch RAM locally, 
but not to pass infornation back to the calling 
routine. The calling routine obviously cannot keep 
anything there which 1s expected to survive =MGOSUB. 


=MGOSUB acts transparently for everything, including 
CARRY and SB. 


Because the return address is kept in RAM, the called 
subroutine will see the return address of MGOSUB, not 
of the calling code. So MGOSUB cannot be used to call 
a subroutine which uses the return address as a pointer 
to data (such as FINDA, TBLIMP, CALBIN and FPOLL). 
Neither POLL nar FPOLL can be called througt MGOSUB. 
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Callers to POLL can breathe easily despite this caveat. 
POLL also updates the calling address, and so can be 
called directly fron movable code. This is not the 
case for FPOLL. 


Detail: 
Calling sequence: 


GOSBVL =NGOSUB 
CON(S) <address of desired subroutine> 
<execution resuries here after return> 


Algorithn: 
Stores the return address (address past the CON(5)) on 
Gosub stack. 
Executes subroutine; address on Gosub stack will be 
adjusted as necessary if subroutine does a RFADJ. 
Retrieves return address fron Gosub stack. 
Returns to code which called us. 


History: 
Date Progranner Modification 
08/31/82 NN Wrote 


8.32 STRHDR - String Header 
Category: EXCUTL File: fMN&UTL::MS 


Name:(S) STRHOR ~- String Header 


Purpose: Ensures there’s enough nenory to push string 
on the rath stack, then writes out string header 


Entry: C(R)=8NIBS IN THE STRING 
Di at top of math stack 
P=0 
Exit: R1[R}] points ta string header on stack 


D1 points past the header (where string will go) 
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R1{15-5] = A[15-5] on entry. 
A[15-5} = C[15-5] on entry. 
C{A] preserved. 
Carry Clear. 

ERROR EXITS IF NOT ENOUGH MEMORY 


Calls: none 


Stack lvls: 0 


Uses: R, C, Dt, Rt 
History: 
Date Progranmer Modifications 
07/04/82 S.W, Added docunentation. Modified 
code to use AVNEME, instead of 
TFORN, as place to push string. 
10/22/82 Nit Reuwrote 


8.33 SENDEL - Send Endline to Device via Handler 
Category: EXCUTL File: SB&I0::MS 


Nane:(S) SENDEL - Send EndLine to Device via Handler 


Purpose: 
Transmit an "EndLine" to a device by calling the 
the appropriate handler routine. 
Updates colunn count by the nurber of characters 
in buffer. 


Entry: 
Statenent scratch set up by CKINFO 


Exit: 
P=0 


Calls: Device handler specified in statenent scratch 
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Uses....... 

Exclusive: A(W), C(A), BCA}, 01 

Inclusive: ACW), B(W), CCH), DCW), D1, P, RICW), R2(A) 
Does not use DO, Status. 


Stk lvls: 3 
Note: DO NOT USE DO OR STATUS BITSti!! 
Detail: 


This routine calis the Part 2 handler by entering 
the SENDIT code. 


Histary: 
Date Progranner Modification 
06/25/82 «B.S. Updated ducunentation 


8.34 SENDIT - Send Buffer to Device via Handler 
Category: EXCUTL File: SB&lo::nS 


Narie:(S) SENDIT - Send Buffer to Device via Handler 
Nane:(S) SEND20 - Send Buffer to Device via Handler 


Purpose: 
Transmit a buffer of 8-bit ASCII characters to a 
device by calling the appropriate handler routine. 
Updates column count by the nunber of characters 
in buffer. 


Entry: 

Statement scratch set up by CKINFO 

SENDIT: 
01 points to first byte of buffer 
Buffer end is at (AVENE) 

SENB20: 
D(R) point to first byt of buffer 
ACA) is length of buffer (1n bytes) 
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Exit: 
P = 
Calls: DI@POS, 
Device handler specified in statement scratch 
Uses....... 


Exclusive: A(W), CCA), DCA}, B41 
Inclusive: A(W), BC), CCW), DCW), D1, P, RCW), RECA) 
Does not use D0, Status. 


Stk lvls: <4 
Note: DO NOT CHANGE DO OR STATUS BITS! !!! 
Detail: 
For the 10 handler, the following are the entry 
conditions: 
D(A}=Starting address of buffer, 
A(A)=Length of buffer(in bytes). 


The handler nay use any CPU registers 
except DO, RO and the status bits. 


The handler has 3 stack levels (RSTK) available. 


History: 
Date Progranner Modification 
06/25/82 ~—s«&. SS. Updated docunentation 


8.35 DPART2 - 10 Handier For Built-In Display 
Category: EXCUTL File: SB&I0::NS 


Narie:(S) DPART2 - I0 Handler For Buiit-In Display 


Purpose: 
Sends output te display devices at execution tine 
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Entry: 
P s 0 

D(A}=Start address of buffer 

A(A)=Length of bufer (in bytes) 


Exit: 
P = Q 
D1 points past last char sent (to next output char) 
Calls: CSRWPS,DSPCHA, CK" ON" 
Uses....... 
Exclusive: R1(), R2(A), ACH), C(W), 01 
Inclusive: RI(W), R2(A), ACW), BCH), CCW), DCW), DI 
Stk Ivis: 3 
Detail: 
1614131211109 8 7 65 43 2 1 0 
R1 usage: | entry DO | buffer Di | 
R2 usage: { | | counter #chr] 
History: 
Date Progranner Modification 
10/19/82 B.S. Updated docunentation 
01/27/83 ALB. Docunented exit conditons 


8.36 DPART3 - Finish up DISP line 
Category: EXCUTL File: SB&10: 24S 


Nane:(S) DPART3 - Finish up DISP line 


Purpose: 
Puts finishing touches on a DISP statenent line, 
specifically, causing the display to be built and 
the line to be scrolled if necessary. 
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Entry: 
P = QO 
InhEOL(ST4) set if CR/LF has not just been sent to 
display 
Exit: 
Pp = 0 
Calls: DOSCRL 
Uses......, 


Inclusive: A,B,C,0,00,D‘ 
Stk lvls: 5 


History: 
Date Pragranner Modification 
11/01/83 B.S. Added docunentation 


8.37 PUTRES - Put Numeric Result Into Res 
Category: EXCUTL File: SB&I0::AS 


Nane:(S) PUTRES - Put Nureric Result Into RES 
Purpose: Put numeric expression in RES register. 


Entry: Di points to start of numeric expressicn on stack 
(or any desired location). 


Exit: Carry clear: real. Carry set: complex. 
D1= sane value as entry. 
P=0,. Sets HEX node. 

Calls: POPIN 

Uses: P, ACU), BLO), DO 
RO if complex. 
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Stk lvls: 1 


Algorithn: 
Call POP1N (express purpose of checking nureric arg) 
Set DO= RESREG 
If conplex, read 34 nibbles fron the Math stack to 
put in the RES register. 
If real, sanply urite A(W) into the RES register. 
Returns D1 to original value. 


History: 
Date Progranner Modification 
08/26/82 =.8B. Wrote routine 


8.38 CKINFO - Check Handler Infornation 
Category: EXCUTL File: SB&I0::4S 


Nane:(S) CKINFO - Check Handler Infornation 
Nane:(S) CKINF- - Specify DISP Stnt & Set Handler Info 


Purpose: 
Guarantees that info in STMTRO,STMTR1 1s correct for 
the statenent that 1s being executed. 


Entry: 
P=0, HEXMODE 


Exit: 
P=0,Carry clear 


Calls: POLL 


Exclusive: R 
A 


Inclusive: 8, ,D, FUNCDO, FUNCD1 , FUNCRO, FUNCR1, STNTRO 


Stk lvls: 
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NOTE: 
Function RAM 1s NOT preserved through CKINFO!!! 


If MLFFLG is not clear, MLFFLG,STMNTRO and STMTR1 are 
updated 


Detail: 
RAN utilization: 


Pos/Width EOLLEN (Nunber of nibs) 


| | 
Handler | | Chari 
| | 1 | 
Staterent | | | | Char#2 
Type | | | 
| | | | | | Chara3 
MLFFLG | | | Haken 
- Phy | | | | |) Reserved for polled 
vv v yVVov“oV Y¥ handlers 
Wit] 5 | 5S |f1f2 f2 lz | 14 | 
| { 
STNTRO STNTR1 


If MLFFLG 1s clear then routine returns quickly 
otherwise a handler address and other infornation 
is set up to transfer information to the device 
whach 1s appropriate for the statenent. The states 
are coded as follous: 


MLFFLG 0 --> Information okay 
F --> Infornation not reliable 


Staterent type 0 --> DISP 


1 --> PRINT 
2-F --> POLL for setup 
2 --> QUTPUT 
3 --> PLOT 
4-F -~-> Reserved 
History: 
Date Progranner Modification 
11/09/82 =N.2. Updated docunentation 
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8.39 EXCPAR - Execution Tine Expression Parse 


Category: EXCUTL File: SB&I0::M5 


Nane:(S) EXCPAR - Execution Tine Expression Parse 


Purpose: 
Parses an expression in the constraints of an 
executing statenent. 


Entry: 
Carry clear: 01 contains pointer to input strean 
Carry set: A(A) contains pointer to input strean 
The pointer to the input strean 1s also used as 
a starting point for the parse stack. 
(RAVNENS) 1s start of output buffer 
P = 0 


Exit: 
p = Q 
(AVMENE) = D1 on entry 
See exit conditions for EXPPAR 


Calls: AVE=D1, EXPP10 
Uses....... 
Exclusive: R3, (AVNENE ) 


C,D0,D1,R3, 
Inclusive: A,B,C,D,00,D1,RO,R1,R3 
Stk lvls: 3 


History: 


Date Progranrer Modification 
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11/01/83 B.S. Added docunentation 











HP-71 Software IDS - Entry Point and Poll Interfaces 
Execute Utilities 


8.40 REPROM - Repronpt for input 
Category: EXCUTL File: SB&I0::MS 


Nane:(S) REPROM - Reprompt for input 
Purpose: 


Sends buffer to display following prompt and positions 
cursor to start of line. 


) = Pointer to buffer to be displayed 
fA) = Pointer to quoted string that is prompt 


Exit: 
Exits via DONNA 


Calls: DONNA 


Inclusive: A,B,C,D,00,B1,R3 
Stk lvls: 4 


History: 
Date Progranner Modification 
11/01/83 B.S. Added documentation 


8.41 INPOFF - Restart statenent after DSLEEP 


Category: EXCUTL File: SB&I0::MS 


Nane:(S) INPOFF - Restart statenent after DSLEEP 
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Purpose: 
Allows a statenent to set itself to be restarted 
1f continue 1s pressed, then turns off machine. 
ATTN key will send rachine back to BASIC interpreter 
which will suspend execution. 


Entry: 
P = 0 
Exit: 
Exits through MFERRS 
Calls: FINLIN, DSLEEP, NFER42, MFERRS 
Stk lvls: 6 
History: 
Date Progranner Modification 
11/01/83 BS. Added docunentation = 
8.42 VALOO - Parse and Execute a String on Stack 


Category: EXCUTL File: SB&VAL::MS 


Nane:(S) VALOO - Parse and Execute a String on Stack 


Purpose: 
Systen VAL function. Converts a string into a nunber. 
Any valid nuneric expression nay be passed. 


Entry: 
P = 0 

D1 points to string on top of math stack. 

S110 (=ValSub) set iff VAL is being called 
as a subroutine. 
Will cause “Data Type” error instead of 
"Invalid Argunent" and will require the 
valid expression to be followed by a CR. 
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Exit: 
Pp = 0 
String on top of stack has been replaced by the value 
obtained by parsing and executing the string. 


Calls: XXHEAD, STKCHR, ADHEAD, REVPOP, EXCPAR, OUTBYT, 
MOVEDZ, PSHSTK, EXPR, POPSTK,POP1N, AVE=D1, MFERR 


Inclusive: A,B,C,0,RO,R1,R2,R3,R4,01 
Stk lvls: 4 


NOTE: 
This routine calls expression execute which may call a 
user defined function; this nay alter a lot of RAN 
locations. The DO that is passed in is kept on the 
GOSUB stack so it will be updated if nenory moves. 


Algorithn: 
Appends a CR to string on stack. 
Reverses string. 
Parses string and verifies it is a valid nuneric expr. 
Appends an EOL to parsed code. 
Moves parsed code onto stack, covering original string. 
Saves 2 RSTK levals and DO (PC) on GOSUB stack. 
Calls EXPR to evaluate expression. 
Pops value fron stack. 
Collapses parsed code fron stack. 
Checks validity of pointers saved on GOSUB stack 
and junps to MFERR(eMMCOR) if any are not valid. 
Restores 2 RSTK levels and DO (PC) fron GOSUB stack. 
Pushes value on stack. 


Returns 
History: 
Date Progranner Modification 
02/04/83 BS. Added docunentation == 
04/08/83 B.S. Modified routine te observe S10. 
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8.43  CHKEOL - Check if at End of Statenent 
Category: EXCUTL File: SC&DAT:: AS 


Nane:(S) CHKEOL - Check if at End of Statenent 

Purpose: When processing the PRINT or READ list, check 
to see if just past the last variable on the 
list. 

Entry: DO = Progran counter 


Exit: Carry set => Not at end of statenent yet. 
Carry clear => PC 1s at end of the statenent 


Uses: A(B), C(B) 
Stk lvls : 0 


8.44 NXTVAR - Get next Variable from READ list 
Category: EXCUTL File: SC&DAT::MS 


Nane: NXTVAR - Get next Variable fron READ list 
Nane:(S) NXTVA- - Get next Variable fron READ list 


Purpose: Get the next variable fron the READ list, the 
variable will be created if it does not yet exist. 


Entry: DO @ the next variable token 


Exit: The updated DO (past the variable) saved in STNTDO 
NTHSTK 1s set to current top of stack. 
The variable value or its dope vector 1s on top of 
nath stack. 
DEST has been called ( DEST will save all the 
infornation in STATRO & STNTR1 that need to assign a 
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value fron wath stack to the variable). 
Calls: EXPEX- 
Uses: Al] CPU registers, scratch RAN and status. 


Stk lvls: 5 


8.45  SIKVCT - Process Rrray Dope Vector 
Category: EXCUTL File: SC&DAT::MS 


Nane:(S} STKVCT - Process Array Dope Vector 


Purpose: Process an array dope vector on math stack. When 
printing or reading an array to or from a data file, 
it is done one elenent at a tine. The array dope vector 
will renain on the stack until done, so it can be used 
to keep track of the next elenent addr and nunber of 
elenents left to be done. 
The dope vector on the math stack will contain : 
Nibs Meaning 


0 Variable type. A-Int, B-Short, C-Real.... 

1 Dinensions. (1 or 2) 

2 Option base. 

3-6 Maxinurt string length if is string variable 


7-10 Nurber of elements left to be done. 
11-15 Next elenent address. 


Entry: D1 @ stack pointer 
If $8 =1, rewite dope vector 

EXIT: 
Follonaing status bit will be set properly : 
Notnun(SQ) - Not sinple real 
Array (S1) - Nuneric ar String array 
String(S2) - String or string vector 
Caplex(S3) - Complex number or Conplex array 
If is an array elenent(Si=1): 

Carry clear => All elenents done 
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STACK(10-7)= Number of elenents left 
STACK(6-3) = String nax. length in bytes 
STACK(15-11)= Next elerient address 

Used: A,C,D00,01 


8.46 NXTADR - Get Address of Next Array Elenent 


Category: EXCUTL File: SC&DAT::MS 


Nane:(S) NXTADR - Get Address of Next Array Elenent 
Purpose: Get the address of next elenent of an array 


Entry: 
MTHSTK pts at the array dope vector(top of stack) 
S8 = 1 If to get the address of the first elenent 
When the dope vector is first tine recalled to 
the math stack, the address field already 
point to the next elenent address. Set $8 will 
it been noved to next elenent address. 


Exit: Carry clear: 
01 @ Top of stack 
S-RO-3 = Data type: O- real, 1-short, 2-integer 
E- complex, F- short conplex, D-STRING 
S-RO-0 = next elenent address 
If 1s a string vector: 
R3 = Max. string length 
S-R1-1 = Max. string length 


Used A,C,D0,D1, STMTRO, STMTR1, R3 (if string vector) 


Stk lvls: 1 
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8.47 NXTELM - Get Next Array Elenent 
Category: EXCUTL File: SC&DAT::MS 


Nane:(S) NXTELM - Get Next Array Elenent 


Purpose: Get next array elenent 
While printing or reading an array, the array 
vector on the stack 1s used to keep track of next 
element address and # of elerents left. This 
routine will get the next elenent and update the 
vector information. 


Entry: 
The dope vector on the math stack will contain: 
Nibs Meaning 
0 Variable type. A-Int, B-Short, C-Real, D-S.Conplex 


£- Conplex, F- String 
1 Ditiensions. (1 or 2) 
2 Option base. 
3-6 Naxinun string length if this is string variable 
7-10 Number of elenents left to be done. 
11-15 Next elenent address. 


Exit: Carry set => All done, there is no next elenent 
Carry clear => Not done yet, there are nore elenents. 
S5 = 1 if no room on nath stack to recall the value 
of next elenent. 
If nuneric array: 

B = Next elenent 

The elenent count and next elenent address will 
be updated in the array dope vector on math 
stach. 

If still room on stack, the elenent will be 
written to the stack on top of the array dope 
vector and the MTHSTK will be updated 

If 1s a conplex array: 

D = Inaginary part 

B = Real part 

The tuo number will be written to stack too 

If string: DO @ string start 
A= Address past the string elenent 
C= String length in nibs + 4 
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Note: 
The data type, such as real, string or conplex, should 
still be indicated by S2 and $3 : 
S2 = 1 - String 
$3 = 1 - Conplex 
Used: A,B,C 
Stk lvls: 1 


8.48 STRHED - Generate String Head on Stack 
Category: EXCUTL File: SC&DAT::MS 


Nare:(S) STRHED - Generate String Head on Stack 
Purpose: Generates string header on stack 


Entry: 
The string data is sitting on top of MTHSTK 
D1 @ top of the string 
(MTHSTK) @ end of the string (beyond last character) 


Exit: String header will be written on top of the string. 
D1 @ string header. 
(MTHSTK) @ string header. 
If not enough nmerory to generate the header(16 nibs), 
it will direct exit to MFERR error routine. 


Calls: STK16? 
Uses: A,B, C(A),DO,D1 


Stk lvls: 41 
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8.49 GETCHH - Get Channel Nunber 
Category: EXCUTL File: SC&FIL::NS 


Nane:(S) GETCHH - Get Channel Nunber 

Purpose: Get the Given channel for a statenent 

Entry: DO points at the channel nunber token. 

Exit: A(B) = Channel nunber in binary 
DO past channel nunber 
CHNRESV = Channel # 
Error exit if channel # > 255 or <= 0 

Uses: All CPU registers, status. scratch RAM except 
All scratch RAM except STNTRO, STMTRI1 
(Expression execution 1s called) 


Calls: EXPR 
Stk lvls: +45 


8.50 DIMSTK - Set D1 at MTHSTK (AVMEME) 
Category: EXCUTL File: SC&SUB: :MS 


Nane:(S) DIMSTK - Set D1 at MTHSTK (AVMENE) 


Purpose: Set 01 to point to available nenory end (top of 
nath stack) 


Entry: None. 
Exit: 


D1 @ Top of nath stack (available menory end) 
C(R) = Address of AVNEME 
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Calls: 


None. 


Uses: C(A) 


Stk lvls: 0 


8.51 DIFSTK - Set D1 to FORSTK 


Category: EXCUTL File: SC&SUB::MS 


Nane:(S) DIFSTK - Set D1 to FORSTK 


Purpose: 


Entry: 


Set D1 to top of FOR/NEXT stack. 


None 


Exit: D1 points at FOR/NEXT STACK 


Uses: (C(A) 


Stk lvls: 0 


8.52 TRFROM - Trace Line Nunber 


Category: EXCUTL File: SC&IRC:: MS 


Nane:(S) TRFROM - Trace Line Nurber 


Purpose: 


Entry: 


Routine to generate the "Trace nnnn to" in display. 
The current line number 1s computed from PCAODDR. 


PCADDR @ current line length 
P=0 
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Exit: Send "Trace nnnn to" to display buffer 
(Via AVS2DS) 

Calls: TRCLIN 

Uses: f,B,C,D,D0,D1,D0, RO, P 

Stk lvls: +4 


Note: Wall exit to error routine if not enough nenory to 
buffer the display line. 


8.53 TRIO - Generate Trace Message 
Category: EXCUTL File: SC&TRC::MS 


Nane: TRTO - Generate Trace Nessage 
Narie:(S) TRTO+ - Generate Trace Message 
Narie: TRIO- - Generate Trace Message 
Nanie: TRTOX - Generate Trace Nessage 


Purpose: Generates "to nnnn'" for TRACE FLOW node. 
The line nunber 1s conputed fron DO on entry. 


Entry : 
DO is pointing at sone uhere in the current line. 
(A line can have multiple statenents) 


TRTO+: DO pts at EOL/@ preceding a statenent 


TRIOr: DO pts at the line length of a statenent. 
TRTO-: DO pts at middle of a statenent 
TRTO*: DO pts at EOL preceding the current line. 


Exit: Via CRLFSD 
TRTO+: R1 = DO on entry. 


Calls: CPLHIO, DO=PCA, DSBFCK, DSINTR, TRFM20. 
Uses: 


A,B,C,0,00,01,S89 
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Stk lvls: +5 


History: 
Progranmer Modification 


3/11/83 = SC Docunent 


8.54 LINSKP - tine Skip 
Category: EXCUTL File: SOSEXC::MS 


Nane: LINSKP - Line Skip 
Nane:(S) LNSKP- - Line Skip 


Purpose: Skips to next statenent 
Entry: 2 entry points: 


1) LNSKP- - PCADDR points to stmt length byte 
2) LINSKP - DO poants to stnt length byte 


DO points to end of statenent token (t@ or tEOL) 
A(R) = DO 

B(B) = Statenent length 

Carry Clear 


Calls: DO=PCA (LNSKP- entry only) 


Stack lvls: 1 (LNSKP- only) 
0 (LNSKP entry) 


Uses: A(R), BCA), DO 
History: 
Modifications 


07/01/82 JW, Added docunentation 
10/15/82 JM, Call to DO=PCR to save code 
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8.55 NXTSTH - Scan to Next Stnt/Junp to BASIC Loop 
Category: EXCUTL File: SG&EXC::MS 


Nane:(S) NXTSTM - Scan to Next Stmt/Junp to BASIC Loop 
Purpose: Next statement scan & junp to BASIC loop @ RUNRIN 


Entry: ENTRY POINTS: 

NATSTM - entry point to go on to the following 
statenent. No assunptions nade. 
PCADDR must be current. 
sENDx flag will be explicitly cleared. 
entry point for IMAGE & REM. 

NXTST1 - Entry point for END execute. (sENDx=1) 
PCADDR must be current. 

NXTST2 - DO points at statenent length byte. 
Assunes sENDx 1s clear 

NXTST3 - DO points at EOL token 
Assunes sENDx is clear 

NXTSTS - DO already points at EOL token 
Explicitly clears sENDx 
Entry pt for routines which may 
have inadvertantly set sENDx, perhaps 
via EXPEXC 


LABEL - Label ’execute’ (NOP) 
DATR - DATA statenent execute (NOP) 
BANG - REM (!') execute (NOP) 


Exit: DO POINTS TO @ OR EDL TOKEN 
Through RUNRTN 


LABEL: 
Skips ASCII Label 
If Multi-statenent line ("@") 
Through RUNXLP (ta avoid SST between Labels) 
else 
Through RUNRIN (with DO @ EOL) 


Calls: none 
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Stack lvls: 0 
Uses: A(A), BCR), C(A), DO, $1 (sENDx) 
Detail: USED TO ’EXECUTE’ REM, LABEL, DATA STATEMENTS 
The ENG Execute flag 1s ALWAYS cleared by NXTSTN 
END enters at NXTST1 with sENDx set 


This 1s necessary when a prograri is NOT to continue 


Label Execute: 
GEOL return to BRSIC loop 


History: 

Date Programmer Modifications 
07/01/82 S.W. Added docunentation 
03/%/82 J.P. Shift C(B) for ASCII check 


8.56 TKSCN+ - Token Scan 
Category: EXCUTL File: SG&EXC::MS 


Nane:(S) TKSCN+ - Token Scan 
Nane: TKSCN4 - Token Scan 
Nane:(S) TKSCN? - Token Scan 


Purpose: Search progran nenory (or statement buffer) for 
a specific 2 nibble begin BASIC token 


Entry: C(B) contains token to riatch on 
P=0 


D(A)= PRGNEN if in a program 
= end of statenent buffer, otherwise 
3 Entry points: 
1) TKSCN+ - DO at tEOL before search start 
2) TKSCN4 - DO at sone staterent length byte 
3) TKSCN? - DO at tEOL or t@ before search start. 


Exit: CARRY SET => Token found & DO points to it. 


8-69 








HP-71 Software IDS - Entry Point and Poll Interfaces 
Execute Utilities 


CARRY CLR => Searched to progran end 
(or statenent buffer end) without 
finding a match. 


Calls: none 


Stack lvls: 0 


Uses: A(A),BCA),C(R), DO 
History: 
Date Progranrer Modifications 
07/01/82 Su Added docunentation 
07/07/82 S.N All references to F-RO-0 & $9 


to save CURRL have been 
elininated. 


8.57 EOLSCN - tEOL Scan 
Category: EXCUTL File: SGSEXC::MS 


Nane:(S) EQLSCN - tEOL Scan 
Nane: EQLSNS - tEOL Scan 
Nane: EOQLSN? - tEOL Scan 


Purpose: Scans to tEOL (as opposed to t@ OR tEOL) 


3 entry points: 
1) EOLSCN - PCRBODR at current strt len byte 
2) EQLSN5 - DO at t@ or tEOL 
C(B)=tEOL 
2) EOLSN? - OO at t@ 
C(B)=tEOL 


Exit: Mh POINTS TO EOL; ALB) = EOL TOKEN; CARRY SET 
If EQLSCN entry point used, P=0. 


Calls: LINSKP 
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Uses: ACA), BCA), C(B), DO 


Stack lvls: 2 


History: 

Date Progranner Modifications 
07/01/82 S.W. Rdded docunentation 
01/17/83 = S.W Added EOLSNS5 entry point 


8.58 KEYFND - Key Assignment Find 
Category: EXCUTL File: SG8EXC::NS 


Nare:(S) KEYFND - Key Assignment Find 
Nane: KYFND+ - Key Assignment Find 


Purpose: FINDS SPECIFIED KEY ASSIGNMENT IN keys FILE 


Entry: P= 0 
2 entry points: 
1) KEYFND ~ B(A)=keycode 
2) KYFND+ - D(A}=keycode 
A(R) points to header of keys file 


Exit: CARRY CLR=> NO MATCH 
D1 points past last entry which 
had a smaller keycode value 
SET=> MATCH FOUND. D1 AT ENTRY. 
C(A}=Entire entry length 
DO points to file header end 
P=0 
B(A)=KEYCODE 
If entry point KEYFND uas used then: 
S8=1=> NO keys FILE 
=0=> OO POINTS TO FILE HEADER END 
R3 POINTS TO FILE START 


Calls: FILEF, LAKEYS - only KEYFND entry point 
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Uses: 
exclusive... A, BCA), C, D, Bi, BO 
inclusive... A, BCA), C, D, 01, BO, $6,S8, R3 - KEYFND 


Stack lvls: 1 KEYFND entry 
O KYFND+ entry 


History: 
Date Programmer Modifications 
07/01/82 = S.N. Added docunentation 


8.59 KEYDEL ~ Key Assignient Delete 
Category: EXCUTL File: SG&EXC:: MS 


Narie:(S) KEYDEL - Key Assignnent Delete 


Purpose: If there’s an assignment string associated mith 
specified key, delete it. 


Entry: B(A) = Keycode 
P=0 


Exit: P=0 
Carry Clear 
Any assignment to that key is deleted 
via RFAD-- 
Calls: KEYFND, MOVEUN, KYPRCK 
Uses: R-B, D1, BO, RO,R1,R3, S6,S88 


Stack lvls: 3 


History: 
Date Progranrier Modifications 
07/01/82 S.W. Rdded docunentation 
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12/29/82 S$... Elaninated call to RFAD94 


8.60 GTKYCD - Get Keycoue 


Category: EXCUTL File: SG&EXC:: mS 


Nane:(S) GIKYCD - Get Keycode 
Nane:(S) GTKYC+ - Get Keycode 


Purpose: Evaluates string expression & returns keycode 


The GIKYCD entry assunes that DO points to the 
expression to be evaluated. It errors if the 
string is null. 


GTKYC+ assunes that the evaluated expression 

1g already on the stack. A status bit setting 
on entry indicates whether or not a null string 
should cause an error exit. 


Entry: 2 entry points: 
1) GTKYCD - DO at expression. 
2) GTKYC+ - Evaluated string on stack. 
$10=1 => Null string doesn’t cause 
error exit. 


Exit: CARRY CLR => BCA) = Keycode - between 1 & AB 
ACA) = Shift value (0,56,112) 


If error encountered, error exits through MFERR 
with eDATTY or efVARG 


Calls: EXPEXC, POPIS, DECHEX, CONVUC, DRANGE, MEMBER 
Uses: 
Exclusive... A-D, B1,B0, $8,$9,S$10 
Inclusive... fhove + RO-R3, SO-S11, all of function scratch 


Stack lvls: 5 


History: 
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Date Prograriner  flodifications 

07/01/82 S.W. Added docunentation 

12/17/82 9S. liken key assigned using ascii 
char (not key#), now erroring on 
alternate characters; for exanple 
those with ascii val less than 32 
(blank) or greater than 125 (}). 
Was making assignnents to keys in 
non-obvious way. 

01/26/83 S.N. Betneen ascii values 32 & 125 are 
4 values which aren’t represented 
on our keyboard - these are now 
trapped out. 


02/22/84. B.S: Changed GIKYC* entry point to 


allow returning with carry set 
and B(A}=0 if null string passed. 


8.61 STMBUF - Collapse statenent buffer check 
Category: EXCUTL File: SG&EXE:: MS 


Narie:(S) STMBUF - Collapse statenent buffer check 
Nane:(S) STMBCL - Collapse statenent buffer check 


Purpose : Sone statenents need to collapse the statenent 
buffer when executed fron the keyboard. 
These statenents are: CONT, RETURN, ENDSUB, ENDDEF 
They call the entry point STMBUF. 
STMBUF - Collapses Statenent Buffer only if no 
prograr 1s running 
STMBCL - Collapses Statenent Buffer, unconditionally 


Entry : $13 * 0 af the staterient 1s executed fron keyboard 
STMBCL: Aluay collapses 


Exit: Carry set 


Calls : JT/OC0L, SIMBFD May exit via FORUPH 
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Uses : A-D, DO, D1, S14 (STMBUF entry only) 


Stk lvls : 2 
History: 
Date Progranner Modifications 
01/27/83 = S.W. Added call to RFADJ- to zero 
references to collapsed buffers. 
fidditionaily uses RO,R1 
05/19/83 J.P. Set NoCont if not running so 


ENDSUB, ENDDEF , RETURN will SUSP 


8.62 SCOPCK - Scope check 
Category: EXCUTL File: SG&EXC::MS 


Name: (S) SCOPCK - Scope check 
Purpose: Verifies if an address 1s in current progran scope 
Entry : A(A)= ADDRESS TO BE VERIFIED 
Exit: 

R 1s preserved fron entry 

Carry clear - Address in current progran scope 

Carry set - Address out of current program scope 
Calis: none 


Uses: C(A), 


Stk Ivis: +0 
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8.63 KEYNAN - Return key nane string fron keycode 
Category: EXCUTL File: SG&KEY:: MS 


Nane:(S) KEYNAM - Return key nane string fron keycode 


Purpose: 
Returns string representing a keycode 


Entry: 
A(B)=Keycode to be naned. 


Exit: 
AC(WP)=ASCII for keycode. 
P=Word thru pointer length of text 
UseQuo(SO0) set aff double quotes should be used 
to surround string. 


Calls: RANGE, HXDASC 
Uses: R,B,C,RO,S0,S1, S82, DO 
Stk lvls: 2 
History: 
Date Progranner Modification 
11/0/83 BS. Updated docunentation = 


8.64 MFERS2 - Position DO to start of BASIC stint. 


Category: EXCUTL File: TISERD: 2M 


Nane:(S) MFER42 - Position BO to start of BASIC stnt. 
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Purpose: 
To position DO to start of BASIC stmt -- to either 
an "@" character, or the line nunber. 


Entry: 
PCADDR pointer nust be updated already (points 
to the farst token in the BASIC statenent). 
$1320 if progran not running 
=1 1f progran running. 


Exit: 
{P unchanged) 
Carry set: progran not running (S13=0 at entry) 
Carry clear: progran rumning (S$13=1 at entry) 
DO points to either the “@" character 
or to the line nunber at the start of 
the BASIC statenent. 


Calls: DO=PCA, RICHK 


Exclusive: DO 
Inclusive: ACA), DO 


Stk lvls: 1 


NOTE: 
This routine does not find the start of a BASIC state- 
nent -- call CPL#10 for that. For MFER42, PCADDR rust 
already point to the first token 1n the statenent. 
This routine sinply backs up DO to the "@" (DO0-2), 
or the line number (DO0-6). 


Algorithn: 
If $13=0 (program not running), return. 
Fetch PC fron PCRDDR, put an DO. 
Back BO up 2 nibbles, to possible "@". 
ATCHK: If DO points to "@", rtnec. 
Else, DO-4 to point to line number. 


History: 
Date Progratiner Modification 
12/08/82 MB Docurnentation 
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8.65 IBMSTX - Find and Build Message Fror lex Table 


Category: EXCUTL File: TI&ERD:: NS 


Nane: TBNSTX - Find and Build Message Fron Lex Table 
Nane:(S) TBNSG$ - Find and Burid Message Fron lex Table 
Nane; MsgAvs - Build message fron table, in AvMenSt 


Purpose: 
Search LEX tables for desired ntessage, and build it 
into a buffer at DO. 


Entry: 
NsgAvs ~- RAM location ERR# contains desired sq # 
THMSTX -- DO points to buffer to build message. 
RO(3-2)= LEX IDR, ROCB)= nsg 4. 
P= desired value to clear portian of RO. 


Exit: 
DO points to FF terminator at end of built nsg. 
P=0, C(B)= FF. 
Carry cleared. 
Calls: LXTFND, DORSCI, CSRWP9, CSLUP9, RANGE, 
Uses: 


Exclusive: A,B,C,D,B1,00,R0,P, 
R2 (1f msg calls for text insertion) 
Inclusive: sane 


Stk lvls: 2 


Algorithn: : 
NsgAVS Set DO=AvMenSt 
Copy ERRN (fron ERR#) into C(3-0) 
TMBSG$ Set P=15 to disallow all text insertions 
TBMNSTX Save msg nunter in B 
(1) Clear RO(WP) 
Set Dl=start of LEX 1/0 buffer (LXFND) 
If wessage is from LEX ID=00, go to (3). 
(2) Chain through buffer until: 
End of buffer: Send out null (nsg #0000} 
LEX buffer natch. 
Conpute offset to LEX file nessage table. 
Check tressage table range; if no natch, 
go to (2). 
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(Range natch: ) 
Save address of table in D(A). 
(3) If searching for table title, set nessage 
nuriber=00 
Search table for message nunber 
If no natch, send out null (nsg #0000) 
(Message natch: ) 
(4) Process cells: 
If cell id = C, go to (5). 
Tf cell id < B, then call DORSCI 
to output #chars. Process next cell. 
If cell id = B, then read next nib, 
call DORSCI. Process next cell. 
If cell id = 0, store present table 
address in RO, set D1=address in D(A), 
go to (3). 
If cell id = E, set Dt=nainfrarie table 
address, store present table 
address in RO, go to (3). 
If cell id = FO, set B=new msg nunber 
fron table, go to (1). 
If cell id = F1, set B=new msg nunber 
fron R2, go to (1). 
If cell id = F2 or F3, fetch codes fron 
R2, store present table address in RO, 
call DOASCI. Process next cell. 
(5) If table address in RO (fron previous cell) 
set Di=that address, go to (4). 
Else, fall into DO=AVS, return. 


History: 
Date Progranner Modification 
01/05/83 MB Decunentation 


8.66 FLDEVX - Make Device Code Explicit 
Category: EXCUTL File: TI&UTL::MS 


Nanie:(S) FLDEVX - Make Device Code Explicit 
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Nate: FLDEV+ - Make Device Code Explicit 


Purpose: 
Maps the FSPECx device code into the FIB device code 
mMithout having to find the file using FINDF. In certain 
Cases naps unspecified device states to appropriate code. 


For SOURCE device: 
Does NOT nap undefined device to MAIN. Identifies port 
af explicit. Returns carry set only for illegal port. 


For DESTINATION device: 
Maps undefined device to MAIN, explicitly identifies 
port. Returns carry set for 1llegal or unspecified 


port. 
Entry: 
S3(sDEST) = O af SOURCE file (see above), 1 1f DEST file. 
Pp = Q 
FLDEVX: 
D(S) = Device code returned fron FSPECx. 
D(3-0) = Device code data returned fron FSPECx. 
FLDEV+: (for file info as returned by RDINFQ) 
D(O) = Device code returned fron FSPECx. 
0(4-1) = Device code data returned fron FSPECx. 
Exit: 
Pp = 9 


Carry clear: 
Device code and data are sufficiently explicit. 


D(S) = See Detail 
D(A) = See Detail 
Carry set: 


Device code and data are illegal or not explicit: 
SQURCE: Port ID 1s specified but illegal. 
D(A} = 0 
DEST: Port ID unspecified or illegal. 


If PORT ID unspecified: D(B) = FF 
else D(A) = 0 
C(3-0) = Errer code: "Device not Found’ 
Calls: ROMF-1, CSLW5, CSRS 
Uses....... 
Exclusive: C(S), CCA}, BCA), RO(15-5), rah 
Inclusive: B, C, D, D1, RO(15-5), Ri, R2, R3, S2 
Stk lvls: 3 
Detail: 
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ON ENTRY ON EXIT 
D(S) D(S) D(4-3) D(xXS) D(B) 
F (Undef ) 0 (DEST) 0 0 0 
F (SOURCE) 0 0 0 
0 (MAIN) 0 0 0 0 
1 (PORT) 1 (IRAN) 0 0 Port ID 
2 (ROM) 0 0 Port ID 
3 (EEPROM) 0 0 Port ID 
7 (CARD) 7 (CARD) entry entry PCRD flg 
8+ (HPIL+) 8+ entry <device address> 
History: 
Date Progranner Modification 
05/19/82 FH Wrote. 
11/15/82 FH Completely rewrote for new device 
codes. 
03/21/83 JP Error Msg = eDVCNF 
03/21/83 JP Pack byte by calling ROMF- 


03/21/83 JP If PORT not found, set D(A)=0 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
File Utilities 
$--+----------+-------- +--+ - == - -- +--+ +--+ ++ ---- + 
| | 
|} FILWTL - File Utilities | CHAPTER 9 
| | 

+ 


Oe am ew a a ee en ee ee eee 


9.1 TFHDLR - Find Transforn Handler 
Category: FILUTL File: FH&TFN::MS 


Nanie:(S) TFHDLR - Find Transforn Handler 


Purpose: 
Find the address of a transform handler capable of 
reading and transforming lines of the source type into 
lines of the destination file type. 


Entry: 

P = 0 

A(A) = Destination file type 

C(A)} = Source file type 

$5 = Set if transformation is IN PLACE (sTFINP) 
Exit: 

P = 0 

$5 = Preserved (sTFINP) 

Carry clear: [Transform handler found] 

SO = Set if transform requires a handler (sTFREQ) 

C(R) = Destination file copy code 

C(S$) = Transform handler address 


Carry set: 

Indicates that a transform handler NOT found, or that 
the source and destination file types are the sane 
and no LEX file declared that a handler sas needed 
(in this case, SO will be clear; transforn can be 
handled by COPY or by doing nothing if IN PLACE). 


Calls: FPOLL 
Inclusive: R,B,C,RO, D0, D1 


Stk lvls: 5 
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History: 
Date Progranner Modification 
04/01/83 FH Derived fron in-line code 


$9.2 LOCFIL ~ Locate File With FIB 
Category: FILUTL File: FH&TFMN::MS 


Nane:(S) LOCFIL - Locate File With FIB 
Nare: LOCFIH - Locate File With FIB 


Purpose: 
Find FIB for file given file number and return position 
information, 


Entry: 
LOCFIL: 
A(B) = FIB file number (LOCFI+ will return it in R4) 
LOCFI#: 
R4(15,14) = FIB file nunber 


Exit: 
P = 9 
R4(15,14) = FIB file nunber (LOCFI+, LOCFI# only) 
Carry clear: FIB entry found 


A(x-0) = "Data Begin” field of FIB entry 
(S) = Protection nibble from FIB 
B(A) = Address of FIB entry 
C(A) = “Current Position" field of FIB entry 
B(S) = Device code 
(A) = D(X) = Dev addr if external device, rest 0 
= D(B) = Port id if port, rest 0 
= 0 if MAIN 
D1 @ "Current Position" field of FIB entry 
$7 = Set if current position is at EOF (s€0F) 
$10 = Set if external device (sI/OBF ) 
STMTO1 = Address of File FIB 


Carry set: Error encountered 
C(3-0) = eFnFND if FIB entry not found 


= 
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= eNtINP if external device 


Calis: FF IBH 


Inclusive: A,B,C,D,D1,P,S7(sEOF),S10(sI/O0BF) 
Stk lvls: 2 


History: 
Date Progranrier Modification 
06/07/82 FH Besigned and coded 


9.3. PURGEF - Purge Internal or External File 
Category: FILUTL File: FHATFM::M$ 


Nane:(S) PURGEF - Purge Internal or External File 


Purpose: 
Purge file given its FSPECx information. 
Entry: 
P, = 9 
A(W) = First 8 chars of file nane. 
RO(3-0)= Last 2 chars of file nane. 
D(S) = Device code 
D(3-0) = Secondary device info 
Exit: 
Pp = 0 


File purged. If file not found, error ignored. 


Calls: 
FINDF, PRGFNF, POLL 


Inclusive: A-D,DO,D1,P,RO,R1,S-RO-0, S-RO-1,S$7,S8 
If purging current file: also R2,R3,S9,S$10,S11,87-S0 
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mS IE, EER " also R2,R3,59 
Stk lvls: 6 
History: 
Date Progranner Modification 
06/07/82 FH Designed and coded 
06/09/83 Fit Expanded to include external files 


9.4 ?PRFIL - Check File Protection 


Category: FILUTL File: FH&TFA:: MS 


Nane:(S) ?7PRFIL - Check Fils Protection 
Nane:(S) ?PRFI+ - Check File Protection 


Purpose: 
Checks file protection nib returned by LOCFIL for 
privacy (?PRFIL) or securaty (?PRFI+). 


Entry: 
= 0 
ACS) = Protection nibble 
Exit: 
P = 0 


Carry set: 
C(3-0) = File protection error code (eFPROI). 


Calls: None. 


Inclusive: C(S), C€(3-0) 
Stk lvls: 0 


History: 


Date Progranner Modification 
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08/24/82 FH Designed and coded 


9.5 RDBAS - Read Line Fron Basic File 
Category: FILUTL File: FH&TFM:: NS 


Nane:(S) RDBAS - Read Line Fron Basic File 


Purpose: 
Read a line fron a BASIC file given the file’s FIB. 
For nerory files, FIB 1s spaced past line but no data 
1s copied to output buffer. For external files, line 
read 1s copied to output buffer. 


Entry: 
R4(15-14) = File FIB# 
OUTBS @ Start of output buffer 
(AVNENS) = (QUTBS) 


Exit: 
Pp = 0 
Carry clear: Line read 
37 = Set if file was positioned at EUF at operation 
start, hence no data read (sE0F) 
C(A) = Full len (nibs) of line in file counting line 
header. Zero if S7(sEQF) set 
R3 = Pointer to start of data read (in file or in 
output buffer} unless $7(sEQF) set. 
Carry set: 
C(3-0) = Error code: 
Calls: RERDNB, RECNIB, TFUEOF, EOLSN?, FIBUPD, LOCFI# 
Uses....... 


Inclusive: R-0,00,D1,RO-R3, STMTR1, STNTD1, $11-S9, $7, $6, S4-S0 
Stk lvls: 5 


History: 
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Date Progranner Modification 
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12/15/82 FH Designed and coded. 


9.6 RDTEXT - Read Line Fron Text File 


Category: FILUTL File: FH&TFA::MS 


Narie:(S) ROTEXT - Read Line Fron Text File 


Purpose: 
Read a line fron a text file into the output buffer 
given the file’s FIB. The line’s length header or 
EOF mark are not copied into the output buffer. 


Entry: 
R(15-14) = File FIB# 
QUIBS @ Start of output buffer 
AVNENS @ (OUTBS) 


Exit: 

p = Q 

OUTBS @ Start of output buffer. 

AVNENS @ After last nib read. 

Carry clear: Laine read 

$7 Set if file positioned at EOF. (sEOF) 

C(R) Full len (nibs) of line in file counting line 

header. Zero if no EQF marker at end of file. 

Carry set: 

C(3-0) = Error code: 


Cails: TFUEQF, RERDNB, RECNIB, SWPBYT, LIF>NB, OBPRD 


Inclusive: A-D,DO,D1,RO-R3,P,S11-$9, 357, $6, S4-S0 
Stk lvls: 5 plus 1 RSTKBF level 


History: 


Date Progranner Modification 
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06/12/82 FH Designed and coded. 
09/21/82 FH Revised to fix byte reversal in 
line header 


9.7 REAONB - Read/Write Nibs To/Fron File 


Category: FILUTL File: FHATFIM::MS 


Nane:(S) READNB - Read/Write Nibs To/Fron File 
Nane:(S) WRITNB - Read/Write Nibs To/Fron File 


Purpose: 
Write a line to a file given ite FIB file number. File 
may reside in menory or on external device. File will 


be positioned to start of previous line before the line 
1s written. 


Entry: 
R4(15-14) = Nurnber of file in FIB 
C(A) = #Nibs to read if reading 
R3(A) = Length of previous line in nibs if writing 


into menory 
Output buffer contains line to write if writing 


Exit: 
P = 9 
R4(15-14) = FIBA 7 
Carry set: 
C(A) = Error code: 
Insufficient Meriory, etc. 
End of file (file is not altered) 
Carry clear: 
R3 = Nibs read or written, or offset if writing to 
nenory. 
S$? = Set aiff file at EOF after operation (sEOF) 


FIB spaced past line in file 
Output buffer collapsed if writing 
Calis: NIBL10 


a7 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
File Utulities 


Inclusive: A-D,RO-R3,D0,D1,P,STNTR1, STNTD1 
$11-S9, S8(WRITNB only) ,$7,S6,S4-S0 


Stk lvls: 4 plus 1 RSTKBF level 


mG CHECK IS MADE whether the file is protected or in RON. 
Algori thn: 
History: 
Date Progranner Modification 
06/15/82 FH Designed and coded. 


9.8 OBEDIT - Edit Output Buffer 
Category: FILUTL File: FH&TFN:: MS 


Nane:(S) OBEDIT - Edit Output Buffer 


Purpose: 
Move the trailing portion of the output buffer, betueen 
a specified address and (AVMENS), up or down by a given 
offset. Update AVMENS and perforn nenory check when 
offset is positive. 


Start of block to move (SOURCE). 

Offset of nove (DEST - SOURCE). If positive, 
neriory check will be perforned. 

P = 0 1f leeway 1s desired should a nenory check 
be perforned. 


2D 
won 


Exit: 
Pp = 0 
Carry clear: 
R(A) = Start of block to rove (SOURCE). 
B(A) = Length of block moved (old (AVMENS)-SOURCE). 
C(R) = DESTination of nove (new start of block). 


(AVMENS) updated, now old (AVMENS) + offset. 
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Carry set: 
C(3-0) = eMEM error code (Insufficient menory) 
Calls: MENCL+, MOVE*N 
Exclusive: ACA), BCA), CCA), D1, P 
Inclusive: (A), B(A), C(A), DO, D1, P 
Stk lvls: 1 


History: 
Date Progranner Modification 
09/21/82 FH Designed and coded. 


9.9  RPLSBH ~ Replace Nerory File Subheader 
Category: FILUTL File: FH&TFA:: NS 


Narie:(S) RPLSBH - Replace Nenory File Subheader 


Purpose: 
Replaces the subheader of a nenory file with the data 
stored in the output buffer. For external files, write 
the output buffer data to the subheader area of the 
file. Does NOT update the subheader length field of 
the FIB, but for nenory files it updates the Data Begin 
field. If out-of-place transform in merory file, it 
replaces the old subheaderunconditionally with the neu 
subheader in output buffer. 


Entry: 
R4(15-14) = FIBH of dest file; file rewound. 


R3(A} = Length of old subheader 
Pp = 0 
$5 = 1 iff In-place Transforn (sTFINP) 


Output buffer contains new subheader 


Exit: 
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P = 9 
R4(15-14) = 

Carry set: 
C(3-0) = Error code; insufficient merory 


File FIBH 


Calls: LOCFIL, RPLLI*, FIBHRS 


Inclusive: A,B,C,0(S),D(7-0), RO,R1,R2,R3, DO, 01 
Stk lvls: 4 


NOTE: 
File 1s ASSUMED to reside in nenory (internal file). 


Rigorithn: 
Adjust FIB pointers to make old subheader appear to be 
first line 
Replace this line with new subheader 
Adjust FIB pointers beyond new subheader again 


History: 
Date Progranner Modification 
10/04/82 FH Designed and coded 


9.10 SUPBYT - Suap Bytes 


Category: FILUTL File: FHA&TFN::MS 


Nare:(S) SWPBYT - Snap Bytes 


Purpose: 
Reverses A(3-2) and A(1-0). 


Entry: 
A(3-0) = 2 bytes to be reversed 


Exit: 
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A(3-0) = Reversed bytes 


Calls: None 


Inclusive: A(A),C(AR) 
Stk lvls: 0 


History: 
Date Progranner Modification 
09/21/82 FH Designed and coded 


9.11 CREATF - Create File in MAIN 
4 
Category: FILUTL File: JP&EXC::MS 


Nane: CREATF - Create File in MAIN 
Nane:(S) CRETF+ - Create file in MAIN or in IRAN 


Purpose: 
Create a file in designated RAM device. 


Entry: 
CREATF: 
C(A) = Total nenory size of new file in nibbles 
(must include length of file header) 
CRETFe: 
C(A) = Total memory size of new file in nibbles 
{rust include length of file header) 
O or F => Create in mainfrane 
other => Create in PORT 
D(B) deternines in which port to create: 


D(S) 


D(1) = PORT # 
0(0) = Extent 4 
D(B) = FF => Create on first avail. port 


Exit: R1 @ Start of new file (fron WFINDT) 
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B(R) = Total nenory size of new file 
CARRY SET => NEW FILE WAS NOT CREATED 
C(3-0) = €rror nunber 
CARRY CLR => FILE CREATED SUCCESSFULLY 
The following header info filled in: 
Flag field and COPY code field zeroed 
Creation tine and date 

File chain length 


Calls: MOVED3, RFADJ+, WFEIMDT, EOFLC+, ROMF-1, WFLENG 
LSTADR, RONCHK, ROMFNO, MENCKL, RCO, RAMRON 
Uses: R-D,DO,D1,RO,R1,SCRICH (32 nibs),SO-S7 (YMDHNS) 
Detail: 
B = Size of new file (Offset for pointers) 
RO= Size of new file (Saved during WFTNDT call) 
Ri = Start of neu file 
Algorithn: 
Save size of new file (RO) 
If not Mainfrane create BD(S) >= 1 
If PORT not specified D(B) = FF 
1: Find first avail port (RONCHK ) 
Error 1f no ports 
Try to create file on port (CRIPRT ) 
If not successful 
Try next port (goto 1) 
else 
Find specified port (ROMF-1) 
Error 1f not found 
CRIPRT: Error if Port not RAN (RAMROM ) 
Calc end of file chain 
Calc last address on Port (LSTABR ) 


If enough nenory 
Write zero byte @ file chain end 
Back up to file header 
Write Date and tine (WFTMDT ) 
Write file length 
else 
Check if enough renory u/LEEWAY to create 
Read End of Source (SVMENS) --->(10) 
End of Destination AVMEMS + File size --> (D1) 
Length of Source = End of Source - Begin of Source 
= AVMEMS - (MAINEN - 2) 
Begin Source @ Zero byte of File Chain 
Nove nenory doun (MOVED3) 
Zero flags,write Tine, Date to hdr(WFINOT) 
Write File length chain to header 
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Save PRGMEN, CURREN (R1) 
Adjust renory & stack pointers (RFADJ+) 
Restore PRGNEN, CURREN 


Stack lvls: 5 
4 1? file created in MARIN 


History: 
Date Programmer Modification 
06/30/82 SM. Rdded docunentation 
07/15/82  3P Modified D(S) entry conditions 
1O/11/82 IP Added LEEWAY check for MenChk 
12/17/82 = SLM. Eliminated check for ROM - 
Trapped out in poll, as mith 
other non-kAM menory devices 
01/10/83 SLM. Elininated poil to CREATE on 
non-RAM device 
01/31/83 9 S.M. Always uses 5 stack levels 
03/17/83 IP Packed 0D1=(5) =MAINEN 
06/23/83 S.W. When adding file to an IRAN, now 


we Guard against ’wrap-around’. 
Replaced GOVUNG RMENM 1/ 
GOLGNG RMENIO, 

06/29/83 SLU. flon’t save CURREN on RSTK before 
calling RFADJ+ - uses too nany 
levels - use RI instead, 


9.12  WFIMDT - Write Flags, Tine, Date to File Header 


Category: FILUTL File: JP&EXC:: MS 


Nane:(S) WFIMDOT - Write Flags, Tine, Date to File Header 


Purpose: 
Zero Flags, Write Creation Tine & Date to file header 


Entry: 
DO @ File start 
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WFIMD-: Set flag to prevent Nib 2 of Flags to be zeroed 
WFIMDT: Clear flag: Nib 2 of flags 1s zeroed 


Nib 2 of flags = COPY code nibble 


Exit: 
DO @ Tine field of file header 
P=0 
R1 @ File start 


In RAN: 
Flag: 00 
Tine: nnhh 
Date: ddrinyy 


Calls: STO1, YMDHMS, RCO1 


Exclusive: 


ACA), C,P,00,R1 
Inclusive: A,B, 


C,D,P,D0,D1,RO,R1,SCRTCH (32 nabs), $0-37 


R1 = File start 

YMDHMS uses A-D,RO-R1,00,01,S0-S7 
STO1 uses A,DO,SCRICK (32 nibs) 
RCO1 uses RO,R1,00,A 


Stk lvis: 3 


Detail: 
$101 called to save RO-R1 in SCRTCH 
YMDHNS uses these registers 
RCO1 restores RO-R1 


NOTE: 
This routine could be shorter if another scratch 
register or the stack was used to save the position 
Within the file header @ Tine 


Since this 1s a utility I’n trying to minimize the 
usage of R registers and subroutine levels 


rm 
oe 


The positioning fron the File start to the TINE field 
1s through LENGTHs not OFFSETs. 


History: 


Date Progranrier Modification 


07/04/82 JP Modified docunentation 
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9.13 PEDIT - 


Category: 


Nane:(S) PEDIT  - 
Nane:(S) PEDITD - 


FILUTL 


Entry Point and Poll Interfaces 


Progran Edit 


File: JP&NEM::MS 


Program Edit 
Progran Edit to delete line 


Narie: PEDITN - Progran Edit not collapsing stacks 
Purpose: Edit/delete line in current erogran 
Entry: PEDIT => 
Edit line into current progran 
Line in output buffer 
S8 1s cleared 
Stacks/SUSP prog cleared after 
Pretection Check 
PEDITO => 
S8 nust be set 
Delete Line 
Line# to delete in output buffer 
Stacks/SUSP prog cleared after 
Protection Check 
PEDITN => 
MERGE corimand entry point 
S8 must be clear, to avoid delete 
PRIVATE and SECURE have already been 
checked 
Stacks will NOT be collapsed 
Exit: 
Carry Clear 
R3= offset of nenory at higher address 
Nenory pointers updated 
else 
Errar Exit 
Non BASIC file type eF TYPE 
File protected ePROT al 
Unsuccessful replace of line 
Calls: FINDL+, SAVEL+, RPLLIN, OBCOLL, CHKPSF, CLPSTK 


NXTLIN, DI=CRS, DOOUTB, CLLINK 
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Uses: R, B, C, D, DO, D1, OUTBS, RO-R3, $8 
If GOTO/GOSUB lanks are cleared, Si is used 


Detail: 


PEDIT: Clear Delete Line flag 
PEDITD: If current file type not BASIC or protected 
Error Exit 
Colapse stack, zero addresses, clear SUSP annun. 
PEDITM: Zero Label chain and all GOTO links an file 
Move Qutput Buffer to end of available nmenory 
Set DO @ start of line to Edit (@ OUTBS) 
Update CURRL to new line # (SAVELO) 
If null line (S8=1) 
Collapse Output Buffer 
Call FINDL to find a natch on line# >= 
Set D = End of program mnenory (MAINEN) 
Conpute old line length 
Replace line 
If unsuccessful 
THEN MFERR 


Stack lvls: 5 
History: 


Date Progranner Modifications 


wee w eww ome ew eww eee mew wee ewe wee 


07/08/82 SW Updated docunentation 

01/11/83 SW Eliminated poll on non-RAM device 

03/02/83 JP Packed GETPRe to CHKPSF 

03/03/83 JP Moved PEDITM entry, CLPSTK call 
9.14 FINDL - Find Line# within a Prograr File 


Category: FILUTL File: JP&MEM:: AS 


Nane:(S) FINDL - Find Line# within a Progran File 


Purpose: 
Attenpt to find passed in Line# within progran and 
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Return with pointer to start of line 


Entry: 
FINDLR: Read Line# @ DO into C(A) 
FINDL : C(R) Line# to find 
FINDL+: B(A) Lined to find 
FINDLO: B(A) Line# to find 
C(A) Start of Search 
D(A) End of Search 


Not moa ow 


Assumes: File type = BASIC 


Exit: 
D(R) = End of CURRENT file 
DO = Previous line found 
= 0 if No previous line found 
Carry set 
Line# found 
D1 @ Line# 
$0=0, $1=0 
Carry clear: 
$1=1 ---> NULL progran - D1 past EOF 
S0=1 --->  Line# not found - D1 past EOF 
$0=0,81=0 --->  Line# > found - 01 @ line# 
If line# found - Carry set 
D1 @ Line# found 
SO=0, $1=0 


If line# > found - Carry Clear 
D1 @ Line# > found 
$0=0, 31=0 
If Null Progran - Carry clear 
D1 points past EOF on file 
: SO=1, S1=1 
If line# not found - Carry clear 
D1 points past EOF on file 


S0=1, $1=0 
Error Exit - 
None 
Calls: NULLP, NXTLIN 
Uses....... 
Exclusive: A(A),B(A},C(A), D(A), 00,01, S0,S1 
Inclusive: A(A),B(A),C(A), DCR) ,DO,01,S0,S1 


Stk lvls: +3 
Detail: NULLP 
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Carry Set if Null Progran 
Di= First line of file 
D = End of current file 
C = oBSsod 
Assunes: When end of progran test done in FINDL 
If not null prograri, NOT @ end of progran 
C (00011) as ALWAYS < D (End of prograri) 


History: 
Progranner Modification 
01/04/83 Renoved $9 usage 


03/01/83 Updated docurientation 
NULLP does not Error Exit 


9.15 NXTLIN - Scan to Next Line 
Category: FILUTL File: JP&MEN: NS 


Name: (S) NXTLIN - Scan to Next Line 


Purpose: 
Scan from Line Nunber to End of Line Token 


Entry 


01 @ Line Nunber 


Exit: 

Carry Clear 

D1, C(A) POINT PAST EOL TOKEN 
Calls: None 
Exclusive: A(A),C(A),D1 
Inclusive: A(R),C(A),D1 
Stk lvls: +0 


Detail: 
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USES IMPLEMENTATION OF ’@’ FOR MULTI-STATEMENT LINES 


9.16 RDCHDR - Read Current File header, File length 
Category: FILWTL File: JP&SYS::M$ 


Name: (S) RDCHDR - Read Current File header, File length 
Nawe:(S) RDCHD+ - Read Current File header,File length and typ?? 
Nane:(S) RDHDR1 - Read File header, File length 


Purpose: 

Read file header, return File length, possibly File type 
Entry: 

RDCHDR: Sets 01 = Start of Current File @ Header 


Assunes: 
If P=0; File type read into R2 
If P#0O; File type not read into R2 
RDHDR1: Dt @ Start of File @ header 
Assunes: 
If P=0; File type read into R2 
If PHO; File type not read 
ROCHD+: Set Di = Start of Current File 
Explacatly sets P=0 
File type will be returned in R2 


Exit: 
Carry Clear 
D1 @ File length of header 
R = File length 
Current D1 + (R) = Next File in Chain 


If P=0 
R2 = File type 


P is NOT reset; necessary for GETSTC to call RDHOR1 
Calling routine must reset P=0 if desired. 


Calls: None 
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Exclusive: A(R),P,R2 ( 
Inclusive: ACA),P,R2 ( 
Stk lvls: 0 


Detail: File Header Fornat: 


File Nane 16 nibbles 
File Type 4 
Flags 


2 
Creation Tine 4 
Creation Date 5 
File Chain 5 
Inplenentation 8 


History: 
Date Progranner Modification 
06/30/82 JP Modified Docunentation ) 


01/04/83 JP Change S9 usage to P=0/PHO 


9.17 GETSTC - Get Start/EOF Curr File/check Filetype 


Category: FILUTL File: JP&SYS::MS 


Nane:(S) GETSTC - Get Start/EOF Curr File/check Filetype 
Nane:(S) GETST- - Get Start/EOF Curr File/don’t check Filetype 
Nane:(S) GETST* - Get Start/EQF any file/check Filetype 

Narie: GETSTe - Get start/EOF Curr File/Error exit not BRSIC 
Nane: GETPeF - Check protection & get file start/EOF 


Purpose: 
GETSTC,GETSTe: 
Return first line of BASIC/Binary file & EOF 
If P=0 
Verify that file is BASIC, Error Return if NOT 


See GETSTe for Error Exit if non BASIC file 


3-20 





HP-71 Software IDS - Entry Point and Poll Interfaces 
File Utilities 


GETPeF: 
Check File protection 
Error exit if file protected 
Fall into GETSTC code 
Get start/end of BASIC file 
frror return 1f non BASIC file 


Entry: 


GETPeF: Checks fiie protections 
Falls into GETSTC 
GETSTC: Di gets set to start of Current file 
Sets P=0 
File type read into R2; Check if BASIC 
Falls into BASCHK 
GETST-: 01 gets set to start of Current File 
Assunes P set on entry 
Used for PHO entry 
File type not read into R2, not checked 
GETST*: A @ Start of file 
Assunes P value on entry 


GETST1: D1 @ Fale length field of file 
A(A) contains file length 
If P=0 
Checks file type in R2 for BASIC file type 


Exit: 
If GETPeF entry: 
If file protected: 
Error Exit to MFERR  (eFPROT) 


G 


=0 

First line of file (at initial tEOL) 
End of file 

File length 


BSS 
ou ®} 


If PHO 
Carry Clear 
File type NOT in R2, file type NOT checked 


Tf P=0 
Fall into BASCHK 
. Tf BASIC filetype 
Carry Clear 
R2 = File type 
else 
frror Return - C(0-4) = eF TYPE 


Calls: RDCHUR, RDHOR1, GETPRO (GETPef entry only) 
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Uses....... 
Exclusive: A(R),C(A),D(R),D0,01,P,R2 (if P=0) 
Ixclusive: A(A),C(A),D(R),00,D1,P,R2 (af P=0) 


Stk lvls:  GETSTC,GETPeF ,GETST1,GETST*,GETST1: 14 





GETSTe: 2 
Detail: 
Positions to first line of file assuring: <a 
oBSsod = Offset to BASIC start of data, which 
includes the pernanent EOL. 
Must subtract length of EOL to position @ first line 
History: 
Date Progranner Modification 
06/%/82 IP Modified docunentation 
09/15/82 IP Changed to Error Return, not Exit 
01/04/83 JP Changed S9 usage to P=0/PHO 
03/01/83 JP Added GETPeF entry point 


9.18 BASCHK - Verify File Type in R2 is BASIC 
Category: FILUTL File: JP&SYS::MS 


Name:(S) BASCHK - Verify File Type in R2 1s BASIC 
Nane:(S) BASCHA - Verify File Type in R2 1s BASIC 


Purpose: 
BASCHK: 
Verify that File type in R2(A) 1s BASIC 
BASCHA: 
Verify that File type in ACA) is BASIC 
Error return if not 


Entry: 


P=0 
BASCHK: R2(A) = File type 
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BASCHA: ACA) = File type 


Exit: 
Pp = 0 


If File type = BASIC 
Carry Clear 
R2(A) = File type 


A = Preserved fron Entry 
else 
Carry Set 

Error Return C(0-4) = eFTYPE 
R2(A) = File type 
ACA) = File type 

Calls: None 

Uses....... 

Exclusive: 


C,R2 
Inclusive: C,R2 


Stk lvls: BRSCHK: 0 
GETSTe: 2 


Detail: This code must IMMEDIATELY follow GETSTC 


History: 
Date Progranner Modification 

06/30/82 IP Modified docunentation 
09/15/82 JP Changed to Error return/not exit 
42/17/82 JP Added BASCHA entry 
01/04/83 JP Added P=0 at end, due to GETSIC 
03/01/83 JP Renove GETS-e entry due to NULLP 
04/25/83 JP If non BASIC, R2 = filetype 


9.19 FCHLBL - find Label in Current BASIC File 
Category: FILUTL File: JP&SYS::MS 
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Nane:(S) FCHLBL - Find Label in Current BASIC File 


Purpose: 
Find a label in the current BASIC file 
Assunes current file is BASIC 


Entry: 
Assunes current file is BASIC 
R3 = Label to find 


Right justified with trailing blanks 
Falls into CONPL# 


Exit: 
Pp = Q 


Carry Clear - Label Found 
DO @ EOL preceding line containing Label 
01 @ Line # of line containing Label 
Carry Set - Label Not Found in Current file 
Calls: GETSTC, TKSCN7, LBLNAN 
Exclusive: A,B(A),C,D 
Inclusive: A,B(A),C,D 
Stk lvls: 2 
Detail: 


Fall into COMPLH to compute Line# after Label found 
This code must IMMEDIATELY precede CONPL# 


History: 
Date Prograriner Modification 
06/3/82 JP Nedified docunentation 
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9.20 CONMPLH - Conpute Line # with DO @ line length 


Category: FILUTL File: JP&SYS::M8 


Narie: COMPLH - Compute Line # with DO @ line length 
Narie:(S) CPLH10 - Compute Line # with DO anywhere in stat 
Narie: CPLH15 - Conpute Line # with C anywhere in stnt 


Purpose: 
Conpute Line # fron position within statenent 


Entry: 

CONPLH: DO @ Line length of statenent 
CPLH1O: DO @ anyihere within statenent 
CPLH15: C @ anywhere within statenent 


Exit; 
Carry Clear => Line # found 
Pp = 
D1 @ Line # 
DO @ EOL preceding the Line# (D0=D1-2) 
Carry set => The input pointer is not pointing at 
current file. 


Calls: GETST-, 


Exclusive: A(A),B(A),C(A),D(A), 
Inclusive: A(A),B(A),C(A).D(A), 
Stk lvls: 2 


Note: This routine will not check file type, it assunes the 
current file is type BASIC. 


Detail: Do not call this routine if specified address 1s 
at initial tEOL. If at low nib of anitial tEOL 
will return with carry set; af at high nib of 
initial tEOL will not work properly - found in 
code revienw {S.W.) 


History: 
Date Progranner Modification 
06/30/82 JP Nodified docunentation 
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01/04/83 JP Renoved S9 usage 
03/30/83 XC Nodified documentation 
04/15/83 JP Fixed check for @ (F4) 


9.21 PFINDL - Find Line# Within Progran 
Category: FILUTL File: JP&SYS::MS 


Nane:(S) PFINDL - Fand Line# Within Progran 
Nare:(S) PFNDZL - Find Line# Within Progran 
Nane: PFNDL*® - Find Line# Within Progran 


Purpose: 
Find Line# between current progran boundary 


Entry: 
PFINDL: 
P=0 
Assunes PRGNST, PRGMEN are current and updated 
DO past Line# token 
Clears sxWORD (S9) flag to use Conpiled Line# reference 
PFNDZL: 
P=0 
Sane entry as PFINDL 
DO past Line# token 
Assunes sXWORD (S9) is set so: 
Will always search for Line# 
Allows XWORD entry, to search for Line# and not 
rely on compiled line# address, which may be bad. 
PFNDL*: 
P= 0 
Db @ End of range to search for Line# 
DO past Line# token 
Used by RENUMBER 


Exit: 
Pp 
pO 


0 
DO on entry (past Line# token) 


Carry Set - Line# found 
D1 @ Line# 
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Reference to Line# (entry DO) 1s "compiled" 
Relative address to line# is filled in 


Carry Clear - Line# not found 


Calls: SCOPCK, ISRAN? 


Exclusive: A(A),8(R),C(A),0(A), 01,00, 
sKWORD (S9-PFINDL/PFNDZL only) 

Inclusive: 8,B(A),C(R), D(A), 61,00, 
sKWORD(S9-PFINDL/PFNDZL only) 


Stk lvls: 2 


NOTE: 
This routine will search between PRGNST & PRGNEN only 
if PFINDL or PFNDLZ is called. 


PFNDZL will always search for Line# (if sXWORD set) 


PFNDL* uses D(A) for boundary 


Detail: 
If not XWORD entry: 
It will look at the compiled address field following 
the line nunber first. 
If the corpiled field is non-zero 
Coripute the address of the Line# 
else ; 
Search the entire progran 
Write the compiled agdress to RAM if Line# found 


History: 

Date Progranner Modification 
06/30/82 . IP Modified/Added Docunentation 
02/04/83 JP ISRAN? call uses all of A 
02/22/83 IP Added PFNDZL entry added 
02/22/83 = JP Added $9 (sXWORD) usage 
03/08/83 JP If not running; always search 
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9.22 NULLP - Null Progran Check 


Category: FILUTL File: JP&SYS::MS 


Nane:(S) NULLP - Null Progran Check 


Purpose: 
Check if current BASIC program 1s NULL 
Position to First line | EOF 


Entry: 
File type will be checked if P=0 
If P=O: File Type 1s returned in R2 (fron GETST-) 
Tf PHO: File Type will not be returned, nor checked. 


Assunes: Length to data = Length to data of 
BASIC/ Binary file 
Assunes File type = BASIC or Binary or file with sane 
structure 


Exit: 


Carry Set - Null progran 
Carry Clear - not Null progran 


P =0 
Di = First line of File (@ EOF) 
D = End of progran 
Fron GETST- 
R = File Length 
R2 = File Type (if P=0 on entry) 
DO = First line of File 
Calls: GETST- 
Uses....... 
Inclusive: A(R),C(A),P,00,01 
Exclusive: A(A),C(A),D(A),P,D0,D1,R2 (If P=0 on entry) 
Stk lvls: 2 


Detail: Get start and end of current file (GETST-) 
Move First Line of file pointer to 01 
If file length = Offset to BASIC start of data 
RINYES THULE program) 
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Null Progran File Length = Offset BASIC start of data 


History: 

Date Progranner Modification 
06/3/82 JP Nodified documentation 
01/04/83 JP Renove $9 usage 
03/01/83 IP Renoved Hardwire Error Exit 


9.23 CHAIN+ - Chain Subprograns, Labels, DEF FNs 


Category: FILUTL File: JP&SYS::MS 


Nane:(S) CHAIN+ - Chain Subprograns, Labels, DEF FNs 
Nane:(S) CHAIN- - Chain Subprograns, Labels, DEF FNs 
Nane: CHRIN* - Chain Subprograns, Labels, DEF FNs 


Purpose: 
Chain ali Sub-prograns in a file 
Chain all Labels in a file 
Chain all Def FNs in a file 


Entry: 
Pp = 0 
Assumes Current file is BASIC 


CHAIN+: €hain Current File 
CHAIN-: A @ Start of file to chain 
CHAIN*: D1 @ Sub-link of frle 

D @ End of file 


Exit: 
P = 0 
DCR) = End of file 
D1 @ Sub-link of file 


Error Exit - if file not in RAN 
eFACCS - " Illegal Access" 


Calls: FNDDO+ (FINDA), ISRAN? 
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Exclusive: R,B(A),B(S),C,0(R),00,D1,R2 
CHAIN*: Di is preserved 


Sth lvls: 2 
History: 
Date Progranner Modification 
06/0/82 JP Modified documentation = 
01/17/83 S.W. Updated/Expanded docunentation 


9.24 FILCRD - Copy File To Card 
Category: FILUTL File: MN&CD:: NS 


Nane:(S) FILCRD - Copy File To Card 


Purpose: 
Copy file from nenory to card. 


Entry: 


C{A}] points to start of file header. 
R1 contains nane to be used on card. 
natie specified (use nane of file). 


S8=1 if private card requested. 


Exit: 
Returns if write conpleted. 
NXTSTM if write aborted. 
Error exits: 
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Zeroes if no 


Calls: ALIGN, BLANKC, CHKSUN, CMPTIN, CR??, CRDOFF, 


CSLW5, D1+13B, 01+21B, D1+29B, DAYYMND, FNDPRT, 
FROMDT, FTYPF#, IMPFLD, IORL36, LCTRKS, MAXTRK, 


POLL, PREPDT, PREPHD, R1TODO, RCO1, RD8&SV, 

RDSOC, RDYTRK, READCS, READFL, RTODP, STO1, 
STDRG?, TOCARD, TODT, TRKDON, VFYCRD, WAITM+, 
WRIT8S, WRITE, WRITFL, WRNSG, WRT2-0, YMDDAY, 
aslu5, asrw5, crifnd, csru5, fpoll, idiva, 
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noscri. 


e@nocoee 


A,B,C,0,P,D0,D1,ST,RO-R4, 
SNAPBF, SAVSTK, SCRTCH, 8 levels in RSTKBF. 


Stk lvls: 4 


Detail: 


~ 


Card fornat chosen for conpatibility with HP-75. 

Card 1s divided into four fields, each preceded by a 
hardware recognized flag and followed by a zero byte. 
Fields are separated by a 66 ttfc (tinetrack flux 
change) gap. fields are as follous: 


Start-of-Card: recorded at factory when tinetrack 
1s recorded. 

SOC marker: "HP" (2) 

format: "CV" (2) 

size: # bytes available after write-protect field 
(specific to Corvallis fornat) (2) 
for 10" cards: 2BC (=700 base 10) 

(reserved): 0000 (2) 


Write-protect: 4-byte field: 
0000 for urite-enabled cards. \ (2) 
FFFF for write-protected cards. / 
(reserved): 0000 (2) 
padding added by HP-75 (1) 


Data Header: identifies file, contains security 
infornation. 


% identifies fields which differ between HP-71 and 
HP-?75 fornat. HP-75 format 1s only used 
for LIF1 (text) files. 


0: sub-format (1): 0 for LIF1 file (HP-75 subfornat) 


01 for HP-71 files (HP-71 subfnt) 


1: track# (1) 

2: # of tracks in set (1) 

3: # bytes in this track (2) 

5: # bytes in file (2) 

7: file type (2): HP-75 filetype (HP-75 subfornat) 
LIF filetype (HP-71 subfornat) 

9: creation date (4): hex seconds since start of 


century. 
13: file nane (8) 
21: password (4): blanks for LIF1 filetype (HP-75) 
inplerentation (4): (HP-71 subfornat) 
25: warker (2): checksun of entire file, including 
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file header. 

27: partial statenent status (1) 

28: s1 (2) 

30: s2 (2) 

32: data checksun (2): 2-byte checksun of data field. 

34: header checksun (1): 2-byte sun of header field, 
folded to one byte without 
uraperound carry. 

35: (reserved) (1) 

padding added by HP-75 (2) 


File headers for the two subfornats differ only in 
bytes 0, 7-8 and 21-24. 


=== Data: 650 bytes 
padding added by HP-75 (3) 


All files except LIF1 will use LIF filetype in the 
filetype. For the curious anong you, HP-75 
filetypes consist of two bytes: 


high order byte: OO=HP-75 systen file 
22=HP-75 text file 
?72HP-75 basic file 
?7=HP-75 appointnent file 
?7=HP-75 lex file 
??=HP-75 keds file 
“T"=LIF1 


low order byte: HP-75 attribute byte. Identifies 
file capabilities. bit masks as defined by 
HP-75 are: 
80=1n ror 
46=file runnable 
20=file editable 
10=file listable 
08=file purgable 
04=file copyable 
O2=standard lined file 
O1=token file 
tuo inportant bit masks are: 
34=private file 
7E=data file for print#/read# 


HP~75 docunentation identifies sone basic file 
types: 

O062=calculator file 

0000=systen File 
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O13E=text file 
O27E=basic file 
030C=appointnent file 
050C=alpd fild 
0008=diagnostic file 


eam ene wee 


Function of scratch registers in card urite: 
RO=scratch 
Ri[A]=file pointer 
R1[9-5]=anount of zero-padding at end of file in bytes 
(used to bring LIF1 to sector boundary). 
R2=pointer to I/Obuffer containing header 


Furiction of status bits: 
S1: Used by Verify to suppress DATA ERROR in read fron 
FIFO. 
$2: Indicate we are on last track of card set. 


Algoraithn: 

Check for presence of card reader; eDVCNF if absent. 

Allocate I/0 buffer for building header; eNEM if 
no roon for buffer. 

Fetch filetype from file. If not copying to PCRD then 
goto 2. 

Search for filetype in filetype table. If found then 
goto 1. 

If filetype not 1n standard range then goto 2. 

Set privacy bit in filetype. Goto 2. 

1: If there are < 3 entries in filetype table for this 
filetype then goto 2. 
Read third entry (private) fron filetype table. 
2: Store filetype in card header I/Obuffer. 

Store passed destfile nane in header I/OQbuffer. 

Compute tine (seconds since start of century) and store 
in header I/Obuffer. 

If we are writing out LIF1 filetype then write HP-75 
LIF1 filetype to filetype field and 00 to subfornat 
field, else vrite 01 to subfornat field. 

Write 01 to trackH field in header 1/Obuffer. 

If copycode=8 then poll for sonebody to copy card; 
eFYPE 1f not handled. 

Conpute file length in bytes: (chain length-5)/2 if 
copycode#1, (chain length-13)/2 1f copycode = 1; 
rounded up to byte. If > FFFF bytes then eF2BIG. 

If filetype = LIF1 then pad file length up to sector 
boundary (256 bytes). 

Write file length to header I/Gbuffer. 

Commute isiplerentation field, urite to header 
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1/Obuffer. 

Perform checksun of entire file for "narker" byte--byte 
which uniquely identifies card set. Write to 
header I/Obuffer. 

Compute # tracks im card set. Write to header 
1/Obuffer. 

3: Read track# and naxtrack# fron header I/Obuffer. 
Deallocate buffer and return if track# > naxtrack#. 

Coripute trksize. Write to header I/Obuffer. 

Conpute checksun of this track. Write to header 
I/Obuffer. 

Write O's to partial card recovery fields (since 
recovery is not inplenented). 

Coripute header checksun. Write to header I1/Obuffer. 

Perforn UCRD poll. 

4: Prompt “Wrt: Align then ENDLN" and wait for ENDLINE or 
RTTN or f-ATTN or tineout. 

If ATTN or f-ATTN or tineout then abort. 

Prompt “Pull xxx of xxx". 

{card now starts noving. } 

Verify start-of-card (S0C) field. If urong then 
eJNKCD and goto 4. 

Read write-protect field. If not 0’s then ePROTD and 
goto 4, 

Suitch to urite mode, Write 16 nibbles of 0’s. 

Write BREAK to card. 

Write header I/Obuffer to card. 

Write 16 nibbles of 0’s to card. 

Write BREAK to card. 

Write data fieid to card, padding with 0’s as necessary 
for text files. 

Turn off card reader. 

5: Prompt "Vfy: Rlagn then ENDLN" and wait for ENDLN. 

Prompt "Pull xxx of xxx’. 

Verify SOC field. If fail, eUNKCD and goto 5. 

Skip urite-protect field. 

Verify header field. If error, eVFYER and goto 4. 

Verify data field. If error, eVFYER and goto 4. 

Turn off card reader. 

Update file pointer and increment track#. Goto 3. 


Hastory: 
Date Programmer Modification 
07/12/82 NM Added docurientation 
02/25/83 NM Updated "CALLS" section 
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9.25 CRDOFIL - Copy Card Into RAN 
Category: FILUTL File: MN&CD::NS 


Name: (S$) CRDFIL - Copy Card Into RAN 


Purpose: 
Copy a file from card into nenory. 


Entry: 
R3 = name of file to look for on card (zeroes if not 
specified). 
R2 = nane of file to be used in RAM after it 1s read 
in (zeroes if not specified). 


Exit: 
Returns 1f successful. 
R2(A}=pointer to file header of file just read in. 
If read fails, this code perforns an error exit and 
does NOT return. 


Calls: ASRU4A, CHKSUN, CLRALL, CMPALL, CMPWRT, 
CR7?, CRDFAB, CRDOFF, CREATF, DONIBC, D1+13B, 
01+29B, FILEF, FNDCLR, HDRHDR, IOAL36, LAKEYS, 
LC@TRK, MAKHDR, MEMCKL, MOVED3, NOCOMP, OFFSET, 
PLLCRD, R1DO37. R1TODO, RALIGN, RDSOC, RDYTRK, 
READ8S, RERDCS, READFL, RTODP, RWERR, SETBIT, 
SWPBYT, TRKDON, WRASG, aslw5, asru5, crifnd, 
csru5, fpoll, idiva, mvmen+, noscrl. 


EXITS through BUFDAL. 


A,B,C,D,P,BO,D1,RO-R3,ST, SCRTICH, SNAPBF, 
8 cr so levels in RSTKBF. 


Stk lvls: 5 


Detail: 
Creates an I/Obuffer for the card header and then 
creates the biggest possible file in the available 
meriory. Setting aside as nany nibbles at the end as 
are necessary to maintain a tracks-read bitnap, reads 
the card into the file and then collapses the file to 
the proper size after the read. 
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Register usage in CRDFIL routine: 

R1[4-0 ]=address of data area in file (past header). 
[9-§]=anount of available nenory in data area. 
{14-10]=size of bitnap. 

R2=pointer to header. 


Algorithn: 

Perforn MEMCHK on (size of file header) + (size of card 
header I/Obuffer) + (leeway); eMEN if failure. 

Compute renaining space (B=C-B). 

Add headersize for full file size (C=B+HORSIZ). 

Create file {this creates the biggest allowable file, 
wath RI pointing at start of file header}. 

Write filenane passed in R2 to file header. 

Zero out filetype field in file header. 

Hold address-of-file-data-area and size of file- 
without-header in RO[9-5] and RO[R], respectively. 
Deternine size of bitnap needed { (Hnibs in file data 

area)/(#nibs in four tracks) + 1 }. 
Ri{A}=address of file data area {past header}, 
R1[9-5]=(size of data area) - (size of bitnap) 
{ehEM if subtraction generates carry}, 
R1[(14-10]=size of bitnap {located at end of data 
area}. 
Clear all bits in bitmap. 
Create card header T/Obuffer. 
R2[A]=pointer to buffer area {past header}. 
i: Send RERD alignnent nessage to display; CRDFAB, RTNABT 
if abort indicated by RALIGN. 
Send PULL CARD nessage to display. 
R4[S])=0 {indicate read has not occurred}. 
Read SOC and WPROT (RDSOC); goto 1 if error. 
Set FLGSRYV. 
Read card header into card header I/Obuffer (MAKHDR); 
goto 1 af error. 
Read filenane passed fron file header. If nonzero and 
doesn’t match filename on card; eWRGNM and goto 1. 
{We have now deterrined the card header; hence 
filesize, nane, etc. There is no turning back. } 
2: Set FLGSRV. 
Compute offset for this trk based on trk# (OFFSET). 
D[A}=#full {8-nibble} FIFO reads; D[S]=size of partial 
read * 2, 
If track will not fit in available memory, error out 
with eMen. 
3: If D=0 goto 4. 
Read 8 nibs fron FIFO. 


Write at DO. 
Increnent DO. 
Goto 3. 


4: If there 1s no partial read goto 5. 
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Perforn partial read. 
Wrate at DO. 
5: Turn off card reader. 

Compute checksun of data just read. 

Corpare to checksun 1n header; if not match eRWERR and 
goto 6. 

Set bit corresponding to current trk# in bitmap. 

R4[S}="F" {indicate READ has occurred}. 

6: If filename in file header = 0, copy nane fron card 

header I/Obuffer. 

Search for filenane in file chain. 

If address found # address of this file then error out 
with eFEXST. 

If filetype in file header <> 0 goto 7. 

Compute filetype and security based on filetype in 
card header I[/Obuffer (HDRHDR}. 

If filetype unrecognized and not standard range then 
error out with eF TYPE. 

If filetype unrecognized and standard range and private 
then error out mith eF PROT. 

Write unencoded filetype and flags to file header. 

Read filenane fron file neader. 


If filenane <> "keys "then goto 7. 
If unencoded filetype <> =fKEY then error out with 
eFTYPE. 


7: Check if whole card set fits. If not 
then error out mith eMEM. 

Conpute tax trk#. 

Write max trk# to card header I/Obuffer. 

If R4[S}<>o0 then send “Trk #xxx done" to display. 

Find first unread trk# (FNOCLR in bitmap). 

If next trk# > max trk# then goto 8. 

Send READ alignment nessage to display. 

If abort, deallocate file and exit through RTNABT. 

Read SOC and WPROT; goto 6 if error. 

{ Nou we will copy the card header to the card header 
T/Obuffer, selectively comparing nibbles as we go. 
If a read error occurs; goto 6. If a compare error 
occurs, give eNOTST warning and goto 6.} 

Copy card header to card header I/Obuffer, comparing 
bytes 0, 5-26.5 (lonib of byte 26}. 

Compare header checksum with value on card. Warn with 
eRWERR if not match and goto 6. 

Goto 2. 

8: { At thus point, C[A] contains the length of the data 
area}. 

C[AJ=C{A}+§ {compute file chain length}. 

If filetype <> LIF1 then gato 9. 

{ File length on card is a multiple of one sector, 
which in general pads the LIF1 file a whole bunch. 
We seek to crunch the file down to its proper size. } 
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Chain through LIF1 file looking for last record {FFFF}. 
If found {file not corrupt}, use smaller chain len. 

Stash inplenentation field in R3.} 

If copy code = 0, then inplerentation field[A] is the 
actual file length; add 5 for chain len. 

{ We now have the file chain len--either fron card 
header, looking at LIF! chain or inp field}. 

Write file chain len to chain len field in file hdr. 

Conpress file to proper length. 

If copy code=1, retrieve inplenentation field; insert 
into file after chain length; modify chain length. 

Send CR-LF to display. 


Return. 
Histary: 
Date Progranner Modification 
07/14/82 NN Added docunentation 
02/25/83 = NM Updated “CALLS” section 


9.26 WSTRFX - Write a String to a DATA File 
Category: FILUTL File: SC&DAT::AS 


Nane:(S) WSTRFX - Write a String to a DATA File 


Purpose: Write a string to the fixed length data file 
If the file 1s 1m an external mass memory device, 
data will be written to its I/0 buffer first. When 
the 1/0 buffer is full or the file is closed, the 
content of the 1/0 buffer will be written back to 
the file. 

Entry: = string length in bytes 

= # of bytes left in current record 

O(R)= Current file pointer 

0(15,14)=Current byte ptr in file 1/0 buffer 

R1= record length in bytes 

D1 @ past the string ( String is stored backward) 

STNTD1 Contains FIB entry address 


A 
B 
R 
R 
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Exit: 


Calls: 


Uses: 


$9 = 0 if serial access 
= 1 1f randon access 
$10 = 0 if internal file 
= 1 1f external file(urite file I/0 buffer) 
It 1s assuned that there 1s enough roon left in the 
file. 
If the string is too long to fit into the current 
record and 1t 18 a serial access, the string will be 
broken doun into smaller logical units. 


Carry set => Rando access crossing record boundary 
Carry clear => Done successfully 

RO(15,14) & RO(A) will be nmarntained 
DO+2WR, WRBYTC 


R,B,C,D0,RO, ST[4-0] 


Stk lvls: 1 af internal file 


4 if external file (when flush file buffer) 


9.27 WRISTR - Write a string to an open TEXT file 


Category: FILUTL File: SC&DAT::MS 


Nane:(S) WRTSTR - Write a string to an open TEXT file 


Purpose: 
Write a string on stack to an open TEXT file. 


The string will be uritten out as: 


t-------- $-----------------~---------- t----+ 
| Length | String | Pad| 
t-------- t--+ +237 +--+ +--+ +--+ +--+ t----+ 
bytes n bytes 1 bytes 
The pad 1s not included in the length and it will be tos 


there only if the string length 1s an odd nunber. 


Entry: 


D1 @ string length(2 nibs past the string header on 


math stack). 
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RO = Current file pointer 

S6 =1 If length odd 

STNTD1 = Entry address in FIB 

It 1s assured that there is enough roon left in the 
file to store the string. 


Exit: 
RO(A) will be updated 
The string 1s popped and the AVMENE 1s update. 





~~ f Current position in FI8 will be updated too. 
Calls: DROPST, WRBYTC, UPCPOS, WRIEOF , BACK2B, SETWRT 
Uses....... 


Inclusive: 8,B,C,00,D1,ST[4-0] 27? 


Stk lvls: 
Internal file: 2 
External file: 4 
History: 
Date Prograriner Modification 
3C Wrote 
11/05/83 BS Updated docunentation 


9.28 WRYNUN - Write a Number to DATA or SDATA fale. 


Category: FILUTL File: SC&OAT:: MS 


Nare:(S) WRINUN - Write a Nurnber to DATA or SDATA file. 


Purpose: Write a nurber from nath stack to a file of type 
DATA or SDATA. 


AR nurber util always be written out as a real(& bytes): 


| MO,M1] M2,M3] M4,M5] M6,N7] N8,M91M10, N11] EO,MS] £1, £2] 
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Entry: A= the nunber (internal forn) 
S10 = 0 if the file is in nerory. 
1 aif the file is in an ext. mass nenory device. 
DO @ Current file pointer 
If the file is in nenory, OO is directly pointing 
at the file. 
If the file is in an external mass remory device, 
DO 18 pointing at the 1/0 buffer of the file and 
RO(15,14) = Byte pointer of the file I/0 buffer 
Di @ Top of stack 
Exit: O01 will drop 16(D1=D1-16) and stored to MTHSTK 
DO Past the nunber 


Used: A,8,C,D0,D1 


Detail: The nurber will be formatted and written on the math 
stack first, and then it will be written out to the 
file or 1/0 buffer one byte at a tine. If is written 
to an 1/0 buffer, when the buffer gets full, this 
routine Will POLL the HP-IL ROM to dunp the buffer to 
the device and read in the next buffer. 


39.29  RDLNAS - Read String Length fron a TEXT File. 
Category: FILUTL File: SC&DAT::MS 


Nane:(S) RDLNAS ~~ Read String Length fron a TEXT File. 
Narie: RDLNFX - Read String Length fron a DATA File. 


Purpose: RDLNAS - Read string length fron a LIF1 file 
ROLNFX - Read string length fron the fixed length 
file. 


Entry: 0 @ current file pointer, absolute addr if file 
in RAN/RON, absolute address in file 1/0 buffer 
if file is in external device. 

RO(15,14) = current position in file 1/0 buffer if 
file is in external device. 
STMTD1 contains FIB entry address 
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Exit: A(A) = The tuo bytes read fron the file 
DO @ past the tuo length bytes 
The file pointer in the FIB 1s not updated. However, 
if the string length 1s read fron the I/0 buffer, 
there is a possibility that the 1/0 bufffer is 
overflowed and the next sector 18 read into the I/0 
buffer. In this case, if want to back up the DO by 
tio bytes, call the routine BACK2B, 

Calls: RDBYTA 

Uses: AR, C, DO 

Sth Ivls: +3 


9.3% RDBYTR ~- Read Byte Fron an Opened File Into A 


Category: FILUTL File: SC&DAT::NS 


Nane:(S) RDBYTA - Read Byte Fron an Opened File Into A 
Nane:(S) DO+2RD ~- Move file pointer&check buffer overflow 


Purpose: Read a byte fron an file into A-reg. 


Entry: 


Exit: 


Reading a byte fron menory can be easily done by one 
instruction "R=DATO B". But if the byte 1s read fron 
an 1/0 buffer, then the possibility of overflowing 
the 1/0 buffer should be considered. This routine 
takes care of this problen autonatically. 


DO @ current file pointer(abs.addr. if file in RAM 
or ROM, absolute addr @ file I/O buffer if file in 
external device) 

RO(15,14) = Current byte position in the file 1/0 

buffer if the file 1s in external device 

STNTD1 contains FIB entry address 

S10 = O1f file 1s in RAM or ROM. 

1 af file is in an external mass nenory device, 


A(B) = The byte 

DO past the byte. 

RO[15,14] is updated. 

Current position in FIB will be updated if need to 
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read in next sector fron the external file. 
Calls: DO+2RD, POLL (pRDNBF ) 


Uses: 
Internal file: Nothing 
External file: (14,5), B(15,5), C, DO, RO, ST[4-0] 


Stk lvls: 
Internal file: 
External file: 


wo 


9.31 WRBYTC - Write Byte to an Opened File Fron C 


Category: FILUTL File: SC&DAT::NS 


Nane:(S) WRBYTC - Write Byte to an Opened File Fron C 
Nane: WRBYTD - Write a Byte to an Opened File 


Purpose: Write a byte to a file in RAM/ROM or to a file I/0 
buffer if the file is in external device 


Entry: 00 @ current file pointer(absolute addr if file in 
RAN/ROMN, absolute @ file 1/0 buffer if fale is in 
external device. 

RO(15,14) = Current byte position in file I/0 buffer 
if the fale is in an external device. 
S10 = O1f the file is an internal file 
Taf the file 1s an external file 


WRBYTC: C(B) = The byte to write 
WRBYTD: Di @ The byte to urite to the byte to be written 


Exit: DO past the source byte. 
for an external file: 
RO115,14) wall be updated. 
If overflow the 1/0 buffer, current buffer will be 
written back to the file, next sector will be read 
into the 1/0 buffer, current position in FIB will be 
updated. 
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WRBYTD: D1 past the byte 
Calls: DO+2WR, POLL(pRDNBF ) 


Uses: 
Internal file: 01 
External file: (14,5), B(15,5), C, DO, RO,ST[4-0]} 


Stk lvis: 
Internal file: 0 
External file: 3 if have to flush the I/0 buffer. 


9.32  BACKIB - Back up the File Pointer by 1 Byte 


Category: FILUTL File: SC&DAT:: MS 


Name:(S) BACK18 - Back up the File Pointer by 1 Byte 
Nare:(S) BACK2B - Back up the File Pointer by 2 Bytes 
Nane:(S) BACK3B - Back up the File Pointer by 3 Bytes 


Purpose: Sets the current position field of the file’s FIB 
back the specified nurtber of bytes. If the new 
position falls in the previous sector, it 1s read 
into the file’s 1/0 buffer. 


Entry: P= 0 
RO(15,14) = Current byte pointer in the buffer 
RO(4,0) = Current absolute address in the buffer 


$10 = 0 - Internal file 
1 - External file 
STMTD1 contains file FIB address 
Exit: P= 0 
Calls: POLL(pROCBF) 
Uses: A,8,C,D0,P 


Stk lvls: 0 ~- internal file 
4 - external file (if has to back up) 
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9.33 UPCPOS - Update FIB Current Position 


Category: FILUTL File: SC&DAT::NS 


Nare:(S) UPCPOS - Update FIB Current Position 


Purpose: Update current position in FIB 


Entry: DO = Current file pointer or butfer pointer 
RO(15,14)= Byte pointer in buffer 1f external file 
R1(A) = Record length if fixed length data file 
S39 = 1 for IRAN 


$10 = 0/1 for internal/external file 
Si1 = 0/1 for serial/randon access 
STMTID1 = Entry address in FIB 


Exit: Update current position in FIB 

The i on entry 1s saved in RO(4,0) 

If 1s DATA file (copy code = 1) : 

Carry set => The file pointer is at the beginnin 
record and the randon access flag is set ¢sa). 


of a 
ACA) = Nurber of bytes left in current record. 
B(A) = Byte position in current record. 


Calls: IDIV 
Used: A,B,C,D0,RO,P (B 1s used only for DATA file) 


Stk lvls: 1 


9.34 GIPIRS - Get File Pointers fron FIB 


Category: FILUTL File: SC&DAT::NS 
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Narie:(S) GIPTRS - Get File Pointers fron FIB 
Narie:(S) GIPTRX - Get File Pointers fron FIB 
Purpose: Get all the file & FIB pointers into CPU registers 


Entry: STMNTD1(4-0) = Entry address in FIB 
GIPTRX: Should clear S9 & S10 on entry 


Exit: O(S) = Copy code of the file 
D(A) = # of bytes to end of file 
B(S) = Device type 
B(A) = # of bytes left in current record 
RO(A)= Current position (absolute address) 
RO(15:14) = Relative position in buffer if external 
R1 = Record length in bytes 
$9 = 0 if serial acces 
= 1 41f randon access 
$10 = 0 if nainfrane RAN/ROM file 
= 1 1f 1s an external file 
$11 = 1 if Independent RAN 
= 0 if not IRAN 
GTPIRX: 


The difference between the tuo entry points 1s that in 
order to deternine whether it 1s a serial or randon 
access. 


The GTPTRS entry will go back to the beginning of the 
statenent to check if the record nunber 1s specified. 
But the GTPTRX entry will not do so, therefore the $9 
will not be changed by the GTPTRX entry. 

Calls: I/OFND 

Stk lvls: 2 


Used A,B,C,D,D0, S9-11 


9.35 FTYPFH - Look Up File Type Given Type Nunber 
Category: FILUTL File: SC&FIL::MS 


Nane:(S) FIYPFH - Look Up File Type Given Type Nunber 
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Nane: FTYPFD - Look Up File Type Given Type Nurber 


Purpose: Searches the nmainfrane and LEX File type tables for 
a given file type nunber. 
A pFTYPE poll 1s issued to search file type table in 
external LEX file if the mainfrane file type table 
does not contain the file type. 


Entry: 
FTYPF#: 
ACA) = File type # (high nib = 0) 
FTYPED: 
D1 pts to file type # 
Exit: 


Bi preserved 
RO = D1 entry state. 
Carry set => C(A) and B(R) point to start of entry 
B(S)=position of file type# wathin 
entry (1 = first filetype, etc.) 
ACA) = Fale type nunber 
Carry clear => not found 


Calls: POLL, FTBSCH 

Uses: 
Exclusive: A(A}, C, RO 
Inclusive: A(A),B(S),B(A),C, RO 


Stk Lvls: 2 


- 


9.36 FIBSCH - Search a File Type Table by Type Nunber 


Category: FILUTL File: SC&FIL: 3S 
Nane:(S) FIBSCH - Search a File Type Table by Type Nunber 
Purpose: Searches file type table by file type nunber. 


Category: FILUTL 
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Entry: 


Exit: 


Uses: 


A(A) = file type to search for (high nib = 0) 
D1 points at start of table 


A(R) = entry state 
Carry set => B(A) = pointer points to start of 
entry 
B(S) = position of filetype # within 
entry 
Carry clear => not found 


Inclusive: B(S),B(A),C(S),C(R),D1 


Calls: 


None 


Stk lvls: 0 


9.37 FASCFD 


- Look Up File Type Given Type Nane 


Category: FILUTL File: SC&FIL:: MS 


Nare:(S) FASCFD - Look Up File Type Given Type Nane 


Purpose: 


Entry: 


Exit: 


Calls: 
Uses: 


Stk lvls: 


Search the mainframe and LEX file type tables for a 
given file type number. A pFASCH poll is issued to 
search the LEX file type table if the nainfrane 
file type table does not contain the file type. 


D1 points at the beginning of the file type nane 
which 1s up to five characters with trailing 
blanks. 

01 past the given file type nane. 

P= 0 

Carry set => A(3-0) = file type nunber 

Carry clear => File type not found. 

POLL, FILEP!, FASCH, 

A,B,C,R3, S10 
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9.38 REWIND - Rewind Open File 
Category: FILUTL File: SC&FIL:: MS 


Nane:(S) REWIND - Rewind Open File 


Purpose: Set the current position in the FIB to start of 
of data in a file. 


Entry: 
R 


t 


FIB entry address of the file 
Exit: 
A(B) = FIB# of the file 
STHTD1 = FIB entry address of the file 
Carry set => successful 
Never returns if HP-IL error happens, exit to MFERR. 
Calls: STFPIR 
Uses: A, B, C, D, D1, DO, S10, STMTD1, $4-0 


Stk lvls: 1 - internal file 
4 - external file 


9,39  FIBADR - Find FIB entry address for a channel 
Category: FILUTL File: SC&FIL::MS 


Narie:(S) FIBADR - Find FIB entry address for a channel 
Nane:(S) FIBAD- - Find FIB entry address for a channel 
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Purpose: Find the FIB entry address for a given channel # 


Entry: A(B) = Channel # 
EXit: D1& A = FIB entry address of the file 
STNTD1 = FIB entry address of the file 


Calls: FDCHH, FFIB# 
Used: A,B,C,01,R0 
Stk lvls: +2 


9.40 CRFSUB - Create a File in Mainfrane 
Category: FILUWTL File: SC&FIL::MS 


Nate: CRFSUB - Create a File in Mainfrare 
Nave: (S) CRFSB- - Create a File in Mainfrane 


Purpose: Create a file in nainfrane 


ENTRY: 

P = 0 

STATRO = FILE NANE 

STMTR1(4) = DEVICE TYPE 

STNTR1(8-7} = PORT # 

STMTR1(15) = FILE COPY CODE FROM FILE TYPE TABLE 

S$-R1-0(13-10) = FILE TYPE 

Ri = ADDRESS OF FILE HERDER ALREADY CREATED BY 
CREATF. FILE NAME, COPY CODE, AND FILE 
TYPE WILL BE FILLED IN. 


EXIT: FILE HEADER ALL BEEN PROPERLY FILLED 


A = FILE CHAIN LENGTH 

{(A) = 90 

D1 @ PAST THE FILE CHAIN LENGTH FIELD 
00 @ S-R1-3 (COPY CODE) 

R4 = ADDRESS OF FILE HEADER 

P = 0 
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Calls: CREATF, 


USES: 


A-MULT 


Inclusive: A(A),C,D0,D1 


Stk lvls: 0 


3.44  CRIF s 


Category: 


Nane:(S) CRIF 

Purpose: 
Create a 
external 

Entry: 

A 

D(S) 

D(A) 


oft ot 


R2(9:5)= 


Create File in MAIN, PORT, or HPIL 


FILUTL File: SC&FILZ:MS 


- Create File in MAIN, PORT, or HPIL 


file of arbitrary type in menory or on an 
device. 


First 8 chars of file nane 

FIB device code 

FIB device address: 

0(B) = Port and Extender# for PORT 

D(X) = Device address for HPIL device 

0 

Last tuo chars of file name if HPIL device 
File type (high nib = 0) 

First parameter for create: 


Create Fornat Meaning of This 
Code Inplied Parameter 
0 Standard Data length in nibs 
1 DATA Number of records (can 
be 0 if not HPIL) 
2 SDATA Nunber of records (can 
be 0 1f not HPIL) 
4 Vbl Rec Number of bytes in file 
8 OEN Unknown; poll for len 


Address of data 1n RAN/ROM to copy to the 
neuly created file (none if zero) 
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R3(A) = Second paraneter for create: 
Create Fornat Meaning of This 
Code Iriplied Paraneter 
0 Standard (Ignored) 
71 DATA Record length in bytes 


(256 default) 


2 SDATA (Ignored; set to 8) 

4 Vbl Kar (Ignored) 

3 OEN Unknown; poll for len 

Exit: 

p z= 9 
K2(A) = File length in nibbles (chain length) 
R3(Q) = Entry state (updated if default condition) 
Carry set: 
c(A) = Error cade: 


“Not Inplenented" 
Carry clear: 
0(S) = File device code 


(xX) = Device address 
R4 = Address of file header if file in menory 
01 @ Start of data if file is in nenory 
Calls: SVFPSC, SVFTYP, POLL, A-MULT, CRETF+, CRFSB-, INITNF 
USO6 2 acces 
Exclusive: R,B(S,R),C,D(S),00,01,  R1,R2 
Inclusive: A-D, DO, D1, RO-R4, STATRO, STNTRI, 


SCRICH,S11-50 
Stk iwls: 6 - If file created on plug-in, else § 


NOTE: 
This routine can only create BASIC, TEXT, and 41C data 
in weriory at the nonent. 


Algorithn: 
Save away file spec and file type info 
Compute data length fron parareters 
Conpute and add on subheader length 
If device 1s nat MAIN then 
Error exit for now (not inplenented) 
Create file header in nenory 
Fill in nane, etc. 
Initialize file according to create code 


History: 


Date Progranner Modification 
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09/24/82 SC Add code to create and initialize 
file in HP-IL device. 
POLL to create OEM file and the 
POLL handler has to do it all. 

07/21/82 NZ Modified entry condition locations 

07/13/82 NZ Added field (R2(9:5)) for address 
of data to copy to the file after 
creation; nodified exit code te 
use DO instead of Dt to get stated 
exit conditions; changed R2 exit 
conditions 

06/01/82 FH Wrote fron looking at code for 
CREATE execute and CRBRS (create 
BASIC). Needed for TRANSFGRM. 


3.42 OPENF - Open File 
Category: FILUTL File: SC&FIL::MS 


Nane:(S) OPENF - Open File 
Nane: OPENF- - Open File 
Nane: OPENF* - Open File 
Nane: OPNF+ - Open File 


Purpose: Open a new file in the FIB 


Entry: ; 
All: P = 0 


OPENF: DO points at file spec. in the BASIC statenent 


OPENF*: A, DCS), DCR), RO set up as on exit Fron FSPECx 
R2 = © if R2/R3 device assignnent info not 

present 

Device assignment info fron FSPECx, 

Device assignnent info fron FSPECx unless 

R2 = 0, 


R3 


OPNF+: D1 points at start of file header in nenory 


953 
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OPENF-: STMIRO & STMTR1 has the infornation as the entry 
condition specified by the WRIFIB routin. 
R2 = 0 if R2/R3 device assignment info not 
present 
Device assignnent info fron FSPECx. 
Device assignnent info fron FSPECx unless 
Re = 0. 


R3 


Exit: 
P = 9Q 
Carry set => Done successfully 
A(B) = FIBW of file 
Ki = the new entry address in FIB 
S10. = Set if file has 1/0 buffer 
STMTD1 = FIB address of file 
STNTRO, STMTR1 set to exit conditions of WRIFIB 
The FIB entry filled with proper information 
Carry clear => Error 
((3-0} = Error code 
File already opened 
FIB full 
Insufficient nenory 
Unrecognized file type 


Calis: FSPECx, POLL, FINOF, DATSTR, I/OFND 


Uses: 
Inciusive: A,B,C,D,D0,D1,RO,R1,STATRO, STNTR1, S10 


Stk lvls: 6 at least. (FSPECx takes 5, pFINDF requires 6) 


Note: This routine falls into WRIFIB to write the file 
infornation in the FIB. 


9.43 WRIFIB - Write File Inforration to FIB 


Category: FILUTL File: SC&FIL::AS 


Narie:(S) WRIFIB - Write File Information to FIB 


Purpose: Write file information into File Information Buffer 
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Entry: 


EXIT: 


D1 @ Entry address of the file in FIB. FIB# has 
already been written to the entry 


Re = 0 if R2/R3 device assignnent data are not 
present (relevant only for exernal files) 

= OTHERWISE, device assignment data fron FSPECx 

R3 = Device assignnent data fron FSPECx if R2 # 0 


STMTRO(O-10)= File data start address 
If file in RAM/RON: 
STMTRO(O-4) = Absolute data start address 
STNTRO(5-6) = OF 
STMTRO(7-10)= Don’t care 
If file in port: 
STMTRO(7-8) = PORT # 
If file in HP-IL cevice: 
STMTRG(O-3) = Record # 
STMTRO(4-10)= HP-IL address 
STMTRO(11-14) = File type 
STNTRO(15) = Device type 

0 - Maanfrane 

1 - Independent RAM 

2 - RON 

8 - HPIL 

STMTR1(O-5) = Fale start address 

If file in RAM/ROM, this 1s the absolute 
address of the file headrer. 

If file in HP-IL device, this 1s the record 
nunber and byte nunber of the LIF directory 
entry address of the file. 

STNTR1(6-10) = File length in nibbles if the file 
copy code = 0, 

STATRI(6-9) = File length in # of records if the 
file copy code = 1. 

STATRI(10-13) = Record length in bytes if the file 
copy code = 1. 


Never returns 1f unrecorgnized file type 


R4 = FIB entry address 
Carry = Set if no error 
Calls: 
Uses: 


Inclusive: A,B8,C,D,D0,D1,RO,R1,R2,R3 S10 


Stk Ivis: +5 
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9.44 CLOSE® - Close File 
Category: FILUTL File: SC&FIL::NS 


Narie: CLOSER - Close File 
Narie:(S) CLOSEF - Close Fale 


Purpose: Close file in File Information Buffer 

Entry: 
CLOSE#: 6({B) = Channel # of the file 
CLOSEF: A(B) = FIB # of the file 


Exit: 
No error condition if the file not found 


Calls: FFIBH, POLL 

Uses: A,B,C,D0,01, STMTD1 

Stk lvls: 5 

NOTE: This program FALLS INTO routine DELFIB 


9.45 CLOSEA - Close All Open Files 
Category: FILUTL File: SC&FIL:: AS 


Nare:(S) CLOSER - Close All Open Files 

Purpose: Close all opening files and delete their entries 
Entry: P=0 

Exit: P =0 
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Calls: I/OFND, DELFIB, POLL(pWRCBF) 
Uses: A-D, DO, D1, RO ,STMTDI 
Stk lvls: 5 


9.46 FIBON - Reset Devices, Buffers at Power On/Off 


Category: FILUTL File: SC&FIL::MS 


Narie: FIBON - Reset Devices, Buffers at Power On/Off 
Narie:(S) FIBOFF - Reset Devices, Buffers at Power On/Off 


Purpose: When HP-71 powers off, reset all external devices. 
When HP-71 powers on, reclain all the 1/0 buffers. 


Entry: None 


Exit: P=0. 
Hex node. 


Calls: I/OFNO, I/ORES 
Uses: A,C, DO,D1, SO 
Stk lvls: 2 


9.47 PUGFIB - Purge the FIB Entries of Purged Files 
Category: FILUTL File: SC&FIL:: NS 


Nare:(S) PUGFIB - Purge the FIB Entries of Purged Files 
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Purpose: Purge the FIB entry of a purged file. 
Delete an FIB entry whose “File Begin” address 
1s zero. 


Entry: The “file Begin" of the purged file in FIB 
should be already zeroed. 


Exit: The first FIB entries natching the condition 1s deleted 
Calls: FOFILW, DELFIB, I/ODAL 

Uses: A-D,00,01,R0 

Stk lvls: +4 


9.48 RENSUB - Renunber Subroutine 


Category: FIWTL File: SC&REN::MS 


Nane:(S) RENSUB - Renunber Subroutine 


Purpose : 1. Compile all line nurber references 
2. Clear all conpiled offsets 
3. Renurnber all line nunber references 


Entry : CURRST & CURREN pts current file 
S1 = 0 - Only clear conpiled offset 
= 1 - Compile offset or renunber line nunber 


If Si=1: 
S2 = 1 - Compile reference offset 
S2 = 0 - Renunber line nuriber 


Exit : Carry set => No error 
Carry clear=> Line nunber not found 
R2= ptr to stnt len of stmt in error 
Calls : PFNDL*, EXPSKP, FINDA, ISRAN?, LINE#1, POLL 
Uses : A,B(R),C,D(A),00,D1,R2, $3 


Stk lvls : 42 
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Detail : 


The line number is expected to be found in the following 
nainfrane statements: 


GOTG/GOSUB/RESTORE <LINE#/LABEL> 

ON ERROR GOTO/GOSUB <LINE#/LABEL> 

ON TINER [#<exp>,] <exp> GOTO/GOSUB <LINE#/LABEL> 

ON <exp> GOTO/GOSUB/RESTORE <LINE#/LABEL>,... 

IF <exp> THEN LINEH/LABEL/EXT [ELSE LINEH/LABEL/EXT IF } 
PRINT USING LINE#/ LABEL 

DISP USING LINE#/LABEL 

ON INTR GOTO/GOSUB LINE#/ LABEL 

POLL for non-nainfrane XWORD 


Wonnmhwnr— 


For XWORD (External) statenents, the line number 1s handled 
as follous: 


. If RENSUB is just called for zeroing the conpiled offset 
($1=0), the line # in XWORD statenent will be ignored. This 
neans the execution of an XWORD statenent has to assune the 
compiled offset 1s incorrect and has to zero it everytine. 

. If RENSUB is called for renunbering (S1=1), the poll pREN 
will be assued so that each LEX file that contains XWORD 
statenents that nay have line numbers w11] be allowed to 
supply the correct renumbering. See the pREN poll inter- 
face for details. 


9.49 EXPSKP - Skip Over Tokenized Expression 


Category: FILUTL File: SC&REN::MS 


Nane:(S) EXPSKP - Skip Over Tokenized Expression 


Purpose: Skip over tokenized expression 


Entry: D1 = Start of expression 

Exit: AR = NEXT TOKEN after expression 
Di= Points to next token after expression 
Carry set 
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Calls : FINDA 

Uses: ACA) ,C(5:0), D1, $10 


Stk lvls : 1 


9.50 FNDFCN - Find User-Defined Function 


Category: FILUTL File: SC&SUB::MS 


Nane:(S) FNDFCN - Find User-Defined Function 
Purpose: Find a user-defined function 
Entry: Ri(X) = Function nare(output fron ADRSUB) 
Exit: 
Carry set => Found 
© past the function nane in the DEF FN statenent 
F-R1-O = Address past the tDEF of the DEF FN 
Carry clear => Not found 
Calls: PRSCOP, GETNAN 
Uses: A,B,C,D,D1,D0 


Stk lvls: 4 


9.51 KEYMRG - Key Merge 


Category: FILUTL File: SG&EXC:: MS 


Nane:(S) KEYMRG - Key Merge 
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Nane: KYNRG+ - Key Merge 
Purpose: Creates space for new entry in keys file 


Entry: P= 0 
B(R) = HEX Keycode 
2 ENTRY POINTS: 
1) KEYMRG - ACA) =Length of assignnent string 
2) KYNRG+ - C(B) =Keycode 
C(6-2)= Length of assignnent string 


Exit: D1 points to start of new entry 
R2(B) = Keycode; R2(3-2) = Entry length 
R2(S) = BCS) on entry 
B(A) = offset to menory 
R3 = Pointer to keys file header 


Carry clear 
via RSTD1 


Calls: KMNEMCK, CREATF, MOVEDM, RFADI+, KYD30, 
KEYFND, KYPRCK, LAKEYS, UPDFCL 


Uses: A-D, D1, DO, RO-R3, F-RO-1, S6, 88 


Stack lvls: 5 


History: 
Date Programmer Modifications 
07/01/82 Added docunentation 


Sou. 
11/02/82 S.W. Added call to UPDFCL 
12/29/82 S.W Elinianated call to RFAD&S 


9.52 FILXQ™ - Filenane Execute 


Category: FILUTL File: SG&FXQ::MS 


Nane:(S) FILAG™ - Filenane Execute 
Nane:(S) FILXOQ$ - Filename Execute For a String Expression 
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Purpose: 
Executes a tokenized file specifier. Solitary device 
Specifiers af the forn ’:CARD’, ’:PORT’, *:MAIN’, etc, 
are accepted. There are tio entry points. 


FILXQ*: 

Assunes that DO points to a file specifier in progran 
nenory. The file specifier may be a literal or a 
string expression. 


FILXQS$: 

Assures that the alleged string has been evaluated and 
1s on the Math Stack. This entry 1s used by ADDR$ and 
CAT$. 


Entry: 
FILXQ™: 
DO at start of file specifier 
FILXOS: 
31 points to string expression on top of Natch Stack 


Exit: 
CARRY SET: (both entry points) 
Mainfrasne-recognizable file specifier found. 
ACH) Blank-padded file nane if nane present. 

if only device specifier present, as in 
:MAIN’, *:PORT’, ’: CARD’ 

if no device specified 

if device 1s :MAIM 

if device in :PORT, 1n which case: 
D(O) = PORT extender number O-F 

0(1) = PORT nunber 0-4 

D(B) = FF if no PORT nunber specified 

= 7 if device is card, in which case: 
D0(B) = 0 if : CARD 
D(B) = Nonzero 1f :PCRD 

DO Past file specifier (FILKQ™ only) 
P 0 
If file specifier was a string expression: 

D1 points past the string on the stack 
If file specifier was a literal containing a port#: 
D1 points past the 16 nibble number on the stack 
(AVMENE )=01 


wo 


D(S) 


-oOm +o 


wow ot 


aon 


CARRY CLEAR: 
FILKQ™: 
Executed illegal nainfrane file nane. Either string 
expression or literal name with over 8 characters. 
S721 => Specifier was string expression, in which 
case the expression 1s still on the stack. 
AVMENE points to the string header 


Bebe 


HP-71 Software IDS - Entry Point and Poll Interfaces 
File Utilities 


BO points past the tokenized expression. 


$7=0 => Specifier was a literal; 00 nay be restored 
to the start of the literal by using (STNTDO). 

P = 9 

FILXQS$; 

String expression on stack contained an illegal specifier. 

S7 = 4 

AYNEME = Value it contained on entry. May be used to 
preserve the pointer to the string header prior 
to calling FILXQ$. 

P = 0 


ERROR EXIT (both entry points): 
Exit to MFERR (eFSPEC) if and only if :PORT as found, 
followed by an illegal port specifier. 


Calls: EXPEXC, FILEP, PDEV, CATCHR, DVCTYP, POLL, 
REVPOP, BLKOK, PRTHP, FINDA, RSTST, SAVEDO, 
CNVWUC, AVE=D1 

USCS... ..... 


Exclusive: A-D, D1, DO, STMTDO, RO, R1, $1,82,38? 
Inclusive: STMTRi (ali of it) -- port spec. as num expr 
RO-R3, all of function scratch -- EXPEXC 


NOTE: FILxQ$ entry doesn’t use any statenent scratch. 
Detail: DO on entry to FILXQ™ 1s 4 pointer to the start 
of the compiled file specification. FILXQ* must 
save DO in STMTBO, since EXPEXC can use all CPU 
registers and aJl function scratch RAN. STATDO 
will be updated if merory moves. 


SYNTAX FOR PORTH IS <d{.d[d]]> 


ASSUMES THAT ALL NON-MRINFRAME DEVICE REFERENCES 
HAVE BEEN TOKENIZED WITH tCOGLON. 


Nibs 2,3,4 of D are zeroed out for TRSFMu 


Stach ivls: FILKQ$ entry pt - 3 


Otherwise <o5 
History: 
Date Progranmver Modification 
06/29/82 = S.A. Added docunentation. 
3-63 


Sal x 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
File Utalities 


07/05/82 = S.U. Modified code to elininate 
call to POP1S - lets REV$ 
take care of that. 


07/27/82 = $.W. Rdded code to check for tCOLON 
before assuning string expr. 
10/21/82 S.u. Save PC in STNTDO, instead 
of S-R1-0 
01/31/83 9 J.P. Clear S7 on entry 
06/28/83 S.W. Save rtn stack level in RO 


prior to calling FILEP!. 


9.53 PDEV - Evaluate Nun Expression as Port Device 


Category: FILUTL File: SG&FXQ::AS 


Narre: (S) PDEV - Evaluate Nun Expression as Port Device 
Narie: PDEV+ - Evaluate Nun Expression as Port Device 
Narie: PDEV1 - Evaluate Nun Expression as Port Device 


Purpose: Evaluates nuneric expression for port address 


PDEV+ and PDEV entries evaluate an expression 
in nenory and ensure it 18 a valid nuneric 
expression. 


PDEV1 assunes that the evaluated expression 1s 
already on the stack. It 1s useful for functions. 


Entry: 3 entry points: 
1) PDEV+ - DO 2 nibs prior to alleged nuneric 
expression. 
2) PDEV - DO at alleged numeric expression. 
3) PDEV1 - 01 points to evaluated expression on 
math stack. 


Exit: D(O)=Port extender#; 0(1)=porth 
D1 points to nuneric expression on stack 
DO past evaluated numeric expression 
(1f entered at PDEV1, DO unchanged fron entry) 
Statuses intact 
(except if entered at PDEV1) 
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ERROR EXITS IF EVALUATED EXPRESSION IS INAPPROPRIATE 
FOR A PORT ADDRESS. 


Calls: EXPEXC, TST12A, FRAC15, FLTDH, ARGSTA 
CLRFRC, GTPRT#, RSTST 


Uses: A-D, 01,00, RO-R3, all of function scratch -- EXPEXC 
Detail: Allows nuneric expressions uhich evaluate to x.yy 
uhere: 


O<= x «= 5 and 0<= yy <= 15 
Stack lvis: 5 


History: 

Date Prograrmer Modification 
06/29/82 S.W Added docunentation 
08/05/82 = S.W. Added PDEV1 entry point 


9.54 FSPECx - File Specification Execute 
Category: FILUTL File: SO&FXQ::MS 


Narie:(S) FSPECx - File Specification Execute 
Purpose: Evaluates a file specification 
Entry: DO @ File specification start 


Exit: ™ past file specification 
Carry Clear: Legal file specification 


A = filenane (blank filled) 
A= 0 if no filenane 
RO = last tuo chars of file nane (if any) 
tuo blanks by default 
= F NO DEVICE SPECIFIED 
© MAIN 
1 PORT D(B) = PORT nunber 
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D(B) = FF af : PORT 
7 CARD D(B) = 0 af CARD 
PCRD D(B) # 0 if PCRD 
HP-IL device (D(X) = device addr) 


= 8 

> & other 

P=0 

P reset before POLL 

If fale specifier was a string expression: 
(AVNENE} points past the string on the stack 


Carry set: 
Unrecognized File Specification 
C(3-0) = Errort 


Calls: FILXQ*, POLL 


FILXQ" returns: 
Carry Clear ---> Illegal File Spec 
S-R1-0 holds original DO 
Carry Set ---> Legal File Spec 
S8=0 Sinple Filenane 
S8=1 D(S)=F No Device specified 


© MAIN 
1 PORT 
0(B) = Port# 
= FF if :PORT 
7 CARD 
PCRD 
D(B) = O af CARD 
# 0 if PCRD 


Uses: R-D 
D = End of Expression stack (from FILKQ™) 
STHTDO, STMTR1 (all of it), $1,82,S?7 -- FILXQ 
01,D0, RO-R3, all of function scratch ~- EXPEXC 


Detail: Try Mainfrane File Execute (FILKQ™) 
Blank-fill lower 2 bytes of RO 
If acceptable file specification (Carry set) 
If sinple filenarie 
Set Device = 0 (D(S)) 
RINCC 
else 
POLL for File Specification Execute 
Return if Carry Set 
If handled (XM=0) 
Return with Carry Clear 
else 
C <-- eF SPEC 
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es 


Return with Carry Set 


Stack Ivls: 6 
History: 
Date Progranner Modification 
06/29/82 SM Rdded docunentation 
9.55 FINDF - find a file 
Category: FILUTL File: SG&FXQ::MS 


Nane:(S) 
Nane: (S) 
Nane: 
Nare: (S) 
Nane: 


Purpose: 


Entry: P= 
5 


FINDF - Find a file 
FINDF+ - Find a file 
FILENF - Find a file 
FILEF - Find a file 
FINOWF - Find a file 


Searches for a Specified File in file chain(s) 
specified by the caller. 


The entry points which allow the file chains to 
be specified require as entry conditions sone 
of the exit conditions from FILXQ*/FSPECx. 


FILEF and FILEMF entries search the MAIN file 
chain only. 


FINDF and FINDF+ entries look at D(S) to 
determine which file chains to search. The only 
difference between the tuo entry points 1s that 
FINDF assunes the integrity of D(S) and A(W), 
whereas FINDF+ checks their integrity to ensure 
that ACW) 1s nonzero and D(S)<=6. 


FINDWF searches the MAIN file chain for <workfile> 
0 
entry points: 
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1) FINDF - file name in ACW) 
D(S) determines search pattern: 
=F => Search MAIN, plug-ins 
=0 => Search MAIN only 
other => Search Plug-ins only 
D(B) indicates port desig. 
=FF => all PORTS (:PORT) 
OR D(1)= PORT # 
D(0)= Extender # 


2) FILEF - File nane in ACW) - Maanfrane search only 
3) FILENF sane as above, except file nane in B(W) 
4) FINDF+ ~ Sane as FINDF. 
5) FINDWF - Searches for uorkfile 
Exit: P=0 
Carry Clear - File found 
D1 @ File Start 


A(W)=B(W) contain file nane 
D(S) = Device Type 


0 = Mainfrane RAN 
7 = IRAN 

2 = ROM 

3 = EEPROM 


It cannot be assuned that Device Type is 
linited to these nunbers. 


Routines using FINDF should probably POLL when 
Device Type is not 0-2. 


D(B) = Extender#, Port# (if applicable) 


Carry Set => File not found 
S6=1 => 
B=A = Filenane 
C(3-0) contains err# for efnFND cr eDVCNF 
S6=0 (FINDF+ entry only) => 
Illegal file spec for file chain search 
either A(W)=0 or D(S)>=? 
C(3-0 )=eF SPEC 
C(S) = 2*(0(S)+1) 


Calls: ROMCHK, ROMFND, ROMF-1, FILSKP, C=MAIN, WRKFIL 
Uses: A-D, 01, S6,S8,R1,R2 (af outside of Main search) 
R3 (if single PORT search) 
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36 = Not Initial PORT search 
S8 = Single/ Special file chain search 


ROMCHK 
ROMFND uses A-D,D1,RO,F1 
ROMF-1 uses A-B,D1,RO,R1,R3 


Stk Ivis: 2 
Detail: 


FINDF+: If D(S) >= ? or A(W}=0 
Return with carry set; C(3-0)=eF SPEC 
FINDF: Clear Single Filechain Search flag ($8) 
Move filenane to B 
If Standard search D(S)=F 
gato 4; 
If MAINfrane only D(S)=0 
goto FILFNF; 
else (PORT) 
Save filenarie (R2) 
If all Ports (O(B)=FF) 
go Search ALL Ports (goto 3); 
else 
Set single file chain flag (S8) 
Find Start of file chain in Port (ROMF-1) 
Restore filenare to A 
Put filenane in 8 
Set 36 for error (file not found) 
If not found 
Return Carry C(3-0)=eDVCNF 
else 
Continue search (goto 2) 
FILEF: B <-- Filenane 
FILFNF: Set Single Filechain flag (38) 
1: Set pointer @ Main nenory start 
Clear Initial Port Search flag (S6) 
2: Read filenanie 
If not at end of file chain (A(B)#O) 
If filenawne match --> RTNCC 
else 
Skip to next file 
goto ¢; 
else (End of file chain) 
Restore file nane to A 


Tf single search only (S8) 
RTNC = ( (3-0) =eF nF ND 
else 
If initial PORT search ($6=0) 
Save filenarie (R2) 


Set Not Initia} PORT search (S6) 
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3: If no ROMs exist (ROMCHK ) 
Restore filenane 
RTNC C(3-0)=eFnFND 
else 
Set B = filenane 
go search ROM for file (goto 2) 
else 
Find next ROM (ROMF ND ) 
Restore filenane 
If no nore ROMs ---> RINC C(3-0)=eFnFND 
Set B = filenane 
go Search ROM for file (goto 2); 


Note: 
Device ID’s 2-6 are NOT available for use. 
Dedicated devices are restricted to ID’s 9-E 


History: 
Date Progranner Modification 
06/29/82 = S.M. Added Docunentation 
10/29/82 S.W. Modified entry conditions for 
new device codes 
12/20/82 S.W. Calls FILSKP instead of RDHDR 


so FINDF doesn’t use $9 


9.56 PRGFMF - Purge File in Menory 
Category: FILUTL File: SG8&FXQ::MS 


Nare:(S) PROFMF - Purge File in Menory 


Purpose: 
Purges specified file 


Entry: 2 entry points: 
1) PRGFNF - D(S) as it 1s after FINDF call 
D1 pointing to start of file header 
2) PROF - File in MAIN; S11=0. 
D1 at file type in file header. 
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Exit: 
Carry set => error# loaded in C(3-0) 
Caller should exit using BSERR 
Carry clr => File purged successfully 
S?=1 => Purged current running file 


Calls: POLL, RAMROM, GETPRO, EOFLCH, CREATF, FINDUWF 
LEXBF+, ZERPGM, MEMCKL, PUGFIB, FILSKP, 
RFA-T, DI=CRS, RSTOFS, MOVEUN, EDIT81 


Exclusive: A-D, DO,D1,RO,R1,S-RO-0,S-RO-1, $7,S9-S11 
If purging current file, also uses R2 & R3, 86,88, S$-RO-0 
If purging a LEX file, also use R2,R3 
If purging current file AND there’s no workfile, uses S0-S? 


Stk lvis: 5 


Date Programmer Modifications 
08/04/82 S.N. Added docunentation 
12/16/82 S.W. Replaced calls to RSTK=R and 


R=RSTK wath R<RSTK and RSTK<R 
C(S) now used 

06/06/83 S.W. Replaced call to CLSUSP with 
a call to ZERPGM. (Poll must 
go out when curr file purged) 


9.57 EDIT - Moves EDIT Pointers to Specified File 


Category: FILUTL File: SG&FXQ::NS 


Nane: EDIT - Moves EDIT Pointers to Specified File 

Name:(S) EDITWF - Designates workfile as Current File 

Nane:(S) EDIT80 - Uesignates Specified File as Current 

Nane: EDIT2O - Collapses Stks; Spec. Fale Becores Curr. a 
Purpose: 


EDIT executes the EDIT statenent. 


EDITWF designates the workfile as the current file. 
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If 1t doesn’t exist, it is created. EDITWF 1s 
called when current file 1s purged and during 
configuration. 


EDIT80 designates the specified file as current. 
If file isn’t BASIC, a POLL goes out, resulting 
in an error if no one responds. This entry 
point 1s used by CAT when [FJ[EDIT] xs hit 
during a multiple file catalog. 





EDIT20 collapses all the execution stacks before 
designating the specified file as current. This 
is the entry point used by RUN. An assumption is 
nade that this file is of legal type to be nade 
current. 


Entry: 4 entry points: 
P=0 
1) EDIT - DO past tEDIT. 


2) EDITUF - $10=1 => No collapse of stacks and 
no CATalog. 
$10=0 => No collapse of stacks 
CATalog aff S$11=0 


3) EDIT8O - $10 and S11 as wath EDITHF. 
4) EDIT2O - D1 points at new current fale. 


Exit: 
CURRL UPDATED; Stacks, etc collapsed via CLPSTK 
Error Exits if: 
1) file must be created and not enough nenory 
2) specified file is not BASIC 
3) port# specified that doesn’t exist 
4) non-nainfrane device specified 
If no CATalog is done: 
B(A)=CURRST; C(R)=D(A)=CURREN; 
DO points to CURREN RAN location 


Calls: CRETF, CLPSTK, FINDF, SAVEL, WRKFIL 
EQLXCK, FSPECx, POLL, NULLP, BASKEY 


Uses: A-D, RO-R3, S6, $8, S9, S10, S11, D1,D0 
+ If FSPECx 1s called: $1,82,587, STMTDO, 
STMTR1 (All of at), All of function scratch 


Detail: EDIT 1s a systen connand (non-progranmable). The 
reason for this limitation 1s that EDIT changes 
CURRST & CURREN; this would be nonsensical during a 
running progran, since the sane pointers are used 
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to indicate current EDIT fale as current RUN file. 
EDIT [filenane] 
Stack lvls: 7 


History: 
Date Progranner Modifications 
06/30/82 Added docunentation 


S.W. 

07/20/82 S.W. No longer saves 2 stack levels 
(burden put on PRGFMF) 

09/17/82 9 J.P. Set S39 before NULLP call 

11/11/82 = S.W. Deleted poll on external file 

12/17/82 S.W Eliminated call to CHAIN - caused 
problens when old EDIT file is 
in non-RAN nediun; ptr to new 
CURRST no longer in R3 on exit. 


01/11/83 J.P. Change S9=1 to P=1 before NULLP 
call, 
03/02/83 J.P. Added pEDIT poll 


9.58  RAMRON - Classify Menory Device 


Category: FILUTL File: SG&FXQ::NS 


Narie:(S) RAMROM -- Classify Menory Device 
Purpose: Returns info on whether file in RAN, IRAN, other 


Entry: D(S) preserved fron FINDF call: 
=O => Mainfrane RAM 
=1 => TRAN 
=2 => RON 
=3 => EEPROM 


Exit: CARRY SFT => RAM 


S8=1 => IN MAIN 
0 => IRAN 
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CLR => non-RAM nenory device 


$8=0 
Calls: none 
Uses: $8, C(S) 
Stack lvls: 0 
History: 
Date Progranner Modifications 
06/30/82 SU Added docunentation 


Elininated distinction 
betueen ROM & other 
non-RAM nenory devices 


S 
12/17/82 8. 


9.59 LOCADR - tocate, Classify Address’s Mernory Device 
Category: FILUTL File: SG&FXKQ::MS 


Nane:(S) LOCADR - Locate, Classify Address’s Menory Device 
Nane:(S) CURDVC - Classify Current File’s Device 


Purpose: Given a file address, returns infornation 
regarding the mediun (MAIN, IRAM,ROM, etc.) 


CURDVC entry assunes the file address is (CURRST). 


Entry: 2 entry points: 
1) CURDVC - No additional requirenents. 
2) LOCADR - C(A) = sone address in the file 


Exit: Specified address in R2 
Carry clr => Legitinate address 
D(S)=0 => MAIN 


#O => PORT 
D(S) reflects nenory type 
=1 => RAN 
=2 => ROM 
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Carry set (LOCADR entry only) => 


Calls: 
Stk lvls: 
Uses: 


Detail: 
History: 


06/30/82 


9.60 GETPR 


Cate 


Nane:(S) 
Nane: 
Nane: 
Nane: (S) 


Purpose: 


es 


ROMCHK, ROMFND, EOFLCH, D1=CRS 


2 


=3 => EEPROM 
D(O)= Extendert 
D(1)= Port# 
D(7-2)=Rest of Config. entry 


A(A)=D1=R2(A) 


Not a legitinate address 


A-D, DI, R1 & R2 


THE ADDRESS MUST BE WITHIN A FILE CHAIN, OR CARRY 
WILL AUTOMATICALLY CONE BACK SET. 


Programmer Modifications 


S.W. 


Added docunentation 


0 - Get Fale Protection of Current File 


gory: FILUTL File; SGO&SYS::MS 


GETPRO 
GETPR+ - 
GE TPR - 
GETPR1 - 


Get File Protection 
Get File Protection 
Get File Protection 
Get File Protection 


of Current File 

of Specified File 
of Specified File 
of Specified File 


Returns file protection information 


GETPRO reads file protection of the current 


file. 


Rll other entry points read the file proection 
nibble of the file specified by the caller. 
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Entry: 4 ENTRY POINTS: 
P= 0 
1) GETPRO - (CURRST) 1s accurate 
2) GETPR+ - (D1) = pointer to file header. 
3) GETPR - ACA) = pointer to file header. 
4) GETPR1 - DI = pointer to file header. 
Exit: SB=1. . . IFF SECURE 
CARRY SET IFF PRIVATE 
D1 POINTS AT FILE TYPE FIELD 
P=0 
C(3-0}= eF PROT 
Calls: none 
Uses: 


exclusive... C, D1, SB 
inclusive... ACA), C, BI, SB (GETPRO, GETPR+ only) 


Stack lvls: 0 


History: 
Date Progranner Modification 
06/28/82 Added Docurentation 


S.W. 
10/13/82 S.W. £(B)=eFPROT on exit 
11/23/82 SW. (3-0) as above 


9.61 FILSKP ~- File Skip 
Category: FILUTL File: SG8S73:2M5 


Nane: FILSKP - File Skip 
Nane: FLSKPB - File Skip 
Nane:(S) FILSK# - File Skip 


Purpose: 
Skips over specified file 


Entry: 
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P=0 

3 entry points: 

1) FLSKPB - B(A) at file header start 
2) FILSKP - C(A) at file header start 
3) FILSK+ - ACA) at file header start 


Exit: 


= Points to next file in chain (OR to 00 BYTE) 
j= Length in file’s fale length field 

D1 = Points to file length field 

Carry clear 


Calls: none 


Uses ACA), CCA), DI 


Stk Ivis: 0 


History: 


Date Progranner Modifications 


10/21/82 


07/05/82 = S.u. Added docunentation 
S.M. Changed entry conditions 


FILFIL - Fall an Missing File Nane 


Category: FILUTL File: TIaUTL: MS 


Nane:(S) FILFIL - Fill in Missing File Nane 


Purpose: 


Adjusts file spec info on Save Stack to fill in Hissing 
file nane if necessary. If the destination file nane 
as null, at always receives the source file name. If 
source file name is null, it receives desination file 
nane unless source device 1s CARD or PCRD, or 1f high 
bit of the device info 1s set. Status is returned 
indicating if one file spec (or both) 1s external, and 
if bath file names are undefined. 
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Entry: 
P 


IDS - Entry Point and Poll Interfaces 


= 0 


File specs on Save Stack as per SVINFO. 
Upper nib of device info on stack has upper bit set if 


source 
spec. 


Exit: 
P 


file nane fill is NOT to be done for this file 


= 0 


Updated file specs on Save stack as per SVINFO, wath 
the no-fill flag cleared for each file spec 
S(sEXTDV) = Set if either or both file specs are 


on HPIL device. 


S(sUNDEF) = Set if both file nanes are zero 
{that 15, undefined). 
S(sCARD) = 1 1f Source or Dest Device = CARD|PCRD 
S(sDEST) = © ("Source") 
A = First 8 chars of source file nane 
RO(3-0) = Last 2 chars of source file nane 
D(H) = Source device info fron RDINFO 
R2(A) = Dest device info fron RDINFO 
Carry = Clear 
Calls: RDINFS, RDINFD, SVINFO, MFDEVC, MFDVC- 
Uses......, 
Inclusive: A,B,C,0(R},D1,RO,R1,R2, S4-S0 
Stk lvls: 2 
Detail: Module Flonu: 
Clear Status 
Read Source info, check device type and save away 
Read Dest info 
If Source file 1s undefined and device not card 
Source file nane <-- Best file nane 
Check Dest device type 
If Dest fale narne 1s undefined 
and neither device is CARD | PCRD 
Dest file nane <-- Source file nane 
Write back Dest file info 
Recall Source file info 
Check Source device type 
Write back Source file info 
History: 
Date Progranner Modification 
05/15/82 FH Designed and coded. 
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02/15/83 FH Rdded check for "No fill" bit of 
device code 


9.63  FLADDR - Find First/Last Address of Men Device 


Category: FILUTL File: TI&UTL::MS 


Nawe:(S) FLADOR -~ Find First/Last Address of Men Device 


Purpose: 
Find the first and last address of available memory on 
the specified neriory device (PORT or MAIN). 


Entry: 
D(S) = Device type code of neriory device (MAIN = 0, 
IRAN = 1, ROM = 2, etc) 
D(O) = Port nunber if PORT device 
D(1} = Extender nunber if PORT device 
D(?-2) = Nibs 8-3 on configuration table entry for 
port device (contains size, address) 
Pp = 0 
Exit: 
A(A) = Address of first nib available memory on 
device 
C(A) = Address of last nib available nenory on 
device 
D = Entry state 
D1 @ AVMENS for MAIN device 
= $1ze of nodule if PORT device 
Pp = 6 
Carry clear 
Calls: EGFLC+, LSTADR 
Uses....... 


Exclusive: A(AR).C, 
L, 


D1 
Inclusive: A, 01 


Stk lvis: 2 
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Algor. thr: 

If PORT then 
Start of nodule plus offset to file chain 
Skip to end of file chain 
Space beyond chain to av nen start 
Find last address (call LSTADR) 

Else (it’s MAIN) 
Fetch AYNEMS, AVMENE 


~~ History: 
Date Progranner Modification 
06/11/82 FH Designed and coded 


9.64 KPLLIN - Replace Line in Nenory File 
Category: FILUTL File: TI8UTL:: MS 


Narie:(S) RPLLIN ~- Replace Line in Menory File 


Purpose: 
Replace a line in a menory file with the contents of 
the output buffer. fay be used to insert, delete, or 
replace a line in the file. 


Entry: 

OUTBS @ Start of replacement line 

AVMENS @ End of replacement line (address of last 
nib + 1) 


ACA) = Address of last nib + 1 of old line 
C(R) = Address of file header of file 
R3(A}) = Length of OLD line in nibs (zero for 
insertion) 

P = 0 

Exit: 
R3(A) = Offset of move (DEST END - SOURCE END) 
P = 9 


Carry clear: [Successful replacenent] 
Output buffer collapsed 
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A(A) = End + 1 of replaced line in file 
B(A) = Length of replacenent line in nibs 
C(R) = (OUTBS) 


Carry set: 
C(3-0) = Error code: 
eM—EN - Insufficient nenory 
eILACS - Illegal access (if ROM or PROM) 


Calls: OBLCMP, MOVE*N, MVMEN+, INITPT 
Uses....... 
Exclusive: A,B(A),C, D1,RO,R1, RI 
Inclusive: A,B ,C,D(S),D(7-0), D0, D1, RO,R1,R2,R3 
Stk lvls: 3 
NOTE: 


Security and privacy are not checked. ROM or EPROM 
access returns eFACCS error. 


Algorithn: 


History: 
Date Prograriner Modification 
FH Adapted fror a TRANSFORM utility 
02/15/83 FH Packed and updated docunentation 
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$n nn eon nen nn nee enn ene een ee tenn nnn eee eee ¢ 
| | 
|  FNEXEC - Function Execute {| CHAPTER 10 
| | 
ton - oe ne ene wn ee ee ee ee eee ee ¢------------------ + 
10.1 TRANTR - Process Terminator In Expr Execute 
Category: FNEXEC File: AB&EXP::MS 
Nane:(S) TRNNTR - Process Terminator In Expr Execute 
Purpose: 
Process terminator in expression execute. Collapse 
expression execution environnent and return to 
whonever called EXPEXC. 
Entry: 
D1 = nathstack pointer. 
Exit: 
D1 = mathstack pointer. 
A(W] = 16 nibbles at top of stack. 
Calls: None. 
Uses....... 
A,C(A}. 
Stk lvls: 0 
History: 
Date Progranner Modification 
SA Wrote 
11/01/83 NM Atternpted to docurent 
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10.2 GDISP$ -~ GDISP$ function execution 
Category: FNEXEC File: SB&GPH::MS 


Narie:(S) GDISP$ - GDISP$ function execution 


Purpose: 
Inplenents GDISP$ function 


Entry: 
P = 0 
DO 1s progran counter 
D1 1s stack pointer 


Exit: 
Exits through EXPR 


Calls: CPYDD- 


Rigorathn: 
Save DO on stack 
Calculate where stack item will start 
If not enough nenory then 
Evit with "Insufficient Menory" error 
Write out header for 132 character string 
Copy rightnost display driver (0D) to string 
Copy riddle DD to string 
Copy leftnost DD to string 
Point stack pointer to new string 
Restore DO fron stack 
Exit through EXPR 


History: 
Date Progranrer Modification 
10/26/83 B.S. Added docunentation 
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10.3. KEYS - KEY$ function 
Category: FNEXEC File: SG&KEY::NS 


Nane:(S) KEY$ - KEY$ function 


Purpose: 
Evaluates KEY$ furiction 


Entry: 

p = Q 
Exit: 

p = 0 

via ADHERD 
Calls: D=AVNS, POPBUF, KEYNAM, STKCHR 
Uses: A-C,B(R), RO-R2, SO-S2, D1, D0 
Stk lvls: 3 
History: 

Date Prograriner Modification 
08/29/83 3 S.W. Added docurientation header 
10.4 CAT$ - CATalog Function 


Category: FNEXEC File: SG&SYS::NS 


Nane: CAT$ - CATalog Function 
Nane:(S) CAT$20 - Build CATalog Information Buffer 


Purpose: CAT$ function returns CATalog information on a 
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Entry: 2 


Exit: 


Calls: 


Uses: 


specific file. 


The CAT$20 entry point is used to build a 
buffer of CATalog information. It is used by 
CAT and CAT$ for the card reader, and the 
Nainfrane. 


ENTRY POINTS: 

1) CAT$ - Entry for execution of CAT$ 

2) CAT$20 - Entry for CAT. SO must be clear to 
flag that the buffer shouldn’t be 
pushed on the stack. D1 at file 
header start. 


BUFFER POINTED TO BY CONTENTS OF *OUTBS’ 


QUINBS, FLTDH, GETRG+, LOCADR, SAVDO, RSTDO, 
FILKOQ$, POLL, FTYPDC, PRTHUC, LOCSET, RONF-1, 
CAT$70, CAT$80, BLNKC+, AYS=D0, OBCOLL, GETPRO, 
FILSKP, BF2STK, DOOUTB, DI=AVE, DI=CRS, C=MRIN, 
AVE=D4 


R-D, 01,BD0, SO, R1,R2 -- CAT$20 entry point 


Inclusive: fll the above + F-RO-O, AVMEME. R3, S?-S11 


Detail: 


FILE LENGTH < 1,048,576 NIBS (DECIMAL) 


IF nuner expr <=0 AND no 2nd parn, then defaults 
to current file. 
REGRROLESS OF ANY SPECIFIED STRING EXPRESSION. 


If called by CAT, then after return AVNENS should 
be set to OUTBS via OBCOLL 


Stack ivls: 4 


History: 


06/28/82 
08/05/82 


10/21/82 
06/10/83 


06/28/83 


Programmer Modification 

S.W. increased docunentation 

S.W. Added code to suap date 
& time, and to add port# 


S.W. Calls to AVS=DO & OBCOLL 
S.H. Replaced calls to LOCSET & 

BLANKC with call to BLNKC+ i” 
SW. Port# saved in R3 (not on 


RSTK) before calling GETRG+ 
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+ wre ee wee ———_—— a 
| 

| GENUTL - 

| 

+ ee ee me me 
11.1 STKCHD 


+ 
| 

General Purpose Utilities | CHAPTER 11 | 
| 
+ 


- Pushes Staterient On Command STACK 


Category: GENUTL File: AB&CLC::MS 


Nane:(S) STKCND - Pushes Staterent On Conriand STACK 


Purpose: 


Pushes statenent on connand stack. 


Entry: 
P 


Exit: 
Pp 


Calls: 


Stk lvls: 


History: 


06/09/83 


= 0 
ORGN1O, STREQL, MOVEU3 
A Bye, By. Py 003.701 


1 
Progranner Modification 
SA Added docunentation 


=~ 


/~ 
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11.2 D=WORD - Read 8 Bytes And Convert To Uppercase 
Category: GENUTL File: AB&LEX:: MS 


Narie:(S) D=WORD - Read 8 Bytes And Convert To Uppercase 


Purpose: 
Read 8 bytes fron nenory and convert to uppercase. 


Entry: 
DO pointing at text to be read. 
Exit: 
P=0. 
D[W] contains uppercase version of text. 
Calls: None. 
Uses....... 
C,0,P 
Stk lvls: 90 
History: 
Date Progranner Modification 
SA Wrot 
11/01/83 NA Attenpted to docunent 
11.3 RANGE - Verify A Byte Is In Certain Range 


Category: GENUTL File: AB&UTL:: MS 


Nane:(S) RANGE - Verify A Byte Is In Certain Range 
Nane:(S) DRANGE - Verify A Byte Is In Range "O"-"9" 
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Purpose: 
Determine if a byte is in a specified range. 
Caller supplies range for RANGE. 
This code supplies range of "0" to "9" for DRANGE. 


Entry: 
P=0, 
A[B] = byte to be checked. 
RANGE: C(B] = lower bound of range to check, 
C[3-2] = upper bound of range to check. 
Exit: 
P=0, 
Carry clear if byte in range. 
Calls: None. 
Uses....... 
C{A}. 
Stk lvls: 9 
History: 
Date Prograrnner Modification 
SA Wrote 
10/17/83 NM Attenpted to docurent 


11.4 MEMBER - Check If Byte Is A Member Of AR Set 


Category: GENUTL File: AB&UTL:: MS 


Narie:(S) MEMBER - Check If Byte Is A Merber Of A Set 


Purpose: 
Determine if a byte 1s a nenber of a set of bytes. 


Entry: 


C=set of bytes (C[1-0], C[3-2], etc.). 
P points to hinibble of upper byte of set. 
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ALB] = byte to be checked. 


Exit: 

P20, 

Carry clear if byte in set. 
Calls: None. 
Uses....... 


CHP] (uhatever P was on entry), P. 


Stk lvls: 9 
History: 
Date Progranner Modification 
eee fo 02~*~« tet ttS~S 
10/17/83 NM Attenpted to docunent 
11.5 STUFF ~ Fill Menory With Stuff Or 0's 


Category: GENUTL File: AB&UTL: MS 


Name: (S) STUFF - Fill MNenory With Stuff Or 0’s 
Nane:(S) WIPOUT - Fill Merory Wath Stuff Or 0’s 


Purpose: 
F:ll up nenory will a pre-deterrained 16-nibble pattern 
(STUFF) or with zeroes (WIPOUT). 


Entry: 
HEX node. 
D1 @ start of area to be stuffed. 
C{R} = length of area to be stuffed (in mibs). 
STUFF: A[W] = pattern to be stuffed into nenory. 
(WIPOUT presets A[W] to 0). 


Exit: 
P=0, 
Carry clear. 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
General Purpose Utilities 


D1 pointing past last nibble stuffed. 


Calls: None. 


P,C,D1. WIPOUT: A. 
Stk lvls: 0 


History: 
Date Progranmer Modification 
SA Wrote 
10/17/83 NM Attenpted to docunent 


.6 MOVEDN - Blk Move To Higher Addr 


Category: GENUTL File: AB&UTL::MS 


Nane MOVEDM - Blk Move To Higher Addr 
“Nane MOVEDO - Blk Move To Higher Addr 
Nane MOVEDR - Bik Move To Higher Addr 


:(S) 
:(S) 
ne: (S) 
Nane:(S) MOVED1 - Blk Move To Higher Addr 
Nane:(S) MOVED2 - Blk Move To Higher Addr 
Nane:(S) MOVED3 - Blk Move To Higher Addr 
Nane:(S) MOVEDD - Blk Move To Higher Addr 
Purpase: 

Block nove of mnenory to higher address. 


Entry: 
MOVEDN: A[A] @ end of destination 
B[A] = block length 
C{A) @ end of source 


NOVEDO: DO @ end of source 
D1 @ end of destination 
B[A) = block length 


NOVEDR: =AVNEME @ start of source 
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MOVED1: DO 


MOVED: 


MOVED: 


MOVED: 


Exit: 
P=0, 


01 @ end of destination 
R[H} @ end of source 


@ pointer to start uf source 
01 @ end of destination 
G(R] @ end of source 


01 @ end of destinatiori 
A[B&}] @ end of source 
C{[A] @ start of source 


ALR] @ end of source 
D1 @ end of destination 
C{A}] = block length 


0) @ end of source 
U1 @ end of destination 
C{A}] = block length 


Dh) @ start of source. 
D1 @ start of destination. 


Stk ivls: 
History: 


Date 


10/17/83 


V1.7 9 MOVEUN 


None, 

A,C{A},00,01,P. 

¢ 

Prog: anver Modification 
SA Wrote 

NM Htternpted to document 


Blk Move To Lower Addr 


Category: GENUTL File: AB&UTL::NS 
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Nane:(S) MOVEUN - Blk Move To Lower Addr 
Nane:(S) MOVEUO - Blk Move Te Lower Addr 
Nane:(S} MOVEUS - Blk Move To Lower Addr 
Nane:(S) MOVEU1 - Blk Move To Lower Addr 
Nane:{(S) MOVELI2 - Bik Nave To Lower Addr 
Nane:(S} MOVEU3 - Blk Move To Lower Addr 
Nane:(S) MOVEU4 - Blk Nove To Lower fiddr 
Purpose: 


Move a block of nenory to a lower address. 


Entry: 
MNOVEUMN: A[A] @ start of destination 
B[A}] = block length 
C{A] @ start of source 


NCVEUO: DO @ start of source 
D1 @ start of destination 
BLA] = block length 


MOVEUA: =AVNEMS @ end of source 
01 @ start of destination 
ALA] @ start of source 


MOVEU1: DO @ pointer to end of source 
01 @ start of destination 
ALA] @ start of source 


NOVEU2: D1 @ start of destination 
A{8} @ start of source 
C{A} @ end of source 


NOVEU3: DO @ start of source 
D1 @ start of destination 
C{A} = block length 


MOVEU4: ALA] @ start of source 
01 @ start of destination 
C{A} = block length 


Exit: 
P=0, 
DO @ end of source 
D1 @ end of destination. 


Calls: None. 


Uses....... 
A,C{R},f),01,P. 


Stk Ivis: Q 
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History: 
Date Progranner Modification 
SA Wrote 
10/17/83 9 NM Attenpted to docunent 


11.8 STRIST - Test Strings For Equality 
Category: GENUTL File: AB&UTL::NS 


Nane:(S) STRIST - Test Strings For Equality 
Naite:(S) STREQL ~ Test Strings For Equality 
Purpose: 


Test two strings for equality. 


Entry: 
STRIST: 
DO and D1 at high-nenory end of the tuo strings to 
be conpared. 
C{A} = block comparison length (in nibbles). 
STREQL: 
DO and D1 at high-nenory end of the tuo strings to be 
corpared., 
B[A] = (block comparison length - 1)/16. 
P = (block comparison length - 1) nod 16. 


Exit: 
If conparison length = 0, carry clear and XN=1. 
If strings equal, carry clear and XM=0. 
If strings not equal, carry set and XM=0. 
P can be anything. 
B[R] contains rennant of length/16. 
A, C contains first words not equal. 
DO and D1 point at first words not equal. 


Calls: None. 


A,BLA],C,P,00,D1. 


11-8 





HP-74 Softuare IDS - Entry Point and Poll Interfaces 
General Purpose Utilities 


Stk lvls: 


History: 


10/18/83 


11.3 


CSRC1 


9 

Progratiner Modification 
SR Wrote 

NM Atteripted to document 


~ Perforn 1 CSRC 


Category: GENUTL File: AB&UTL::MS 


AANA ANYNN WwW UYUNUWUW NU 


Owwmnvnwrwuwrnn 


Nee Ne ee ee ee ee ee ee ee ee ee ee 8 eee ee ee ee es es ee 


CSRC4 - Perforn 1 CSRC 

CSRC2 - Perforn 2 CSRCs 
CSRC3 --)—s Perform 3 CSRCs 
CSRC4. ss Perforn 4 CSRCs 
CSRC5 -~- Perforn § CSRCs 
CSRC6 = -)Ss ~Perforn 6 CSRCs 
CSRC? - Perform 7 CSRCs 
CSRC8 = -)S Perforn & CSRCs 
CSRC9  =- = Perforn 9 CSRCs 


CSRC1i0 =- Perforn 10 CSRCs 
CSRC11  - Perform 11 CSRCs 
CSRC12. - Perform 12 CSRCs 
CSRC13 - Perforn 13 CSRCs 
CSRC14. -) Perforn 14 CSRCs 
CSRCi5 - Perforn 15 CSRCs 


CSLC1 ~ Perforn 1 CSLC™ 
CSLC2 - Perform 2 CSLEs 
CSLC3. -) = Perforn 3 CSLCs 
CSLC4-)Ss Perforn 4 CSLCs 
CSLO5 =~) «~Perforn 5 CSLEs 
CSLC6 = =- Perforn 6 CSLCs 
CSLC7 —-)s Perform 7? CSLCs 
CSLO8 = -)Ss Perform 8 CSLCs 
CSiC9  —-)Ss Perform 9 CSLCs 


CSLO10 = -) «~Perforn 10 CSLCs 
CSLO11 -) =~ Perform 11 CSLCs 
CSiC12 - Perform 12 CSLCs 
CSLO1G = - Perform 13 CSLCs 
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Narie:(S) CSLC14. - Perforn 14 CSLCs 
Nane:(S) CSLC1S - Perforn 15 CSLCs 


Purpose: 
Perforn 1 to 15 circular left or right shifts to C. 


Entry: 
None. 


Exit: 
C-register shifted. 


Calls: None. 


Stk Ivis: 90 


History: 
Date Prograrner Modification 
SA Wrote 
10/18/83 = NM Attenpted to docunent 


11.10 OQUTI1TK - Qutput 1 byte fron A(B) 
Category: GENUTL File: JP&PR2::MS 


Nane:(S) QUTITK - Output 1 byte fron A(B) 

Nanie:(S) OUTIT+ - Increment 01, Output 1 byte from A(B) 
Nane:(S) QUIBYT - Output 1 byte fron C(B) 

Narie:(S) QUTBY+ - Increment D1, Output 1 byte from C(B) 
Narie:(S) OUT2TK - Output 2 bytes from A(3-0) 

Narie:(S) OUT2TC - Output 2 bytes fron C(3-0) 

Nane:(S) OUT3TK - Output 3 bytes fron A(5-0) 

Wane: (S) OUT3TC - Output 3 bytes fron C(5-0) 

Nane:(S) QUTNIB ~- Output 1 nibble fron C(O) 


Purpose: 
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Output specified number of nibbles to address pointed 
to by DO; a check is nade so that DO dees not write 
past available nmerory end. 


Entry: 
D(A) 
DO 


OUTNIB: 
OUTITK: 
OUT1T+: 
OUTBYT: 
OUTBY+: 
OUT2TK: 
QUT2TC: 
OUT3TK: 
OUT3TC: 


Exit: 


(AVMEME} - Available Memory End 
address at which output to go 


Nibble to output in C(O) 


Byte to 
Byte to 
Byte to 
Byte to 
2 Bytes 
2 Bytes 
3 bytes 
3 bytes 


be 
be 
be 
be 
to 
to 
to 
to 


No nenory error => 
Carry clear on exit 
DO increnented past the tokens that were output 
D1 incremented by 2 (OUTIT+, OUTBY+ entries only) 
ACB) & C(B) are swapped (OUTBYT, OUTBY+ entry) 
ACA) & CCA) are swapped (OLITZTC entry only) 
ACW) & C(W) are swapped (QUT3TC entry only) 


El 


Calls: 


Uses: 


Stk lvls: 
History: 


07/07/82 
11/02/83 


se 
golong MENERR 


output in ACB) 
output in ACB) 
output in C(B) 
output in C(B) 
be output 1n A(3-0) 
be output in C(3-0) 
be output in A(5-0) 
be output in C(5-0) 


OVFLCK 

DO (OUTNIB, OUT1TK, OUT2TK, OUT3TK) 
01, DO (QUT1T+) 
A(B),C(B), 00 (QUIBYT) 
A(B),C(B), 01,00 (QUTBY+) 

ACA), CCA), DO (OUT2TC} 

A,C, DO (QUT3TC} 

1 

Progratiner Modification 

JP Modified docunentation 

S.M. Hodafied docunentation header, 


47-11 
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11.17 DIC=R3 - Restore €(A),01 Fron R3 
Categcry: GENUTL File: JP&PR2::MS 


Nane:(S) DI1C=R3 -~ Restore C(AR),01 fron R3 


Purpose: 
Restores D1 fron R3(5-3) 
Reverse effect of R3=DIC 


Entry: 
None 

Exit: 
C(R} = R3(R) 
ACA) = R3(5-9) 
D1 = =_-R3(5-9) 


Carry preserved fron entry 
Calis: None 
Exclusive: 8,CfR),01 
Inclusive: A,C(9),D1 
Stk lvls: 0 
History: 
Progranner Modification 


07/07/82 Modified docunentation 


11.12 R3=D10 - Save DO and D1 in R3 


Category: GENUTL File: JP&PR3::MNS 
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Name: (S) R3=D10 - Save DO and D1 in R3 
Nane: R3=D1C - Save C(A) & D1 in R3 
Nane: R3=D1+ - Save C(A) & ACA) in R3 


Purpose: 
R3=D10 entry saves DO in R3(A) and D1 in R3(9-5). 
R3=D1C entry saves C(A) in R3(A) and D1 in R3(9-5). 
R3=BD1+ entry saves C(A) in R3(R) and ACA) in R3(9-5). 


Entry: 
R3=DI0: DO and 21 contain values to save in 
R3(A} and R3(9-5), respectively. 
R3=D01C: CA) and 01 contain values to save in 
R3(A) and R3(9-5), respectively. 
R3=D1+: C(A) and ACA} contain values to save in 
R3(A) and R3(9-5}, respectively. 


Exit: 
Carry preserved from entry 
ACA )=0 (8) 
R3=010: Ea iete on entry;  R3(9-5)=D1 on entry 
C(R)=ACA)=D0 
R3=DIC: oo on entry: R3(9-5)=D1 on entry 
R3=D1+: R3(R)=C(A) on entry; R3(3-5)=A(A) on entry 
Calls: None 
Uses....... 


R3=D10: A, CCA), R3 
R3=D1C: A, R3 
R3=D1+: A, R3 


Stk ivis: 0 


History: 
Date Peaghatier Modification 
07/06/82 JP Modified docunentation 


a 
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11.13 CSLORO - Copy D1 to RO(9-5) 


Category: GENUTL File: MB&ING: MS 


Nane:(S) CSLIRO - Copy D1 to RO(9-5) 


Purpose: 
Copy D1 to RO(3-5) without disturbing the rest of RO. 


Entry: 
No necessary conditions. 


Exit: 
P = 0 
Carry clear 


Calls: CSLUP9 
USeS......, 


Exclusive: @,f(R) 
Inclusive: A,C(A),P 


Stk lvls: 1 
Detail: 
=CSLORO A=RO 

CD1IEX 
D1=C 
GOSBVL =CSLWPS 
C=R A 
RO=C 
RIN 

History: 

Date Progranner Modification 


12/08/82 MB Docunentation 
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11.14  IMDO+2 - Add 2 to R1(A), copy value to DO 
Category: GENUTL File: MB&ING: MS 


Nane:(S) INDO+2 - Add 2 to R1(A), copy value to DO 
Nane:(S) IMDO-2 - Subtract 2 fron R1(A) 


Purpose: 
INDO+2: Take DO storage in R1, increment by 2 and copy 
to DO. 
INDO-2: Subtract 2 fron R2(A). 


Entry: 
No necessary conditions. 


Exit: 
Carry clear. 
INDO+2: RI(R) rncrenented by 2. 
DO=C(A)=R1(A) 
INDO-2: RI(A) decrenented by 2. 


Calls: none 


Exclusive: 
INDO+2: C(Wj, DO 
INDO-2: nothing 


Stk lvis: 0 


Detail: 

=INDO-2 CRIEX 
C=C-1 
C=(-T 
CRIEX 
RTNCC 

=INDO+2 C=R2 
C=C+1 A 
C=C+1 A 
R1=C 
DO=C 
RINCC 


DD 


History: 


Date Progranner Modification 
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12/08/82 =NB Docunentation 


11.15 Di2ROR - Copy D1 to RO(A) 
Category: GENUTL File: MB&ING: MS 


Nare:(S) D12ROR - Copy D1 to ROCA) 


Purpose: 
To copy D1 to RO(A) without disturbing the rest of RO. 


Entry: 
No necessary conditions. 


Exit: 
Carry clear. 


Calls: none 


Exclusive: RO(A) 


Stk lvls: 0 
Detail: 
=D12ROR CROEX 

CDIEX 
b1=C 
CROEX 
RTNCC 

History: 

Date Progranner Modification 


wwe ee ee wwe en te eee we ee eee ee ee ee eee ee ee ee ew 


12/08/82 MB Docunentation 
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11.16 NwOFFS - Recover old offset, store new one in RAM 


Category: GENUTL File: MB&USG:: MS 


Narie:(S) NWOFFS ~ Recover old offset, store new one in RAM 


Purpose: 
Recover old offset from AvMenEnd, store a neu one 
in the sane location. (Utility for IMAGE execution, 
but can be used anywhere. ) 


Entry: 
Di=address+S for which new offset will be conputed 
fild offset resides at AvMenErd 


Exit: 
Carry clear 
New offset stored in AvMenEnd 
C(A)=recovered offset fron AvMenEnd (recovered neans 
that the addition has been perforned on the offset 
to recover the address) 
D1=A(A)=AvMenEnd+5 


Calls: StAVE+ (SetAVE), CA2D1+ 


Exclusive: A(A),C(A),D1 
Inclusive: ACA),C(A), D1 


Stk lvls: 1 
Detail: P 
=NWOFFS D1=D1- 5 

ADIEX 
GOSBYL =SetAVE Set B1=C=AvMenEnd 
A=A-C AR Compute new offset. 
C=DAT1 A Fetch old offset. 
DAT1=A A Store neu offset. 
GOTO CALD1+ Recover compute address. 

History: 

Date Progranner Modification 
12/08/82 MB Docunentation 
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11.17 RCVOFS - Recover offset fron RAM storage 


Category: GENUTL File: MB&USG::NS 


Nane:(S) RCVOFS - Recover offset fron RAM storage 


Nane:(S) C+H2D1 - Recover offset fron RAM storage 
Narte: CAZD1+ - Reconpute offset fron RAN storage 
Purpose: 


To recover a 5-nibble offset fron RAM (recover means 
to fetch the offset, perforn addition to reconpute 
the original address). 


Entry: 
RCVOFS: offset to recover resides at D1-5 
C+A2D1: offset to recover resides at D1 


Exit: 
Carry clear 
Di=A(A)=address+5 where offset was found 
C(Aj=recovered offset (offset uas added to BI to 
reconpute old address) 


Calls: none 


Uses....... 
Exclusive: A{R),C(A) 
C+A2D1 also uses 01 (does a $145) 


Stk Ivls: 0 


Detail: 

=RCVOFS D1=D1- 5 

=C+R2D1 C=DATI A 

CA2M1+ Di=D1+ 5 
ADIEX 
Di=A 
C=R+C A 
RTNCC 


History: 
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Date Prograrner Modification 
12/08/82 MB Docunentation 
11.18 BP - Machine-level Beep 


Category: GENUTL File: MN&BP: 21S 


Narie: BP ~ Machine-level Beep 
Natie: BP+ - Machine-level Beep 
Nanie:(S) BP+C Nachine-level Beep 
Narie:(S) TONE Nachine-level Beep 


4 


Purpose: 
Perforn BEEP. 


Entry: 
BP: A 
C 


frequency in hz (floating point dec). 
duration in secs (floating point dec). 


BF+: ALA] = duration in msec (hex). 
DEA} = frequency in hz (hex). 
HEX node. 


1 


BP+C: C(A] = duration in nsec (hex). 
D[A}] = frequency in hz (hex). 
HEX node. 
TONE: C{X] = inner loop countdown constant. 
B[W] = cuter loop countdown constant (# cycles). 
HEX node. 
(Bypasses check of beep flag, conputation of 
constants based on freq, duration and 
clockspeed. ) 


Exit: 
HEX mode. 
Calls: BP: RJUS?. DCHXW, all BP+ calls. 
BP+: CSLWS, CSRU5, IDIV, MPY, SFLAG?. 
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Uses. ...... 

A,B,C,9,D0,P. 
Stk lvls: 2 
Detail: 


Maxinuri duration is 1048.575 seconds (FFFFF nsec). 
Maxinun frequency is deternined by clockspeed. Rt 
500 khz clockspeed, maxinun frequency is 6757 hz. 


Algerithr: 
Define: f = frequency 
= duration 1” msec 
= inner loop countdown constant 
k2 = outer loop countdown constant 
One beep cycle (one cycle of square nave) takes 
32*k1+74 machine cycles. The routine beeps for k2 beep 
cycles. 
k1=(clkspd/f-74)/32 
if k1<0 then k1=0 
if kiOFFF then ki=FFF 
f=clkspd/(32*k1+74) {compute actual frequency} 
k2=f*4/1000 {compute cycle count} 
Execute tone loop, using ki to tine square waves 
and k2 ta count tone cycles. 


f 
t 
k1 


History: 
Date Progranner Modification 
05/20/82 NM Added docunentation 
11.19 CHIRP - Do Rn Annoying Little Beep 


Category: GENUTL File: MN&BP: MS 


Nane:(S) CHIRP - Do An Annoying Little Beep 


Purpose: 
Quick, high-pitched beep for errors and whatever. 
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Entry 


HEX node. 
Exit: 

HEX node. 
Calls: BP+C (falls through). 
Uses....... 

R,8,C,D0,P, 0. 
Stk lvls: 2 
History: 
Date Prograntier Modification 

08/02/83 NM Added docunentation = 


11.20 ROMCHK - Find ROM / File Chain Start 
Category: GENUTL File: MN&CNF::MS 


Nane: ROMCHK - Find ROM / File Chain Start 
Nane:(S} ROMFND - Find ROM / File Chain Start 


Purpose: 
Check 1f ROMS exist 
Find file chain start within ROM/IRAN 
Return Device Infornation ahout ROM 


Entry: 
ROMNCHK: Farst tine entry point 
Finds ROM Configuration Table 
If non-enpty, save pointers required for entry to 
ROMFND. 


ROMFND: Repeated entry point 


R1(%} = Length to end of Configuration Table 
R1(3-7)=Position within Configuration Table 
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Exit: 
P=0 
ROMCHK: 
Carry set: 
Enpty Configuration Table 
Carry Clear: 
D1,C(A) @ First fale on plug-in 
D(S) = Device type 
1 = IRAN 
2 = ROM 
3 = HP EEPROM 
4 = Intel EEPROM 
Device type 15 increriented by 1 
to distinquish fron RAM 
D(O) = Port Extender # (Device #) 
D(1) = Port # 
0(2-7) = Nibs (3-8) of config table entry 
R1(X) = Length to end of Configuration Table 
R1(3-7)=Position within Configuration Table 
Ri must be preserved between calls to ROMFND 
ROMFND: 
Carry set: 
No riore ROMs 
Carry Clear 
Sane Exit Conditions as ROMCHK 
Calls: CNFFND 
Uses....... 
Exclusive: A-B,D1,R1 
Inclusive: A-D,B1,R1 
Stk lvls: 1 
NOTE: 


R1 must be preserved between calls to ROMFND 
Algorathn: 


ROMCHK: Find ROM Configuration Table (CNFFND) 
If no table entries ---> RINC 
Nove to Device # field in table 
Move Table length to B 


Read Device#, Port# and Size infor into C,D 
Read 3 High nib address & Device type 
Adjust pointer (D1) to next entry in table 
Increnent & Move Device type to D(S) 
Calculate & Read first file address 
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Save Len of Config table & Next entry pos’n 
in Rt. 
D1 <-- Start of file 
RTNCC 
ROMFND: Restore Len of Config Table (Low 3 nibs R1 -> B) 
Restore Position in Config Table (R1 --> D1) 
2: If entries left (B>0) 


goto 1; 
else 
RTNSC 
History: 
Date Progranner Modification 
07/09/82 JP Nodified docunentation 
11.21 SRW3-- Shift A Right 3 Nibbles 


Category: GENUTL File: MN&UTL::NS 


Nane:(S) ASRW3  - Shift A Right 3 Nibbles 
Nane:(S) ASRN4 - Shift @ Right 4 Nibbles 
Name: (S) ASRWS - Shift A Right 5 Nibbles 
Nane:(S) ASLW3 - Shift A Left 3 Nibbles 
Nane:(S) ASLW4 - Shift A Left 4 Nibbles 
Nane:{S) ASLWS - Shift R Left 5 Nibbles 
Nane:(S) CSRW3 - Shift C Right 3 Nibbles 
Nane:(S) CSRW4 - - Shift C Right 4 Nibbles 
Name: (S) CSRWS - Shift € Right 5 Nibbles 
Nane:(S) CSLW3 - Shift C Left 3 Nibbles 
Nane:(S) CSW4 - Shift C Left 4 Nibbles 
Nane:(S) CSWLW5S - Shift C Left 5 Nibbles 
Purpose 


(St or SR) (A or C) (3, 4 or §) tines. 
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xSdlin: Register x shifted direction dn tines. 
Carry and pointer unaffected. 


Calls: None. 


Register x (above, Exit conditions). 


Stk Ivls: 0 
History: 
Date Progranner Modification 
06/23/82 NN Added docunentation = 


14.22 SFLAGS - Sets systen flag 
Category: GENUTL File: PM&FLG::MS 


Nane:(S) SFLAGS - Sets systen flag 


Purpose: 
Sets a systen flag and updates annunciators 


Entry: 
C(B) -- hex flag number (e.g. load FF for -1) 
HE XMODE 
P=0 


Exit: 
specified flag set 
any corresponding annunciator turned on 
Carry=Clear 
D(A} - Set to DO 
HE XMODE 
P=0 


Calls: GTFLAG, UPDANX 
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Inclusive: CPU: A(A),B(A),C(15,5-0),0(A),P 
RAN: ANNADI-4, SYSFLG 
Stk lvls: 2 
History: 
Date Programmer Modification 
06/11/82 PM Docunented routine 
04/11/83 PM Revised docurentation 


11.23  SFLRGC - Clears systen flag 
Category: GENUTL File: PM&FLG::NS 


Narie:(S} SFLAGC - Clears systen flag 


Purpose: 
Cleares a systen flag and updates annunciators 


Entry: 
C(B) -- hex flag nunber (e.g. load FF for -1) 
HEXMODE 
P=0 


Exit: 
specified flag cleared 7 
any corresponding annunclator turned on 
Carry=Clear 
D(A) - Set to DO 
HE XMODE 
P=0 


Calls: GTF LAG, UPDRNX 
Inclusive: CPU: ACA}, B(R),C(15,5-0),D(A),P 
RAM: ANNAD1-4, SYSFLG 


Stk lvls: 2 


e256 
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History: 

Date Progranner Modification 
06/11/82 Pf Docunented routine 
04/11/83 Pr Revised docunentation 


11.24 SFLAGT - Toggles systen flag 
Category: GENUTL File: PH&FLG::AS 


Narie:(S) SFLAGT ~ Toggles systen flag 


Purpose: 
Toggles a systen flag and updates annunciators 


Entry: 
C(B) -- hex flag number (e.g. load FF for -1) 
HEXMODE 
P=0 


Exit: 
specified flag toggled 
any corresponding annunciator turned on 
Carry=Set if flag previously set 
Carry=Clear if flag previously cleared 
D(R) - Set to DO 
HEAMODE 
P=0 


Calls: GTFLAG, SYSFLC, UPDANX 
Inclusive: CPU: ACA),B(A),C(15,5-0),D(A),P 
RAN: ANNAD1-4 
Stk lvls: 3 


History: 


Date Progranner Modification 
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06/11/82 PN Docunented routine 
04/11/83 PM Revised docunentation 


11.25 SFLAG? - Tests systen flag 
Category: GENUTL File: PN&FLG::NS 


Narie:(S) SFLAG? - Tests system flag 


Purpose: 
Tests a systen flag 


Entry: 
C(B) -- hex flag number (e.g. load FF for -1) 
HEXMODE 
P=0 


Exit: 
Carry=Set if flag set 
Carry=Clear if flag clear 
D(A) - Set to 
HEXNODE 
P=0 


Calls: GTF LAG 


Inclusive: A(A},C(15,5-0),D(R) 


Stk lvls: 1 
History: 
Date Prograrner Modification 
06/11/82 Ph Docunented routine 
04/11/83 PM Revised docunentation 


Lise? 
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11.26 GIFLAG - Gets RAN nib and flag nask 
Category: GENUTL File: PM&FLG::MS 


Nane:(S) STFLAG - Gets RAM nib and flag nask 


Purpose: 
Gets nibble and nask for SYSTEM flag specified 
by hex flag # 


Enitry: 
C(B) -- hex flag nunber 
HEXMODE 
P=0 


Exit: 
A(XS) - appropriate nibble fron flag register 
C(XS) - mask: 1 bit on at position of flag 
D(A) -~- previous content of DO 
D0 ---- points at appropriate nibble in flag register 
carry=clear 
P=0 
HEXMODE 


Calls: nothing 


Inclusive: ACA),C(15,5-0),0(A), DO 
Stk lvls: 90 


History: 


Progranner Modification 


66/14/82 Docunented routine 
12/17/82 Renoved conversion ovfl. tests 
04/11/83 Revised docunentation 
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11.27 FINDA - Look For ACB) In A Table And Junp 


Category: GENUTL 


File: SB&DSP::NS 


Name: (S) FINDA - Look For A(B) In A Table And Junp 
Nane:(S) FINDDO - Look For (DO) In A Table And Junp 


Purpose: 


Searches a table following GOSUB for a byte natching 
A[B] and junps to address specified for that value. 


Entry: 
FINDA: 


A(B)=byte to be found 


FINDDO: 


(D0)=byte to be found 
Table of bytes and address offsets nust follow GOSUB 
The call should look as follous: 


GOSBVL =FINDA 
CON(2) \Q\ 
REL(3) ESCO 
CON(2) \R\ 
REL(3) ESCR 
CON(2) \C\ 
REL(3) ESCC 


CON(2) 0 


Entry points: 


<---GOSUB 1s followed by table 
<---Byte to be natched 
<---Where to junp if matched 


<---Null byte terminates table 
<---Followed by code to execute 
if no natch is found 


1) FNDDO+ - Increnents DO 1 byte, then reads in A(B) 
2) FINDDO - Reads in A(B) fron DO 
3) FINDA - Assunes byte to conpare already in A(B) 


Exit: 

P = 9 
Calls: None 
Uses....... 


Inclusive: C(A) 


Stk lvls: 0 


123 
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Detail: 
Thais routine 


Algorithn: 
Pops address 
as the start 
conpared and 
jJunp if that 
entry in the 


uses 3 nibble self-relative offsets 


off return stack and uses that address 
of a table of alternating byte to be 
3-nibble relative offsets of there to 
byte matchs what 1s 1n A(B}. The last 
table should be a O byte tollcued by 


the code to execute if no match is found. 


History: 


09/13/82 8B 
09/14/82 B. 


1.28 TBLIAP = 


Category: 


Nane:(S) TALIMP 
Nane:(S) TBLIMC 


Purpose: 
Perforns 


GENUTL 


Modification 


Wrote routine to replace BYTSCN 
Changed to fall thru to otherwise 
code 


Indexed table junp 


File: SB&DSP:: MS 


Indexed table junp 
Indexed table junp 


an indexed table junp into a table of 3-nibble 


relative offets following GOSUB. 


Entry: 
Table of 
TBLIMP: P= 
TBLIMNC: C(O) 
Exit: 
P = 0 
Calls: None 





relative offsets nust follonm GOSUB 


index of table to jump to 
= index of table to jurp to 
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Inclusive: C{(R) 
Stk lvls: 0 


Detail: 
Pops address off stack and adds 3 tines the index to 
it. It then uses REL3D0 to junp to the address 
specified by that table entry. 


History: 
Date Progranner Modification 
10/14/82 B.S. Created routine to replace CASE. 


11.29 INTRPT - Interrupt Handler 


Category: GENUTL File: SB&DVR::MS 


Nane: INTRPT - Interrupt Handler 


Nane:(S) INTR5O0 - Reentry point for ext, interrupt handler 
Purpose: 
INTRPT: 
Processes interrupts whenever they happen 
INTRSO: 


Reentry point for external interrupt handlers 
Restores CPU registers for interrupt RAN then 
returns fron interrupt. 


Entry: 
None 
Exit: 
R4(A}=D0 at tine of call. No other registers changed. 
Calls: KEYSCN 
Uses....... 


Exclusive: R4(R),RAM(INTR4, INTA, INTB, INT) 


Stk lvls: 0 
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Detail: 

Uses 56 nibbles of reserved RAM to save state of 
machine. fAssunes that the subroutine stack has at 
least one (out of 8) levels available to save the 
return address. 
This routine 18 not permitted to alter any harduare 
status bits or the D register since they are not 
saved or restored. 

R4(A) saves C register 

INTR4 saves R4(15-5) and DO ee 

INTR saves A register 

INTB saves B register 

INTN saves Mode,P,Carry,RSTK[N+1] 


Algorithn: 
Save C(W) an R4 
Save R4(5-15) and DO in INTR4 
Save ACW) in INTA 
Save B(W) in INTB 
Save 1 stack level, Pointer, Carry, and Mode in INTN 
If this 1s not a module pulled interrupt then 
goto INTR20 


NP=0 
If MP stall active then 
goto NPI 
Set FINPI 
INTR20: 


If Interrupt Ignore Flag 1s set 
then clear 1t and goto RESTORE 
If CMOS test word is invalid 
then Call WARNST and goto RESTORE if it returns 
If VECTOR 1s non-zero 
then jump to that address 
Wait 8/512ths second to debounce keyboard 
Call KEYSCN 
RESTORE: 
Restore Mode, Carry, Pointer and 1 Stack level 
Restore B(W) 
Restore A(W) 
Restore &® 
Restore C and R4 
Return fron interrupt 


History: 


Date Prograrmer Modification 


07/15/82 B.S. Updated docunentation 
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11.30 ATNCLR - Clear Attention Flags 
Category: GENUTL File: SB&DVR: 3S 


Nane:(S) ATNCLR - Clear Attention Flags 


Purpose: 
Clears ATNFLG to inhibit effects of ATIN 
key. Also returns cold state of ATTN flag. 


Entry: 
Exit: 
Carry clear iff RINFLG was set. 
Calls: None 
USB oa oie ae 


Inclusive: A[A],D1 


Stk lvls: 0 
History: 
Date Progranner Modification 
11/10/82 Nh Added docunentation = 
07/25/83 B.S. No longer clears Except status bit 


41.31 DSLEEP - Deep sleen 


Category: GENUTL File: SB&DVR::MS 


Nane:(S) DSLEEP - Deep sleep 


I 5 
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Purpose: 
Put TITRN into a power-off state. 


Entry: 
None. 


Exit: 
P=0, i 
Carry clear. 


Calls: ALMSRV, RINCL1, BF2DSP, FIBOFF, I/ODAL, LOCKD?, 
OUT=1, PWCONF, RCLSTR, FPOLL, NOKEYS, SFLAG?, 
SFLAGC, SFLAGS, ACBAT? 


Uses....... 

All CPU registers. SCRICH in RAM. 
Stk lvls: § 
NOTE: 


This 1s how you put the machine to sleep. If nenory 
configuration changes while the machine 1s asleep, 
the soft-configured module which called DSLEEP nay have 
noved. Thus when DSLEEP tries to return, the nachine 
Will go out to lunch. It is RECOMMENDED that you call 
DSLEEP through the MGOSUB utility: 

GOSBVL =MGOSUB 

CON(5} =DSLEEP 
Then if configuration changes, the GOSUB stack will be 
collapsed and the attenpt to return fron DSLEEP wall 
Qive a SYSTEM ERROR. This beats going out to lunch. 


Secondary local entry point DPSO10 is used by PWROFF. 


Detail: 
Performs pouer-doun poll on entry and one or tuo 
power-up polls on wakeup. Control 1s returned to the 
calling routine in the following circunstances: 


If ATIN key was not hit: 
An on-tiner alarn is pending with progran running 
or 
AR poll handler cleared =f1TNOF on =pDSWNK poll. 


If ATTN key uas hit: 
A poll handler cleared =f1lINOF on =pDSWKY poll. 
or 
Passuord is null 


or 
User supplies correct password. 
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LOCK is inplenented with the aid of the =fiTNOF and 
=fIMKOF flags. Proper manipulation thereof will keep 
the user fron breaking into a locked machine. Guide- 
lines for their use are found in the poll interface 
descriptions below. 


Sone special things happen for the benefit of the 
PUROFF routine, since PWROFF returns control to the 
main loop upon wakeup. See PWROFF docurientation for 
nore detail, including explanation of =bECOND. 


Algorathn: 
DSLEEP: Clear =f1PWDN flag (indicate that we were not 


called fron PWROFF). 


DPSO10: (Entry point for PWROFF). 


If ON key down 
Set ATTN flag and goto DSPO40 

If display-clear flag clear then goto DPSO30 
Send <cursor on>/CR/LF. 


DPS030 Send <cursor off> 
DPSO35: Perforr power-down poll. 


Set TURNOFF (f1TNOF) flag. 

Clear MAKEOFF (FIMKOF) flag. 

Turn off display. 

Clear f-g shift status bits. 

Clear ATNFLG and ATNDIS. 

Turn off timer #3 (Low battery check). 
Activate KB row with ATIN key. 

SHUTDN. 


DPS040: Configure. 


Deallocate external cornand buffer (to give poll 
handlers a chance to create one if we were 
called by PWROFF). 

Check clock systen 

If ATIN key woke us up, goto DPS200. 

If progran running and ON TIMER pending 

Clear =flTNOF; goto DPS200. 

Perform pOSWNK poll (uho woke us up?!?), 

If turnoff flag set and ATNFLG clear then 

goto BSPO35 


DPS200: Flush key buffer. 


Clear fIALRM flag. 

=pDSUKY poll 

Password processing (does not require password if 
password=null or =flTNQF is clear). 

If failed to unloch machine (password required but 
net correctly given), goto DPSO35. 

RO/BAT check 

RETURN 
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History: 
Date Progranner Nedification 

07/15/82 NM Rdded narie to docunentation 
09/07/82 NM Added calls to AC/BAT at end 
09/09/82 NM Moved puroff poll after DSPO20 
09/13/82 NM Made CR/LF conditional on clear flg 
09/20/82 NM Check ON key at DPSO10 

09/23/82 NM Clear fFIALRM before pDSWKY poll 
10/25/83 B.S. Updated docunentation 

11.32 SLEEP - Scan KB, do LSLEEP if key buffer enpty 


Category: GENUTL File: SB&DVR::NS 


Name:(S) SLEEP - Scan KB, do LSLEEP if key buffer enpty 
Nane:(S} LSLEEP - Light Sleep 
Purpose: 

SLEEP: 


Debounces keyboard and shuts CPU down unless keys are 
in buffer or doun. 

LSLEEP: 
Shuts CPU down (enters low power state) until sone 
activity on the bus or the keyboard wakes up CPU. 


Entry: 
Exit: 
P = 9 
Carry clear if keys in buffer 
Carry set if no keys were in buffer 
Calls: DEBNCE ,KEY? 
Exclusive: C(R) 
Inclusive: A(W),B(W),C(K), BO 


Stk lvls: | 
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Algorithm: 
Debounce for 8/512ths second then scan keyboard 
If key buffer not enpty 
then return with carry clear 
If any keys are doun 
then return with carry set 
Shut down CPU 
If MP=1 or f1MPI set then 
Go to MPI 
Return with carry set 


History: 
Date Progranner Modification 
07/15/82 «B.S. lipdated docurientation 


11.33 CKSREQ - Handle service requests 
Category: GENUTL File: SB&DVR::MS 


Nane:(S) CKSREQ - Handle service requests 


Purpose: 
Handle service requests. This routine recognizes 
several possible sources of service requests: 
1) Timer 1--Display code needs service. 
2) Tiner 2--Clock systen needs service. 
3) Taner 3--Battery check code needs service. 


After exarining above, CKSREQ perforns a poll which 
allous: 
1} Handling of SREQs we don’t recognize. 
©) Handling related to recognized SREQs (e.g., 
scheduling a new external alarn through clock 
systen). 


~~ 


This code 1s typically called uhen: 
1) We wake up from a sleep state (delay, etc.). 
2) We recognize that an SREQ 1s exerted at certain 
points in the nainfrane (e.g., interpreter loop). 


Bsa? 








HP-71 Softuare IDS - Entry Point and Poll Interfaces 
General Purpose Utilities 


Entry: 

Hex Mode 
Exit: 

Hex Mode 
Calls: RCBTSR, CKTMOU, DSPUPD, ALMSRV , PUTPND, FPOLL 
Uses....... 

A,B,C,0,P,00,01,32 nibs at SCRTICH 

Stk lvls: 4 
NOTE: 


This code saves the status bits in the user-status 
Save area used by the display code. 


Algorithn: 

Set BAT annunciator if low battery 

Save caller’s status bits in display status area 

If display tiner has tined out 
then update display (blina« cursor, etc.) 

Check alarn clock systen 

Clear external alarm bit in clock systen status 

If Except bit set or service request ¢till pending then 
Poll (pSREQ) 

Restore caller’s status 


Return 
History: 
Date Progranner Modification 
02/25/83 WH Added docunentation = 
10/25/83 B.S. Updated docunentation 


11.34 QUOTCK - Quote and Apostrophe Check 





Category: GENUTL File: SB&EXD:: MS 


Nane:(S) QUOTCK - Quote and Apostrophe Check 





11-38 








HP-71 Software IBS - Entry Point and Poli Interfaces 
General Purpose Utilities 


Ts 


Purpose: 
Checks 1f A(B) 1s a quote or an apostrophe 


Entry: 
= 0 

ACB) = Byte to be checked 
Exit: 

P = 0 

Carry set iff A(B) 1s a quote or an apostrophe 
Calis: None 
Uses....... 


Inclusive: C(B) 


Stk lvls: 0 
History: 
Date Prograriner Modification 
10/19/82 B.S. Added docunentation 
35 MFLG=0 - Clear MLFFLG nibble 


Category: GENUTL Fale: SC&BAT::NS 


Nane:(S) MFLG=0 - Clear MLFFLG nibble 
Nane: MFLG=K - Set MLFFLG nibole 


| 

Purpose: 
MFLG=0: Clear MLFFLG nibble 

NFLG=X: Set MLFFLG nibble 


Entry: 
MFLG=X: C(P) 1s value to be stored at MLFFLG 


Exit: 


NFLG=0: C(A}=0 
(NLFFLG) = Specified value 
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Calls: None 


Inclusive: D1,(MLFFLG), and MFLG=0 entry also uses C(A) 


Sth lvis: 0 


History: 
Date Progranner Modification 
11/06/83 BS Added docunentation 


14.36  PSHSTK - Push Stack 
Category: GENUTL File: SG&EXC:: MS 


Narie:(S) PSHSTK - Push Stack 
Nane:(S) PSHSTL - Push Stack 


Purpose: Moves high nmenory to lower nenory to allow ’push’ 
onto GOSUB, VARIABLE, or sone other stack. 


Push address on stack mith NO LEEWAY check 


Entry: 
DO pointer to top of stack pointer 
B(A)= Ant menory needs to ’open up’. 
PSHSTR: 
P=n-1 where n=# pointers to be adjusted 
LEEWAY will ALWAYS be checked 
PSHSTL: 
C(O) = # pointers to be adjusted 
P= non-zero if LEEWAY not to be checked 


Exit: Carry Clear: 
B(A) 1s preserved 
P=0 
Di points to new top of stack 
RAN pointers are adjusted 
Error Exit 
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Calls: 
Uses: 


Detail: 


Insufficient Menory to open stack 
MOVEUT, PTRAD1, MENCL+ 
R, C{A), D(A}, DO, D1 


Usefulness of this routine could be extended 
to variable creation, CALL/SUB. etc 


GOSUB required C(S) not be altered. 


Preserves math stack. 


Stack lvls: 1 


History: 


07/04/82 
08/10/82 
09/3/82 
10/12/82 


10/29/82 


02/15/83 


Progranner Modifications 

S.W Added dacunentation 

S.W. Modified to preserve math stk 

JP Added NENCL+ call, renoved R1 

S.W Changed 0=C B to A field. 
Replaced MEMCL+ wath KMENCK. 

S.W. Took out KMENCK call, due to 
subroutine levels - PSHSTK 
to be used by GOSUB/GOSUB 

JP: Added PSHSTL entry for no 
LEEWAY check 


11.37 PSHGSB - Push address on GOSUB Stk 


Category: GENUTL File: SGREXC::MS 


Nane:(S) 
Nane: (S$) 
Narie: 6S) 


Purpose: 


PSHGSB - Push address on GOSUB Stk 
PSHUPD - Push address on GOSUB Stk 
PSHNCR - Push address on GOSUB Stk 


| Fush address and return type nibble on GOSUB stack 
| Rllows adaress to be updated uhen renory moves 
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Rllows mnicracode GOSUB/RETURN to werk 


Entry: 
A(A) = Address to push on stack 
PSHNCR: Sets return type for Microcode return 
PSHUPD: Sets up as Update address, P must be 0. 
PSHGSB:  C(S) = Return type (see GUSUB) 


Exit: 

Carry Clear: 
P = 0 (not necessary for PSHGSB) 
D1 @ Return type nibble on stack 
C{[O] = Return type 
C(5-1]=Address just pushed on stack 

Error Exit: 
Insufficient Merory to open stack 


Calls: PSHSTK 


Exclusive: C(W),D(S),P,D 
Inclusive: A-D,D0,D1 


Stk lvls: 3 
Algora thr: 


PSHMCR: C(S) <-- Microcode Return type 

PSHUPD: C(S) <-- Update Address Return type 

PSHGSB: Save Return Type D(S) <-- C(S) 
Save Return address on stack 
Open up GOSUB stack by 6 nibbles  (PSHSTK) 
Restore address and return type 
Write return type and address to stack 
RTNCC 


History: 


Prograriner Modification 


09/30/82 Pe Added code 
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11.38  POPSTK - Pop Stack 
Category: GSENUTL File: SG&EXC:: MS 


Nane:(S) POPSTK - Pop Stack 
Narie: POPGSB - Pop Stack 
Narie:(S) POPUPD - Pop Stack 


Purpose: Deletes stack entry(ies) and adjusts pointers 
--pertains to FOR/NEXT, GOSUB, etc. 
POPGSB/POPUPD: 
Pop return address/update address off GOSUB stack 
--Reads Return Address and Return type, then deletes 


Entry: 

POPGSB: Sets C(A) and A(R) to top entry of GOSUB stack 
Reads Return type and Return address into D 
Sets P for PIRADJ 

POPSTK: (C(A} points to start of entry to delete (pop) 
A(A) points to end of entry to delete 
P set for PTRADJ 


Exit: 
POPSTK: CARRY CLEAR, P=0. 
POPGSB/POPUPD: If Carry set 
Stack was enpty, P unchanged 
Else carry clear, P=0 
D(A) = Return address 
D(S) = Return type (see RETURN) 


Woon 


If the address on the stack points into a 
file and that file 1s purged before the 
address 1S popped off, the return address 
-Will be ZERO. 
This can happen if Expression Execute is 
called, and a multi-line user defined 
issues a PURGE. 
Calling routines may need to check for this. 
via PTRADI 
Calls: MOVED3, RTNSTK 


Uses: A, B(O-5), C, D1, DO 
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If POPGSB/POPUPD uses D(id) 
B(S) must be preserved for POLL 


Detail: Could also be useful to variable elimination 
(e.g. DESTROY) or to eliminating SUB environnents 
Must inrediately precede PTRAD1 


If the return address on the stack points into a 
file and that file 1s purged before the address 1s 
1s popped off, this address will be ZERO. 


This can happen if Expression Execute 1s called and 
a user defined function issues a PURGE. 

A calling routine may have to check this is EXPEXC 
can be called in the interin. 


Stack Lvis: 1 


History: 
Date Progranner Modifications 
07/04/82 S.W Added docunentation 
08/10/82 = S.W. Modified to preserve nath stk 
10/06/82 = J.P. Added POPGSB/POPUPD entries 
10/07/82 NM Added stack-enpty check 
02/10/83 J.P. Use only B(O-5) to pres B(S) 


11.39 RELINP - Relative Jump Fron (D1) 
Category: GENUTL File: SG&LOC:: MS 


Nane:(S) RELINP - Relative Junp Fron (D1) 





Purpose: 
RELINP reads the address pointed to by Gi, adds it to 
Di, then does a direct jump to the resulting address. 


The nainfrane uses RELJNP to junp to a deconpile 
routine. 
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Entry: 
DI points to relative address 


Exit: 
D1 = R1 on entry 
A(5-0) = 6 nibbles pointed to by D1 
C=A 
PC 1s at resulting address 


Calls: none 
Uses: A,C,D1 
Stk lvls: 9 
Detail: 


When the mainframe uses RELIMP to deconpile a 
statenent, on entry D1 points to the deconpile address 
and Rt contains the pointer into the token stream, 1e 
R1 points past the begin BASIC token. So on exit fron 
RELINP (upon entry to the decompile routine), D1 points 
past the begin BASIC token and A contains the first s1x 
tokenized nibbles that follow. 


History: 
Date Progranner Modification 
11/08/83 S.W. Added docunentation header 


11.40 EQLXCK - End of Stnt check 


Category: GENUTL File: SOSLOC::MS 


Nane:(S) EQLXCK - End of Stnt check 
Name:(S) EOLDC - End of Stnt check 


Purpose: Checks for staterient terminator in the forn of 
t' or t@ or tEOL 


Entry: P=0 


r 
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2 entry points: 
1) EQLDC - D1 at token in question 
2) EQLXCK ~ ALB) contains token 
Exit: CARRY CLR=> No end of statenent token found 


Calls: none 


Stack ivls: 0 


Uses: C(B) 
History: 
Date Progranner Modifications 
01/07/82 S$... Tiproved eocunentation 
07/28/82 = SLM. Eliminated ELSE check 


-41  BUTNBS - Output niboles 


Category: GENUTL File: SG&LDC:: MS 


Nane:(S) QUINBS - Gutput nibbles 
Nane:(S) OUINBC - OQutput nibbles 
Nane:(S) QUIC15 - Qutput nibbles 


Purpose: Outputs specified number of nibbles fron A or 
C to RAN pointed to by DO 


Entry: D(R) points to AVMENE 
DO positioned properly 
3 entry paints: 
1) QUTINBS - P set for WP write 
Source in A 
2) QUINBC - sare as above except source in C 
3) OQUTC15 - Outputs entire uord fron C 


Exit: P=0, Carry clear, DO updated, D(R) preserved 


Calls: none 
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Stack lvls: 0 


Uses: C, A (all entry points except GUTNBS), P, DO 
History: 

Date Prograrner Modifications 
07/08/82 Su. Inproved docunentation 


Sau. 
10/18/82  S.W. Deleted OUTNC+, OUTNB+ entry 
points; adaed OUTC15 


11.42 MFWRN  - Warning/nessage driver 
Category: GENUTL File: TI&ERD: 2 MS 
Nane:(S) MNFWRN - Warning/nessage driver 


S 
Nanie:(S) MFWRNQ - Warning/ressage driver 
Nane:(S) MFWRQ8 - Warning/nessage driver 


Purpose: 
Display warnings and messages fron standard nessaqge 
tables. 


Entry: 


P= 1xxx Sound Beep 
P= x1xx Do not store ERRN 


P= xx1x  Pisplay message only (Else display 
“MRED or “URN Li" prefix, too) 


F= xxxt Display message without setting delay. 
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biG 
| ¢ 
| 


2}= LEX IDW (hex) (nainfrare IDH = 00) 


(3- 
(B)= message ID nunber (hex) 


(3)-------------+---- 

| If desired message has text insertion points: 
R2 register: source of text insertion. 
C(14): type of insertion. 
£(13): how many characters in insertion. 


eer 


RZ 
= actua] output characters 1f C(14)= Ixxx 
= address of output characters 1f C(14)= Oxxx 
= additionally, if C(14)= 0000, upper byte 
of RZ contains control nibbles. 
((14) 


1xxx use contents of R2 register as output 
Oxxx use address in R2 register to find output 


xO0OO = Qutput 1s already in ASCII forn 


Digit output (digits can be Hex or Dec): 
x001 Digit output-- replace leading 0’s u/blanks 
x010 git output-- don’t suppress leading 0’s 
xO11 Digit output-- suppress leading 0’s 


Hex-to-bec conversions always generate 
decinal nurbers with 7? digits: 
x100  Hex-to-Dec: suppress up to 3 leading 0 
x101  Hex-to-Dec: suppress up to 4 leading 0 
x110 Hex-to-Dec: suppress up to 5 leading 0 
x111  Hex-to-Dec: suppress up to 6 leading 0 


, 
> 
, 
, 


s 
s 
$ 
s 


For C(i4)= 1000 ("ASCII output is in R2") 
= Hnibbles-1 to be output. Hence the 
Hnibs MUST be even!!; C(13) odd. E.g., 
af 5 chars for output, C(13)=9. 


For C(14)= xOxx (hex or dec digit output) 


C(13)= H#digits-1 to be output, hence 
no nore than 16, 


| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
! 
| 
| 
| 
| 
i 
! 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


For C(14)= xixx (hex-to-dec conversion) 
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C(13)= #digits-1 in number to be converted 
Max hex value for conversion is FFFFF 
(1048575 dec), hence C(13) nust be 4 
or less. 


For C(14)= 0000 ("ASCII output from DAT1") 
C(i3}= O: no output 

1: Send out specified number of 
character; R2(15-14)= &chars-1. 

2: Send out chars until ASCII ternin- 
ator is found. ASCII terninator 
is passed in R2(15-14) (usually 
an FF tertinator, but any byte 
value can be used). 


Entry for MFWRO8: 
Sane as for MFWRNU, except that P will be set 
explicitly to 8. Processing then fails into MFWRNQ. 


Exit: 
P = 0 
Carry set 
Calls: POLL, SFlag?, KILLKY, fCARLC?, CRLFND, UPDCRL, 
Sflagl, TBMSID, DOASCI, TBMSTX, A=CUR, AVS=C, 
AVS20S, CHIRP, XDELRY, CRLFSD, BLDDSP, MFLG=x, 
R<RST2, RST2<R 
Uses....... 


Exclusive: ACW), BW), CCW), DCW), P, DO, D1, RO 
Re (only if text insertion; otherwise not used) 
Inclusive: Sane 


stk lvis: 2 


NOTE: 
If the itessage constant 1s eMEM (18 hex}, the nessage 
routines wll autotratacally invoke MEMERR, and issue 
an Insufficient Menory error. 


Detail: 
Example of text insertion: 
Message #88 1m the mainframe is TFN URN L{5}:46}, 
where (5) rndicates an insertion point for a line ae 
number, and {6} indicates an indirect refererice to 
another nessage If we wanted to display 
TEM WRN L148: Syntax (Syntax is nsg #4Bhex) 
He could pass the line number in RZ with the 
appropriate contro] codes in C (x=don’t care): 


11-49 Y L4 


HP-71 Softua 
General Purp 


Or, 


Or,. 


Or,. 


History: 


06/29/82 
01/27/83 
03/04/83 
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R2= xxxxxxx004Bx0145 
0145= dec digits for output 
OO4B= indirect wessage nunber 


C= xB3xxxxxxxxx0088 
0088= desired warning nessage 
3=Hdigits-1 to be output 
B=ixxx: use contents of R2 
x011: digit output, suppress leading 0’s 


alternatively, 
C= XxxXXXxXKXOO4Baaaaa 
aaaaa= address to find digits 
0O04B= indirect message number 


C= x33xxxxxxxxx0088 
0O88= desired warning message 
3=#digits-1 to be output 
3=Oxxx: use address in R2 
x011: digit output, suppress leading 0’s 


R2= KXXXKXKOOG BX KX 1 
Sthex=145 decinal 
OO4H= indirect message nunber 


C= xFYXXKXxxXxKxKxxX0088 
OO88= desired warning nessage 
1=Hdigits-1 to be converted to decinal 
F=1xxx: use contents of B register 
x111: suppress up to 6 leading 0’s 


R2= O3xxxxx004Baaaaa 
aaaaa= address to find ASCII output 
004B=indirect message nunber 
O03=#characters-1 to be output 


C= xKO1Kxxxxxxxx0088 
0088= desired warning nessage 
1= output nunber of chars found in RO015-14) 
O=output 18 1n ASCII form already, resides at 
address found in Re. 


Progranner Modification 

AB documentation 

NB Poll error handle, XN=0 suppress 
MB Saved 3 RSTK levels 
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04/11/83 MB Added KILLKY call. 


11.43 MFERR* -~- Error nessage driver 
Category: GENUTL File: TI&ERD::MS 


Nane:(S) MFERR* ~- Error nessage driver 
Nane: MFERR- - Error message driver 


Purpose: 
Display error messages fron standard nessage tables. 


| 

} P= Ixxx This 1s a Parse error (1.e., re- 

| display input line u/cursor backup) 
| x1Xxx Do not store ERRN 

| (Else store ERRN and ERRL) 

| xx1x Display msg only (Else display 

| “ERR: " or "ERR L:", too) 

| bitO not used at present (**) 

| 


= message ID nunder in Hex. 
)= LEX IDH# in Hex (=00 for mainframe tbl) 


3 
| 
| If P=1txxx (parse error): 

} INBS points to first char of INput Buffer, sath 
| a 3 nibble length field preceding it. 

| 
| 


Di points to char in input buffer u/error 
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| ACR)= Address of prorpt string for input 

| re-display (prompt rust be enclosed in 
| delimiters, both sides. Delimiters 

| can be any byte vaiue. £.9., prompt 

| string for an editor might look 

| like xCnd:x , where x’s are any 

| ratching byte value. ) 

| or =O For “use BASIC pronpt string" (defaults 
| to the prompt string 3°23, uhere the 

| 3’s are the natching delimiters). 

| 


(**) BitO of the P register is reserved for future 
applications, as a way for the LEX file which 
generated the error to corimunicate with other 
LEX files; this bit can be detected during the 
pERROR poll in RO(S). The neaning of this bit 
is not yet decided. In the reantine, bitO nust=0. 


Entry for MFERR- : 
{) as £(3-0) above. 


Exit: 
P = Q 

Calls: POLL, fCALC?, CRLFND, UPDCRL, 
Sflagl, TBMSID, DOASCI, TBNSTX, A=CUR, AVS=C, 
AVS2DS, CHIRP, XDELAY, CRLFSD, BLDDSP, MFLG=xX, 
R<RSTZ2, RST2<R. Magnt junp to ONERR. 

Parse errors also call: 

CKINF-, DSPBUF, DSPCNA, DSPCHA, CURSFL, CURSRR, 
ESCSEQ 

USesS....... 

Exclusive: ACW), BW), C(W), DCW), P, DO, DI, RO 
R2 (only for MFERsp entry with text insertion; 


otherwise not used) 
S13 1s tested for: “Running progran?" 
If you’re calling this routine just for 
nessage display, watch out for S13!!! 
Available Menory (starting at AvMenSt) 1s 
also used as a building buffer for nsg. 
PARSE ERRORS also use: 
R3 (stores prompt address and #cursor-rights) 
R1, R2 (used in SENDWD) 
STMTRO (in CKINFO and SENDWD) 
Inclusive: Sane 


Stk lvls: 4 (parse errors only) 
2 (all other errors) 
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NOTE: 
Parse errors re-pronpt and rebuild the input line. The 
prompt 1s built in the display observing WIDTH. This is 
not a problern with the BASIC prompt (">"), sance it 1s 
only one character; but an external systen using a nulti- 
character pronpt should be auare that the prompt, after 
a parse error, ray be split between tuo lines. (This 
feature was incorporated to accomodate INPUT prompts. ) 


Messages are built in Available Menory, which 1s used as 
a tenporary buffer. This can cause a MEMERR; see the 
MEMERR routine for details. 


If the error message nunber at entry 1s the eMEM constant 
(18hex}, the nessage routines i111 autornatically invoke 
the MEMERR routine, and an Insufficient Meriory error wall 
result. 


Any error entering through MFERR* (includes MFERR and 
BSERR) disallous text insertion. Sone applications nay 
construct error messages which allow text insertion; if 
you want to issue these messages as errors you have 
three choices: 

1) Issue then without any text insertion (use MFERR*, 
MFERR or BSERR) 

2) Issue ther as warnings, made to look like errors 
(use MFURN) (see IDS volume I, chapter “Nessage 
Handling"). 

3) Call MFERsp entry point (see MFERsp heading). 


Detail: 
RO usage: 
FEDCBR98B765432190 


| | ++ wrng or error +- sg nunber 
| +- insert codes 
+- option flags 


Algorithn: 
(1) Put option flags in C(S). 

Save options and LEX#, nsq# in RO. 
Call POLL 
If Parse error, calculate #backups and store 
with ACA) in R3. 
Tf eN—EM constant, branch to MEMERR. 

MNFER.6 If “don't store error#” option go to (2) 
Else, store error# in ERR. 
If running progran (S13=1), store Line#. 
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(2) If running progran (S13=1), and not a warning, 
and GN ERROR in effect, branch to ONERR. 
If “tessage text only” option, go to (4) 
Build LEX ID prefix for nessage. 
Build “ERR or “ERR LY. 
If running progran (513=1), busld line#. 
Burld "3" 
(4) Build nessage text. 
Display entire nessage. 
Beep. 
Send CR, UF. 
If warning, return. 
If not parse error and S13=1, position DO 
to line# or @, return, 
(Parse error: } 
Set up CKINFO for SENDWD, send aut pronpt. 
Redisplay input line. 
Move cursor far left. 
Send cut required # of cursur-rights. 


History: 

Date Progranner Modification 
06/29/82 NB docunentation 
06/18/83 MB deleted P=xxx1 entry flag 


11.44 NMFERsp - Error Message With Text Insertion 


Category: GENUTL File: TI&ERO:: MS 


Nane:(S) MFERsp - Error Message With Text Insertion 


Purpose: 
Special entry point into error message handler, 
allowing text insertion (only in those known nessages 
which have insertion poinis). 
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| RO(S) = entry options as specified for P in MFERR* 


B)= nessage ID nunber in Hex. 
3-2): LEX IDH in Hex (=00 for nainfrane tbl) 


Text insertion: Sane as condition (3) for MFWRN. 
(See "Details" under MFWRN for examples. ) 


All other details as specified in MFERR* . 


See "NOTE", "Details" and "Algorithm entries under MFERR*. 


Detail: 
NFERsp should be called (as a subroutine) as 
follous: 

<set R2 according to text insertion options> 
«set €(14-13) according to text insert options> 
<set C(S) bits according to MFERR* ontions> 
<set £(3-O0)=nessage nunber> 
RO=C Store options, msg # in RO 
SETHEX ~ 
GOSBYL =POLL pERROR poll. 
CON(C) =pERROR 
CPEX 15 In case poll error, options. 
P= te P value for “error”, 
LCHEX OOF In case poll error... 
GOC LABEL CRY¥=poll error. 
PXM=0 Poll handled? 
GOYES LRBEL3 Yes’ Abort message, 
C=RO 
LOHEX Ff C(t2)=F for “errar" flag. 

LABEL1 GOSBVL =NFERsp 

LABEL3 P= 0 (if necessary from *XM=O 


ioe 
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ra dtleas junp, above....) 


History 
Date Progranrer Modification 
03/22/83 MB docunentation 


11.45 DOASCE - Send ASCII bytes to DATO 


Category: GENUTL File: TI&ERD: = MS 


Narie:(S) DORSCI - Send ASCII bytes to DATO 
Nare:(S) DORSC+ - Send ASCII bytes to DATO 


Purpose: 
Build a buffer of ASCII characters starting at DO; 
the ASCII characters can originate fron four types: 
1) BCD digits 
2) HEX digits 
3) nuneric conversion fron Hex-to-Dec 
4) existing ASCII bytes (or tokens} 
Output can reside in one of tuo places: 
1) in B register 
2} in DATI 


Entry: 
DO= output address (rust be less than RVMENE pointer) 


B register or D1: source of text insertion. 
C(t}: type of insertion. 
C(O): how many characters in insertion. 


B 


= actual output characters or digits 
if C(VI= xxx 

= additionally, af €(1)= 0000, upper byte 
of B contains control nibbles. 
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{xxx use contents of B register as output 
Oxxx use address in D1 to find output 


x00O Gutput as already an ASCII forn 


Digit output (digits can be Hex or Dec): 
x01  Cigit output-~ replace leading 0’s with blanks 
“010 Digit output-- don’t suppress leading 0’s 
x014 Digit output-- suppress leading 0’s 


Hex-to-Dec convereions aluays generate 
decimal numbers with ? digits: 


x100  Hex-to-Dec: suppress up to 3 leading 0’s 
x101  Hex-to-Dec: suppress up to 4 leading 0’s 
x110  Hex-to-Dec: suppress up to 5 leading 0’s 
x111. Hex-to-Dec: suppress up to 6 Jeading 0’s 
C(O) 
For C(1)= 1000 ("ASCLI output 1s in B") 

C(O)= #nibbles-1 to be output. Hence the 
Hnibs MUST be even!!; C(O) odd. E.g., 
if 5 chars for output, C(0)=9. 

For C(1)= xOxx (hex or dec digit output) 

C(O)= Hdigits-1 to be output, hence 
no nore than 16. 

For C( xixx (hex-to-dec conversion) 


}}= 
C(O}= #digits-1 in nurtber to be converted 
Max hex value for conversion is FFFFF 
(1048575 dec), hence C(O) must be 4 
or less. 


1)= OOOO ("ASCII output fron DATI") 
C(O}= O: no output 
t+: Send out specafied nunber of 
character; B(15-14)= Hchars-1. 

2: Send out chars until ASCII terrin- 
ator 1s found, ASCII terninator 
us passed in 8(15-14) (usually 
an FF terrinator, but any byte 
value can be used). 
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Entry for DORSC+: 
This entry point 1s for “ASCII output fron DATI” 
only: 
D1 points to output already in ASCII forn 
C(15-14)= &bytes to output 
DOASC+ then sets €(B)=01 for apprepriate codes. 


Exit: (May exit through MEMERR 1f not enough nenory) 
Carry clear 
Pp = 
B(A) = # bytes left in available nenory past buffer. 
DO points to FF terminator, ready for another cal. 


Calls: HEXDEC (only for hex-to-dec conversion; 
i.e., only if C(1)=x1txx) 
MOVEU3 (only for ASCII output fron DAT1; 
i.e., only if €(1)=0000) 


Uses....... 
P, ACW), BOW), CCW), 0(15-13) 
DO 

Uses 01 only if C(1)=0 (1.e., only if ASCII output 
fron DRT1; otherwise 01 not changed). And then, 
Di as only moved past source ASCII. 


Stk lvls: j 


Detail: 

Fills DATO with characters fron B register or fron DATI 
(as specified by calling routine). An FF terminator 
is placed at the end of the buffer, ready for a call 
to BF2DSP or BF2STK. 

AvtenEnd 1s checked for sufficient memory. This is 

uhy DO at entry must be less than RvMNenEnd. 


If ASCII output fron DAT1, naxinun H#characters 1s 255. 
If digit output, maxinun nunber of digits 1s 16. If 
_ASCIT fron B, naxinun nunber of characters is 8. 


If source is HEX or BCD digits, converts to ASCII 
equivalents first, for output to DATO. 


For numeric Hex-to-Dec output, conversion to BCD 1s 
performed, then converted to ASCII for output to 
DATO. 


Algorithn: 
Copy control nibs fron C to D, calculate 
#bytes in AVNEN, 
Do: 
If ASCII output, copy bytes to DATO, 
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If Hex-to-Dec, call to HEXDEC, then digit output. 

If Digit output, convert digits te ASCII and output. 
As chars are output, decrenent #bytes in AMEN. 
Terminate buffer with FF. 


History: 
Date Progranner Modification 
06/25/82 NB Docunentation 


11.46 MOVE*N - Move Meriory Up or Coun Without Ref Rd) 


Category: GENUTL File: TI8UTL:: MS 


Narie:(S) MOVE*N - Move Merory Up or Doun Without Ref Ad) 


Purpose: 
Move nenory up or down with no reference adjust. 


Entry: 
ACR} = Source address 
B(A) = Length of block to nove in nibs 
C(A) = Dest address 
Exit: 
All entry conditions 
P = 0 
Calls: MOVEDN, MOVEUN 
Uses....... 


Exclusive: A, C(R}, DO, D1 
Inclusive: A, C(A), h, D1, P 


Stk lvls: 4 
History: 


Date Progranner Modification 
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06/14/82 FH Designed and coded. 


11.47 MVMNEN - Move File Nenory W/Ref Adjust 


Category: GENUTL File: TIQUTL::MS 


Nane: MVMEM = =6- Move File Meriory W/Ref Adjust 
Nane:(S) MVMEN+ - Move File Menory W/Ref Adjust 


Purpose: 
Move nenory in a file chain up or down with reference 
adjust. Works for either MAIN or Independent RAN. 
RFADJ 15 called, and pointers MAINEN -> AVMENS and 
CURRST -> CURREN are updated if they fell into the 
block that noved. Note that if the pointer value falls 
outside the block that moved but inside the area into 
which at moved, no action is taken. If the source of 
the move 1s NOT EQUAL to the corresponding file header 
address passed in C(A), then that file header’s chain 
length 1s also adjusted. 


Entry: 

A(A) = Starting address to nove up or down. Equal 
to C{A) if adding or deleting file to/fron 
file chain. 

B(R) = Offset (dest address - source address) 

C(A) = Address of header of file containing address 
to be noved. File chain length field of the 
header will be updated to new length 1f and 
only if C(A) # A(R). If adding or deleting a 
file to or fron the chain, this address should 
point to the following file header in the file 
chain or to the end of the chain. 

P = 0 

MVAEN: 

D(S) = Device code for nenory device 

D(B) = Port nunber if port device 

D(7-2) = Nibs 8-3 of port’s configuration table entry 

MVMEM+: 


D entry state will be computed fron C(R) 
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Exit: 
RO = ACA) entry: starting address of nove 
R2 = (€(A) entry: start of file header 
B(R) = Entry state 
P = 0 


Carry clear: 
Meriory moved and references adjusted 


Carry set: 
C(3-0) = Error code if error occurred: 
eMEN - Insufficient Menory 
eILACS - Illegal Access (1f ROM or EPRON) 
Calls: LOCADR, FLADDR, RMENCH, MOVE*N, ADJREF 
Uses....... 
Exclusive: &,B,C,D,D00,B1,RO,R1,R2 
Inclusive: A,8,C,D,00,D1,RO,R1,R2, SCRICH(4-0) 
Stk ivls: 3 
NOTE: 


NO CHECK IS MADE to verify that the starting address 
actually falls within a file chain or uhether the port 
specified corresponds to the specified address. 


Algorithn: 
MVNEN+ : 
Conpute nenory device info 
MVNEM 
If nove 1s mesory expansion then 
Check nenory (return if error) 
If source # file header start then 
Update chain length 
Hove menory 
Adjust references 


History: 
Date Progranner Modification 
06/09/82 FH Desiqned and coded. 
SW Check for ROM file 
02/15/83 FH Packed, updated docunentation 
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1 CHEDIT - Character Editor 
Category: KEYUTL File: MNSEDS MS 


Nane:(S) CHEDIT - Character Editor 


Purpose: 
Accepts keyboard input and edits line in display. 


Entry: 
P=0, Hexnode 


Exit: 
P=Q 
If carry set then A(A)=Function code. 
If carry clear then CHEDIT was terminated by an 
inmediate execute key. R3(R)=Definition length. 
D1 points to first char of definition. 


Calls: CHEDEX, CHROUT, DSPCHA, DSPCHR, DSPCL?, DSPSPC, 
KEYRD, TBLINC, WRITOS, WRITE, bf2dsp. 
Uses: 
R,B,C,D,P,00,01,RO,R3,ST,DEFADR,USRSTA, 32 nibs at 
SCRICH. 


stk lvls: 6 


Detail: 
This subroutine inplenents a character editor which 
accepts keyboard input and edits display as needed 
until a key 1s entered which 1s not rieaningful in 
character edit node. The keycode of the terminator 
1s returned in the A register. The following keys 
are terrinators: 


ACA) Key  Functior. 


? 
Ye- 
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13 -- 38 -- EndLine 

14 -- 43 -- Attention 

15 -- 46 -~ RUN key 

16 --112 -- CONTinue key 

17 --102 -- SST key 

18 -- 50 -- Cursor up 

19 -- 51 -- Cursor down 

20 --162 -- Cursor to top 

21 --163 -- Cursor to botton 
22 --155 -- g Attention 

23 --111 -- CALC mode key 

24 -- 99 -- OFF key 

25 --164 -- g Endline (Crid Stack) 


Although these keycodes nap to the sare values as 
certain contre] keys (ctrl-M through ctrl-Y}, hitting 
the CTRL sequence followed by a key ial! NOT be 
interpreted as one of these terminators with the 
exception of CTRL-M. They will simply be put into the 
display as funny-looking characters. 


History: 

Date Progranrier Modification 
06/23/82 BS Updated docunentation 
11/05/82 NM Reurote 

12.2 KEYRD - Read A Key 


Category: KEYUTL File: MN&ED:: MS 


Nane:(S) KEYRD - Read A Key 


Purpose: 
Read a hey and return a pointer to its expanded value. 


Entry: 
HEX rode. 
fLRPTO and last position in keybuffer contain 
information necessary for repeating keys to work. 
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Exit: 
P=0,. 
DEFHOR contains pointer to expanded value: 
DEFADR: Length of string in bytes. 
DLE AUR+2: Xey type: 

Q = Single ASCII character. Includes 
control characters 0-31, which 
should usually cause sone action 
in the editor calling KEYRD. 


1 = ASCII control character. Must 
subtract #40 from the 1-byte def- 
inition we are pointing to. These 
characters shouid be interpreted as 
text, and should not cause any 
special action in the editor. 


2 = User-defined key; Terminating, 
4 = User-defined key; Non-terninating,. 
6 = User-defined key; Non-displaying. 


8-F = LEX entry with lower 3 bits as 
follcus: 
bit 0: Parenthesis needed. 
tit 1: Trailing space needed. 
bit 2: Leading space needed. 
(spaces & paren not included in 
string length field) 


DEFADR+3: Address of text. 


Calls: ALMSRV, ASLWS, BLDDSP, CSLU3, FINDA), FLIPO, 
FLIFCS, FPOLL, GETDEF, KEYTYP, MTADDR, POPBUF, 
RPTKY, SETTMO, SFlagl, SLEEP, Sflag?, VWFC-2, 
WIPOUT, cksreq, range, sflagt, usrsta. 


USPS. sc... 
A,B,C,0,P,00,D1,R3,USRSTR (for holding ST), 
BEFADR (for defination), 32 nibs at SCRICH. 
Stk Jvls: 5 
Algorithr: 


KEYRO: Build display. 
KEYR50: Perform UTKY fastpoll. 
If nardled then goto KEYR63. 
Check for repeating keys (RPTKY). 
If we fave a repeating key then goto KEYR?2. 
Build display. 
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KEYRb6O: 


KEYRE6S: 


KEYR 70: 
KEYR?2: 


VIEWUN, 


KEYR?5,; 


KEYR80: 


KEYRSO; 
KEY1G: 


KEY110: 


Set 10-minute timeout (SETTNO). 

Go to light sleep (SLEEP). 

Tf key in buffer then goto KEYR70, 

if 10-minute timeout not expired then goto KEYR60 
else return OFF-key definition. 

Set up registers after poll. 

Goto KEYR?2. 

Pop key# from buffer. 

Put key# and logical keycode in 20. 

Perform KYDF fastpoll. 

If handled then 1f SO0=0 (not-returning-def inition) 
then goto KEYR5O else return. 

lf VIEW flag is clear then goto KEYR75, 

lear VIEW fiag. 

Get hey defanitien: if none then goto VIEWUN, 

drite definition to LOD. 

Goto VIEWIO. 

Write “Unassigned” to LOB. 

Loop until keys up (VMFC-2). 

Goto KEYRES, 

If CTRL fiag clear then goto KEYR80. 

If keycode not in CIRi’ able ranae then goto 
KEYR&O, 

Return CURL key definition. 

If USRX flag clear then goto KEYR90. 

Clear USRX flag. 

Toggle USER flag (carry reflects old state). 

voto KEY100. 

Carry := USER flag. 

If carry clear (not USER) then goto KEY110. 

Fetch key redefinition. If non-existent then 
goto KEY110, 

Return redefined key definition. 

RSTK=KEY120 (return address 1m case we do 
internal processing}. 

{start of internal processing jump table} 

Uf keycode = LC key then goto LOWERC. 

Tf keycode = USER key then gota USERK. 

If keycode = CTRL key then gato CTRL. 


a“ u uy tt On 


If keycode = VIEW key then gota VIEWK. 
If keycode = tenp-user key then gato USERX. 
If keycode = Last-err key then goto lerrn. 


{end of anternal processing junp table}. 

Pop RSTk. 

If keycode in range cf typing aids then goto 
NEWTOR, 

If Lt flaq set then flip case 1f appropriate 
CP LEPES hi 

iwe have 2 simple t-char definition} 

Lach up rey definition in KEYCOD table and return 
definition. 





AW 
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KEY120: {we have finished internal processing} 
If kheybuffer enpty then zero out last entry in 
keybuffer to disable repeating key. 
Goto KEYRSO. 
NEWTOK: Find typing aid definition (MTADDR). 
Return definition. « 


History: 
Date Prograrnner Modification 
11/02/82 NM Began to urite. 
12.3. -LINE - Delete Through End Of Line 


Category: KEYUTL File: MN&ED::NS 


Nane:(S) -LINE ~ Delete Through End Of Line 


Purpose: 
Send an ESC K to display to delete through end of line 


Entry: 

P = Q 
Exit: 

P = 0 
Calls: ESCSEQ 
Uses....... 


Exclusive: C(B) 
Inclusive: ACW), BOW), CCH), DCW), 00,01 
Stk lvis: 4 
History: 
Date Progranner Modification 
O7/16/82 BS Added documentation 
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12.4 RPTIKY - Check For Repeating Keys 


Natie: 


Category: KEYUTL File: MN&SEDIIMS 


(S) RPTKY  - Check For Repeating Keys 


Purpose: 


Check for repeating keys. 


Entry: 


Exit: 


Stk 1 


Histo 


P=0. 

HEX node. 

The last position of the keybuffer contains the key# 
to look for. 

Systen flag f1RPTD indicates whether the key has begun 
repeating yet. 

User status bits have been saved into DSPSTA. 


Carry clear if: Key cores up before repeat interval. 
Keybuffer non-enpty. 
No key in last position of keybuffer. 

Carry set indicates that a repeat should be done. 

Key# as in B[A). 

Flag fFIRPTO = 1 iff carry set. 

P=0. 

TIMER? has been reset to .5 sec. 

User status bits have NOT been restored to ST. 


CKSREQ, DEBNCE, IDIVAR, TMRRST, WRITMI, Sflag?, 
SFiagl, SFlagS, usrsta. 

—- A,8,0,D,?,00,D1, ST 

vis: 3 

ry: 

te Progranner Modification 
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Category: KEYUTL File: SB&CMD::mS 


Nane:(S) CMDIST - Set corimand stack pointer to Ist cnd 
Entry: 
None 
Exit: 
D1 points to CMDPTR 
C(A)=0 
Calls: None 
Uses....... 


Exclusive: C{A) 


Stk lvls: 0 
History: 
Date Progrannmer Modification 
07/28/83 B.S. Added docunentation = 


11/04/82 AM Wrote. 
42.5 CMDIST - Set connand stack pointer to 1st cnd 


Category: KEYUTL File: SB&CMD:: MS 


12.6 cCADSOO - Display Crd Stack Entry 
| 
| 
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Nane: CHDSOO =6- «(Display Crud Stack Entry 
Narie: CMNDS1O ~- Display Crd Stack Entry 
Nane:(S) CMDS2O - Display Crd Stack Entry 


Purpose: 


CADSOO - Initializes to first connand stack entry then 


CMDS1O - Puts up connand stack prompt then 
CMDS20 - Puts up command stack entry and noves cursor 
to far left. 
Entry: 
Pp = 0 


CADS1O and CMDS20 require that CMDPTR be set to specify 


uhich connand should be displayed. 


Exit: 
p = Q 
Calis: BF 2DSP,CMOF ND, OSPCNA, CURSFL,CMDIST 
Uses. ...... 
Exclusive: 01,C(98), ACW) 
Inclusive: BO,D1,8,8,C,0 
Stk Jvis: 5 
History: 
Date Progranner Modification 
07/28/83 B.S. Added docunentation 


12.7? CMOFND - Find Nth Cormand Stack Entry 


Category: KEYUTL File: SB&CMD::MS 


Nane:(S) CADFND - Fand Nth Command Stack Entry 


Purpose: 
Finds the conmand stack entry indicated by CMDPTR 


Entry: 


12-8 
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CNOPIR 1s nunber of entry to find (0-->farst,F-->15th) 


Exit: 
D1 points to start of cnd stack entry (at length field) 


Calls: None 


US@S.....0. 
Inclusive: 04,P(W),C(8) 


Stk ivis: 9 


Detail: 
This routine sta:ts with the newest command (pointed to 
by RANBFR} and chains up stack toward the oldest entry 
until the specified entry is reached. 


History: 
Date Programmer Modification 
07/28/83 B.S. Added docunentation 


8 CMDINT - Recalls CADPTK and NARCKD 


Category: KEYUTL File: SB&EMD: > mS 


Nane:(S) CMDINI - Recalls CMAPIR and MAXCND 


Purpose: 
Recall CMDPTR and MAXCND to A(D} and C(O) 


Entry: 
None 
Exit: 
ACO} = (CMBPIR) 
C(O) = (MRKCND) 
Calls: None 
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SOS soy aya 
Inclusive: 01,C(0),A(O} 
Stk lvis: 4 
History: 
Date Progranuer 


97/28/83 B.S. 


12.9 SCRLLR - Scroll Lef 


Category: KEYUTL 


Nane:(S) SCRLLR - Scrol 


Purpose: 
Watch for scroll key 


Entry: 
P 


Exit: 


= 
ACB) contains keycua 


Calls: RAUNSRV, BLOODS 
GETSTR, POPBU 
SLEEP, USRSIR 


Exclusive: 
Inclusive: ACH), B(WI, CC! 


Stk ivis: § 


Detarl: 
Sleeps and watches f 
buffer and causes th 
appropriately. Rout 


Point and Poll Interfaces 


Modification 


Added docunentaticn 


t and Right 


File: SB&DSP:.MS 


1 Left and Right 


s and perforn disslay serell 


e that is first in key buffer 


P, BLELCD, CKSREQ, Dt=FC, FINDDO, 
Py RE thy SCRLOO, -SETEO, SETThO, 


D(H), 00,05 


or scrolling key in the key 
e display ic respond 
ime exits mben a key 1s found 
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in buffer that isn’t a scrolling key or when 
display tiner tines out. 
History: 


Date Prograrimer Modification 


10/19/32 B.S. Updated docurientation 
O7/18/85 B.S. Willi not tine out if a progran 
is running 


12.10 rO&8l  - State table for F & G shifted heys 


Category: KEYUTL File: SB&FGT::NS 


Nane:(S) FGSTBL - State table for F &G shifted keys 
Purpose: 
This table defines a state machine used to deternine 
how to process f and g shifted keys 


Entry: 
Do not enter 


Detail: 


The state tachine has 7 :nout bits and 4 output bits. 


The seven input bits are as follons 
Bit @ fF key currently down 
Bit 5 G key currently doun 


Pit 4 Sone ran-FG key newly down 
Bit 3° 9 annunciator on 

Bit 2 f annunciator on 

Bit 1 Ghost bit 


fit 6 F or G key was doun during last key scan 
The ghost bit 1s used ta indicate that an f or g 
shift has been perforred but the annunciator was 
left un because the corresponding key was still 
dain. 

Tne lower 4 bits are stored between key scans 

in the display KAM nibble that contains the f and 
@ ampunciators. The lower tuo bits do not affect 


eee 
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the disnlav since there are no ammunciators in the 
LCD to correspond to these bite. 

These ? bits forn an offset anta the table 

uhich gives the new “state” af the state rachine 
and is stared bach into display nenory, If 

bit 4 15 set but bits 5 and 6 are clear then 

all bits should be cleared following putting the 
Foor g modified key codes in the buffer. 


History: 
Date Progranner Modification 
10/18/89 B.S, Updated docunentation 


12.11 KEYCOD - Keycode Map 


Category: KEYUTL File: SB&KCH: sMS 


Mame: (S}) KEYCOD - Keycode Nap 


Purpose: Systen keycode nap. Mags keys to their 
definition 


Entry: 
No not enter 


History: 


Date Progranner Modification 


41709783 B.S. Hdded docunentation 


— 
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12.12 DEBNCE - Debounce and scan keyboard 


Category: KEYUTL File: SB&KEY::NS$ 


Name: (S) DEBNCE - Debcunce and scan keyboard 
Nane:(S) KEYSCN - Scan keyboard 
Purpose: 


Scans keyboard and puts all neu keys in key buffer 


Entry: 
Exit: 
P = 0 
DO=(5) =DISINT {except for WARMST exit) 
Calls: None 
Uses....... 


Inclusive: ACH), BGd) C6) 00 
Stk Ivils: 9 


Detail: 
The keyboard 1s scanned and a bit map of all keys 
down 1s nade. If the number of keys doun (not 
counting the ON key 1s greater than 3 then no change 
is rade to the bit map or key buffer and KEYSCN 
returns limediately. The map 1% conpared to the nap 
that was nade the last tine the routine was called. 
The new bit map is saved for the next call. All keys 
that have gone down since the last call (up to 7 new 
keys) are added to the key buffer «space permitting}. 
The logical keycodes for unshifted keys that are 
generated and stored in the buffer are as follous: 


barn tend ee tern te teen tn ee bee be bb me bee tenn 
CO TE eed eR ieee hee Se le ged 3 et ae ol 
| O1] O2} O3] 041 GE] OB] O7] O8] O9[ OA] OB] OC! OBI OF} 
tenet nn ben be ben nde ee bet rn ten bee dn cbt ete nnd 
ae ey ae ae eae ae a ee | 4 See Ae 
| OF] 10! 111 rel 13) 14] 35! 16) 47] 18) 194] mt 1B iC] 
pore tee nto bebe etn be be de bee de be ete eden cd 
PZIXICIVIieINini ci) | EA eae 
{ 1D] TEE TFL 20] 21] 221 23) 24} eo leo) 27) 28] 29) 2A 
pane tent eden pen gente bee tent 26 ten tee eben tent 


tesa 
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| ON] f | QgIRUN] Lf{ RtISPC] Unf Dnt |Ot. f=ztes 
| 2Bj | | 2&1 2F] 30) 31] 32! 33] | 35] 361 37] 38] 


tan nde re dene penn ge te bet nt bebe be bende nt 


F shifted keys have 56 added to these values. 
Gb shifted keys have !10 added to these values. 


The f and g keys thenselves are never put in the 
buffer. 


A state machine is used to control turning on and off 
of the f and g anmunciators. See docurnentation on 
FOTBL for further details. 


The key buffer looks iike this: 


1 gs 9A Se oe FB BIO ie Ve ae 2 
tot nti nde tan tan bee be en be mt be nt nb bee te gen oe eee 4 
a ae 


fate bmn tint nt tb nn te de be ge de ten tee be ene ee et 


nN A ™ 


| +---- KEYBUF {points to farst of 15 | 
| bytes of key buffer) | 
+---- KEYPTR (points to nibble that | 
tells how many keycsdes | 

buffer contains) | 

KFYSRV (pcints to 14 nibbles tiat | 

hald previous key bit map) --+ 


History: 
Date Progranner Modification 


07/16/82 B.S. Updated docunentation 
11/16/82 8.8. lindated exit conditions 


42.13 POPBUF - Pop Key Huffer 


Category: KEYUTL File:  SBOREY:: MS 


Narte:(S} PEPBUF - Pop Key Buffer 
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Purpose: 

Pops a key fron keyboard buffer into B(A) 
Entry: 
Exit: 

Carry set ==> Key buffer was enpty 


clear ==> B(A) contains keycode 
Key# just popped has been copied to last position 
in keybuffer. 


Calis: None 


Inclusive: C(W),B(A),D0O 


Stk lvls: 0 


Detail: 
Disables interrupts and pops a key fron buffer. 
History: 
Date Progranner Modification 
07/16/82 B.S. Updated docunentation = 


11/04/82 WM Add copy of last key to key14 slot 
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+ me ee ee ee ee we ee ee BH RO we ee + wee ee ee ee ee ee we ee + 
| | | 
| MATH - Systern Math Functions | CHAPTER 13 | 
| | | 
tenn nn ene ne ree enn ne ene een ene e $n nnn nn nee nee + 
13.1 ABDONE - Add One 

Category: MATH File: JT&ATH:: MS 


Nane:(S) ADDONE - Add Gne 
Nane:(S) SUBGNE - Subtract One 
Purpose: 


To compute X+1 & X-1 for X an internal nunber. 


Entry: 
Standard floating point math input with (R,B)=X. 
SINFRD(s10)&SNEGRD(s11), rounding nodes, are consulted 
only if X+#1=0 (or X-1=0) in which case the result nay 
be +0 or -O depending on the node.(see ADI5s) 


Exit: 
Standard floating point math output. 
Calls: Goes to ADISs . 
Uses....... 
Inclusive: P; A,8,C,D; 
HD. ST. [SB]; 
Stk lvls: 9 
NOTE: 


Can raise no XM=1 xcption . (clrs SB but not XM) 
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13. 


13. 


2 1fk15 - V/X 
Category: MATH File: JT&NTH:: MS 


Nane:(S) 1/15  - 1/X 


Purpose: 
To compute 1/x 


Entry: 
Standard floating point math input. 


Exit: 
Standard floating point nath output. 
Inclusive: P; A,6,€,0; 
HD.ST.[SB, XM); 
Stk lvls: 9 


NOTE: 
Goes to DVI5S (divides 1 by x ) 


3 AB2-15 - Add two 15 digit forns 


Category: MATH Fale: JT&NTH: MS 
Nane:(S) AD2-15 - Add two 15 digit forns 
Nane:(S) AD2-12 - Add two 12 digit forns 
Narie:(S) ADDF - Add for finite args only 
Nane:(S) ADISM - Add according to nodes 
Nane:(S) ADI5s - Add with XM sticky 
Purpose: 


To corpute the sun xty . 


13-2 
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Entry: 
Standard floating point math input. 
AB2-15 assures NOT(round to -Inf} (i.e. x+(-x)=+0) 
AD15s has rounding node inputs (SB cleared inside ) 
$10 & si1 set ==> rnd to -inf (i.e. xt(-x) = -O ) 
else x+(-x) = +0. 


CODE: =AD2-12 GOSUB SPLTAC 

--~- =AD2-15 ST=0  sNEGRD (st!) NO round to NEG. 
=RADISM = =KM=0 
=QD15s  SB=0 (add uses SB for result!) 


Exit: 
Standard floating point math output. 
XM=1 anplies Inf+(-Inf) 


Calls: (none) 


Uses.....05 
Inclusive: P; A,B,C,D; ST.[s11 for AN2-15 only]; 
HD.ST.[SB, XM); 


Stk lvis: 0 


NOTE: 
The main entry AD2-15 forces rnd to nearest 
(sane result except for rnd to -inf). 
Results are truncated. (e.g. 1 - 1£-100 --> 
. 999939999999999 with SB=1 ' ) 


13.4 MP2-15 - Multiply 
Category: MATH File: JT&NTH:: MS 


Nane:(S) MP2-15 - Multiply 

Nane:(S) MPISS  - Multiply without clearing SB 
Nane:(S) MULTF - Multiply for finite args only 
Nane:(S) MP1-12 - Multiply for one 12-forn 
Narie:(S) MP2-12 ~ Multiply for tuo 12-forns 
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13. 


Purpose: 
To compute x%y 


Entry: 
Standard floating point nath input. 
MULTF & MP15S: SB & XM are not cleared on entry. 


CODE: =MP2-12 GOSUB SPLITA 
----  =MP1-12 GOSUB SPLITC 
=MP2-15 SB=0 
KM=0 
=MP15S 


Exit: 
Standard floating point math output. 
XMN=1 anplies O*Inf 


Calls: (none) 


Inclusive: P; A,B,C,D; 
HD.ST.{SB, XM); 


Stk lvls: 0 


NOTE: 
Reg. D has the 16 digit nant. of x*y if D(S)#O, 
icant of Inf & NaN is not put into D,but D(S)=0 here) 
Results are truncated to 15 digits. 
Unfortunately SB=1 when XM=1 on exit. (This is true for 
Host math routines. ) 


5 DV2-15 - Divide 


Category: MATH File: JT&MTH::MS 


Nane:(S) DV2-15 - Divide 
Nane:(S) DIVF - Divide for finite args only 
Name:(S) DVI5S - Davide without clearing SB 


13-4 
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aos 


Nare:(S) DVI5N - Divide (sane as DV2-15) 
Narie:(S) DV2-12 - Divide for tuo 12-forns 


Purpose: 
To compute y/x 


Entry: 
Standard floating point rath input. 


CODE: =D¥2-12 GOSUB SPLTAC 


=P¥2-15 
=DV15" xM=0 
SB=0 
=DV15S 
Exit: 
Standard floating point math output. 
xM=1 & P=3 implies c/O where O<|c|<Inf 
& P=4 " 0/0 or Inf /Inf 
Calls: (none) 
Uses....... 


Inclusive: P; A,B,C,D; 
HD.ST.[SB, XM}; 


Stk lvls: 90 
NOTE: 


Divides (R,B) by (C,0) . 
Results are truncated to 15 digits. 


6 SQR1iS  - Square Root 
Category: MATH File: JT&MTH: MS - 
Nane:(S} SQR15  - Square Root 
Nane:(S) SQR17. - SORT for finite argunents only 
Purpose: ro 


we 
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To conpute SQRT(x) 


Entry: 
Standard floating point nath input. 


Exit: 
Standard floating point math output. 
XM=1 inplies SQR(neg) 


Calls: (none) 


Inclusive: P; #,B,¢; 
HD.ST.{SB, XN}; 


Stk lvls: 0 


NOTE: 
Certain 15-forn inputs can exit with SB=0, even though 
the result 1s inexact! e.g, SQR(1E14+1)-->1E7 & SB=0. 
This occurs from BSR instr. before SQRW. 


13.7. INVNaN - Create IVL NaN 
Category: MATH File: JT&MTH:: MS 


Nane:(S) INVNaN - Create IVt NaN 


Purpose: 
To create an internal NaN and set XM fer IVL. 


Entry: 
C(B)=tuo nib. mnainfrane error msg code. 


Exit: 
(A,B):=NaN with B(14..11):= 4nib nsq code 
C(A)}:= 4nib nsg code for input to MESSAGE ROUTINE. 
XM:=1 (indicates xcpt’n) & P:=IVP (IV xcpt’n) 
B(XS)=9 (if an DEC MODE '). This indicates a 
15-forn INVNaN (1.e. created in math routine -- input 
NaNs from SPLITA will have F instead of 9 in B(KS)). 


13-6 
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This causes INVNaNs (and their encoded nessage) 
to be nore significant than input NaNs and thus 
will be preserved when two NaNs enter a function. 


1.e. A = COOGOOOOO0O00F 01 
B = OO0rir100000000 900 
C = ----------- O00ntr 

Calls: (none) 

Uses....... 


Inclusive: P; A,B,C(A); 
HD. ST. XM, SB); 


Stk lvls: 90 


NOTE: 
CAUTION: This routine will set SB (unfortunately). 


8 LNTH15 -  LN(14K) 
Category: MATH File: JT&MTH::MS 


Nare:(S) UN1+15 -  LN(1+X) 
Nane:(S) LN1+KF - LN(1+X) for finite args only 


Purpose: - 
To conpute In(t+x) fron x. 


Entry: 
Standard floating point math input. 


Exit: 
Standard floating point math output. 


XN=1 & P=3) implies LN{(0) 
& P=4 : LN(negative) 


Calis: ABDONE, i.N15, 
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Inclusive: P; A,B,C,D; R regs [0}; ST.[s10]; 
HD. ST.{SB,x"]; 


Stk lvIs: 4 
9 LLNS ~ Natural Logarithn 

Category: MATH File: JT&MTH::MS 
Nane:(S) LN15 - Natural Logarithn 
Nare:(S) LN12 - LOG for 12-forn args. 
Nane:(S) LN - LOG entry for finite args only. 
Purpose: 


To coripute LN(x) 


Entry: 
Standard floating point math input. 


Exit: 
Standard floating peint math output. 


KM=1 & P=3 implies LN(O) 
& P=4 " LN(negative) 


Calls: SHF10, (GOES TO DV157) 
Inclusive: P; A,B,C,0; R regs [0]; ST.[10]; 


HD. ST. [SB, XM]; 
Stk lvls: { 
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13.10 EXP15  - EXP{x) (exponential fen) 
Category: MATH File: JT&MTH::MS 
Nane:(S) EXP15 - EXP(x) (exponential fen) 


Name: (S) EX-115 - EXP(x)-1  (EXPM1(x)) 
Nane:(S) DXP100 - EXP for double precision arg 


Purpose: 
To compute ex 


Entry: 
Standard floating point math input. 
{ Uses $11 to distinguish ex from [ex - 1] ) 
DXP100: finite args only; s11=0; RO=low order 
digits of double precision argunent. 


Exit: 
Standard Floating point math output for EXP15. 
EX-115 outputs ex in (A,B)&SB and [e*x - 1] an 
. i)" (SB is the sane for hoth). 


ROR) 
Calis: DBL B, SHFLAC, 1/X15S, STAB1, EXAB1, ADDONE , SUBONE 
and other local subroutines. 


Inclusive: P; A,B,C,0; R regs [0]; ST.[10,11]; 
HD. ST. {S8,XM]; 
EX-115 also uses R1. 


Stk lvls: 1 
NOTE: 


When xpon(e~x)>19999 then EXP15(x):=9.99...99&+19999 . 
When : « -19999 then EXP15(x):=9.9..99E-19999 , 
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13.11 {GTS - Log base 10 
“Category: MATH File: JT&NTH::MS 
Nane:(S) LGT15 - Log base 10 
Purpose: 


TJs 


To compute the base 10 logarithn of x. 


Entry: 
Standard floating point math input. 


Exit: 
Standard floating point math output. 


Calls: NRMLAB, EX15, LN15, LNC10+, DV1S5S, MAKE1 
Inclusive: P; A,8,C,D; R regs [0]; ST. [10]; 
HD.ST.[SB, xn]; 
Stk lvls: 2 


NOTE: 
LGT(10%n) returns n exactly. 


12 YX2-15 - Y¥ to the X power 


Category: MATH File: JT&NTH:: MS 


Nane:(S) ¥X2-15 - Y to the X power 
Nane:(S) YX2-12 - Y°X for 12-forn argunents 


Purpose: 
To compute yx 
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13% 


Entry: 
Standard floating point math input. 
si1 can be used to conpute [Y°X - 1] by entering 
later uith sit=1. 


Exit: 

Standard floating point math output. 
Calls: LN, EXP 
USES cree tog 


Inclusive: P; A,B,C,D; R regs [0,2,3]; ST.[sY=INF(s8),10,11}; 
HD.ST.[SB, XM]; 
[y*x - 1] uses R1 also. 


Stk ivis: 3 


NOTE: 
If |y*x] > 1E20000 or <1E-20000 then y*x-->1E(+/-) 2000, 
these are the internal ovf/unf thresholds. 


13. FACISS - Internal Factorial 
Category: MATH File: PM&STA::MS 


Nane: FACISS - Internal Factorial 
Narie: FACTF - Internal Factorial 
Nane:(S) FCSTRT . Internal Factorial 


Purpose: 
Computes the factorial of the 15-digit quantity in 
registers A/B. 


Entry: 
A/B -- normalized 15-digit quantity 
user modes set 
DECMODE 


Exit: 


AP/B -- factorial in 15-digit forn 
SB set if result is inexact 
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XM set if NaN created 
Carry=Set 
DECNODE 


Calis: FNPWOS, INFR15, SHFMLT 
nay exit through aornan 


Inclusive: R,B,C,0,P, SB, xm 
Stk lvls: 2 


NOTE: 
The result 1s accurate to 12 digits for all integer 
argunents 1, where Q<=1<=253. & noninteger finite 
or -Inf argument causes a NaN to be created and XM set. 


Algorithn: 
A fast integer multiply method 1s used with adjustments 
for 12137 and 167 to insure full 12-digit accuracy. 


History: 
Date Progranner Modification 
05/28/82 PM Decunented routine 
06/25/82 . Fatal errors for noninteger args 
01/06/83 : Reviewed docunentation 
01/13/83 - NaN created for invalid args 
14 uTEST = - Perform conparisons 
Category: MATH File: SM&MTH: -MS 
Nave:(S) uTEST - Perforn comparisons 
Purpose: User Real Comparisons - <, >=, etc. 
Entry: P encodes predicate (see Predicate table). 


fiza C:c (Arg’s are 12-dig forns a&c). 
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Exit: Carry=Result (Set=TRUE), P=Cell# for pair, raises 
Invalid if Unordered and predicate contains one 
of ">" or "<" but not "7". If invalid, subse- 
quent action based on user traps. 


Calls: TST12R, (Riso uRESXT - if INVALID raised) 
Riters (INC): A,B,C,D,P,xXN, SB, sIx 
Stk lvls: MAX(3,MESSG) 
Rigorithn: See =TST15 
Date Programmer Modification 


07/09/82 SB Bugfix: HTRAP now works off of sIX 
02/07/83 SB Update header. 


18 EX12 ~ Return exponent of 12-dig arg 
Category: MATH File: SM&MTH: MS 


Nanie:(S 
Narie:(S 
Nane:(S 
Narie:(S 


) Ex12 - Return exponent of 12-dig arg 

) EX15M - Return exponent of 15-dig arg (KM=SB=0) 
) EX18S  - Return exponent of 15-dig arg 

) EXF - Return exponent of finite 15-dig arg 


Purpose: Returns the exponent of given argunent. 


- 


Entry: 
EX12: 12-digit arg in R, 
EX15M: 15-digit arg in A&B. 
EX15S: 15-digit arg in A&B. 
EXF: 16-dig finite arg in A&B. 
Exit: R&B: y=EXPONENT(x) 15-digit forn 
Calls: SPLTA, XPOSBO, AFIN, =DZ10 
Alters (INC): A,B,SB,XM,P, CARRY 


Stk IvIs: 1 : 


os 04 
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History: 


6/01/82 
9/22/82 
10/08/82 
12/09/82 
02/07/83 
03/31/83 


Entry Point and Pol] Interfaces 


Progranner Modification 


were wer ewe ww ew ee ee eww ee ee ee wwe eee 


SB 
SB 
$B 
SB 
$8 
SB 


13.16  SQRSAV - 


Categ 


Nane:(S) $ 
Nare:(S) 0 
Narie:(S) 0 
Narie:(S) S 


Purpose: 


Entry: 
Exit: 


Alters: 
Calls: 


Stack Leve 


ory: 


QRSAV 
RXA 
RSB 
ETSB 


MATH 


Docunented. 

EXPONENT(O) raises DVZ 

Code Pack: Tighter loop 

Inprove Cornents 

Update Header. 

Dedicated err msg: "“EXPONENT(O)" 


SQR for Chain calculations. 


File: SM&NTH::MS 


SOR for Chain calculations. 

Set XM if sXN=1 and Set SB if sIX=1 
Set SB if sIX=1 

Set SB 


SQRSAV-Puts XM & SB into status bits sx & sIX, 
calls SQRiSM, and falls into ORXM uhich 
establishes KM<--XM OR sxXM, SB«--SB OR sIX. 
This preserves exactness in SB and 
exceptions in XM thru a call to SQRISM., 


SQRSQV:15-Digit arg in A and 6. 

DEC Mode 

xM Set if previous exception. 

SB Set if previous inexact calculation 


SQR(Arg) in 15-digit form in A and B 
DEC Mode 
XM Set 1f previous exception or SQR exception. 
SB Set if previous inexact or SQR inexact. 


A,B,C,P,SB,XN,CARRY, and status bits s1X,sXM 


SAVEXM, SQR15M, SETXM 


ls: 1 
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History: 
Date Progranner Modification 
11/02/83 SB Docunented 


13.17 SRVGSB - Put SB into sINX 


Category: MATH File: SM&MTH:: MS 


Narie:(S) SAYGSB - Put SB into sINX 
Nane:(S) ORGSB - Set SB if sINX=3 
Nane:(S) SAVEXM - Put KM into sx" & SB into sIX 
Name: (S) SAVESB - Put SB into sIX 
Purpose: Routines save and restore SB and XM fron status 
Entry: See description above 
Exit: See description above 
Alters: SAVGSB - CARRY, status sINX 
ORGSB - C{S}, SB, CARRY 
SAVEXM - CARRY, status sIX,sxM 
SAVESB - CARRY, status sIX 
Calls: Nothing 


Stack Levels: 0 


History: 
Date Progranner Modification 
11/02/83 SB Docunented 
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13.18 ARGI2 - Return Arg of X+i¥ (12-dig args) 


Category: MATH File: SM&MTH::MS 


Nane:(S) ARGI2 - Return Arg of X#1¥ (12-dig args) 
Nane:(S) ARGIS - Return Arg of X+#i¥ (15-dig args) 
Nane:(S) ARGF - Return Arg of X#1Y (15-dig finite args) 
Purpose: Argunent of X+1¥. Used by ANGLE. 
Entry: ARG12: 12-Dig args- A:X, (C:¥, =sRAD 

ARG15: 15-Dig args- AB:X, CD:Y, =sRAD 

ARGF : 15-Dig finite args- AB:Y, CD:X, =sRAD 
Exit: ARB: ARG(X,Y) 


Calls: SPLIB,MSN15, AFIN, SWAPKY, =DV2-15, SAVGSB, 
ATRN15, ORGSB,PI/2D, =ADDF, XMOSBO. 


Alters (INC): A,B,C,D,RO,R1,P,s1X,=sINX, sCONP, SATAN, SSGN, 
=skKAD, s+P1/2, SB, XM 


Stk lvls: 2 


Algorithn: Weed special cases, call ATAN15(Y¥/xX) 


History: 

Date Programmer Modification 

6/30/82 SB sAFFIN used in place of P 
10/06/82 SB Code Pack: Eliminate Proj Mode, 

Also bugfix (X,¥)=(FINITE, INF). 

11/15/82 SB Bugfix: ANGLE(O,0)=0 1s EXACT. 
02/07/83 SB Update header. 
11/02/83 SB Additional Docunentation 
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13.19 SIN12 - Trig: Sine of 12-dig arg 
Category: MATH File: SM&MTH::MS 
Name:(S) SIN12 - Trig: Sine of 12-dig arg 
Name: (S) COS12 - Trig: Cosine of 12-dig arg 
Name:(S) TANI2 - Trig: Tangent of 12-dig arg 
Nane:(S) SIN1S - Trag: Sine of 15-dig arg 
Nane:(S) COS15 - Trig: Cosine of 15-dig arg 
Nare:(S) TANIS - Trig: Tangent of 15-dig arg 


Purpose: SINE, COSINE, & TRNGENT 


Entry: SIN1Z,COS12,TAN12 - Standard Math, 12-dig arg’ts 
SINI5,COS15, TANTS - Standard Math, 15-dig arg’ts 


All entries assume Status bit =sRAD encodes 
the desired angle mode (SET=RAD MODE) 


Exit: R&B: 15-digit resuit. COS & SIN entries also 
produce TAN (or COT) magnitude in RO&R1. 


Calls: SPLIA, AF IN, SHFRAC, SHFRBD, PI /4, THO*, DBLSUB, 
SHF LAC, FLIPS, FLIP1O,FLIP11, GETCON,=MULTF,=1/X15, 
=DIVFCD, STAB1X, RCCD1X, =MP2-15, =ADDONE, =SQR15, 
FUDGE. 


Alters (INC) : A,B,C,D,RO,R1,P,SB.XM, CARRY, and 
Status bits - sIX, sINVRT, sTAN, sSGN, sSGNT. 
Current Value: ? 8 6 10 11 


Stk lvls: 2 


Algorithn: 

The absolute value of the argument 1s dbl word reduced 
by 2*Pi (or 360), then by Pafe, and Pi/4 to obtain 
O<=Phic=P1/4. A pseude divide produces (X,Y) mith 
0<=¥<=X and TAN(Phi) = Y/X . Formulas; 

TAN( Phi} = ¥/X 

SIN(Pha) = 1/SQRT(14#(%/¥)*2) 

COS(Phi) = 1/SQRT(1+(¥/X) ~2) 
Related back to the argunent via STATUS bits. 


sIX (7) : Local exactness. Not set=Exact. (INEXACT ay 


sINVRT (8) : If set, use X/Y instead of Y/x (INVERT flag 
sTRAN (6) : If not set, TAN 1s desired (TAN flag) 
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sSGN (10): Sign of result (SGN flag) 
sSGNT (11): Sign of TAN (SGNT flag) 
History: 
Date Progranner Modification 
7/15/82 = SB Fix to sign of O for COS(90), etc. 
8/12/82 SB Bugfix: Neg Exp in Radian Mode. 
10/29/82 = SB Pack: INIT rearrangenent 
12/09/82 SB Inprove Connents, Label Change 
TRG150->REDUCE, Code Pack 
12/14/82 SB Label changes, code Pack in area 
where exactness established. 
02/10/83 = SB Code Pack: Put XTENDE in line. 
03/31/83 SB Error msg change: TAN=INF replaces 


previous TAN or SEC=INF. 


13.20 IRC%® - Table of numeric constants 
Category: MATH File: SM&ATH::MS 
Nane:(S) TRC9O - Table of nuneric constants 


Purpose: Constants used by the trig routines. 


Entry: Values are accessed by a call to GETCON with a 
select code in P (See GETCON, GETVAL). 


History: 


Date Progranner Modification 


11/02/83 SB Docunented 
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13.21 ASINI2 - ArcSin Inv Trig (12-dig argunent) 
Category: MATH File: SM&NMTH:: MS 


Nane:(S) ASIN12 - ArcSin Inv Trig (12-dig argunent) 
Nane:(S) ACOS12 - ArcCos Inv Trig (12-dig argunent) 
Nane: ATAN12 - ArcTan Inv Trig (12-dig argunent) 


Nane:(S) ASINIS - ArcSin Inv Trig (15-dig argunent) 
Nare:(S) ACOS15 - Arclos Inv Trig (15-dig argunent) 
Nane:(S) ATANIS - ArcTan Inv Trig (15-dig argunent) 
Nane:(S) BRT30 - Inv Trig, defined by status 

Nane:(S) BRIF - Inv Trig, finite arg, defined by status 


Purpose: ARCSINE, ARCCOSINE, ARCTANGENT 


Entry: ASINI2, ACOS12, ATANI2 - Stnd. Math, 12-dig arg’ts 
ASINIS, ACOS15,RTANI5 - Stnd. Math, 1$-dig arg’ts 


All entries assune angle node encoded in 
Status bit =sRAD (set=RAD Mode). 


Exit: Standard math (15-digit result in A&B) 

Calls: SPLTA, AFIN, =INVNaN, PI/2, SWAPXY, STAB1X, 
=STAB2, =ADDONE , =EXAB1, =SUBONE ,RCCD1X, =MULTF, 
=$QR17, =RCCD2, =K/¥15, =1/%15, FLIP8&, GETCON, 
=DIV120, =SHF10, =AD15s, =DIV100 , FUDGE 


Alters (INC): A,8,C,D,RO,R1,R2,R3,P, XM, SB, sIX, sCOMP, 


SATAN, SSGN,s+PI/2 
Stk lvls: 2 
RAlgorithn: 
sIX (7) : If set, result ray be inexact (INEXACT flag) 
sCOMP (8) : If set, need conplenentary angle (COMP flag) 
sATAN (6) : If set, need ATAN (ATAN flag) 
sSGN (10): If set, negate result (SGN Flag} 
s+PI/2 (11): If set, need add PI/2 (Add PI/2) 
History: 
Date Frogranner Modification 
6/07/82 3B Documented 
10/06/82 SB Code Pach: Eliminate proj mode 
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tenn 2 ene - n+ oo --- +--+ +5 +--+ +e $------------------ + 
| | 
| MTHSTK - Math Stack Utilities | CHAPTER 14 
| | 
+ ene we eww ee ee ee eee eee em ee we wee ee + eee en ewe we we we wee + 
14.1 POP2N ~~ Pop 2 Nunbers Fron Stack. 
Category: MTHSTK File: AB&FCN::MS 
Narie:(S) POP2N - Pop 2 Nunbers Frot Stack. 
Purpose: 
Pop 2 nunbers fron math stack. 
Entry: 
D1=Stack pointer. 
Exit: 
DEC node. 
D1 16 nibbles before end of entry (D1=D1+16 to get to 
next entry. 
If carry clear: 
C{W}] = first number on stack. 
A[W] = second nunber on stack. 
If carry set {one or both nurbers complex}: 
C(W]=Real part of first nunber. 
R2=Inaginary part of first nunber. 
A[W]=Real part of second number. 
RO=Inaginary part of second nunber. 
Inaginary part = 0000000000000900 if arg is real. 
Error exit (eDATTY) if either arg not numeric. 
Calls: None, 
Uses....... 
A,B{O},C,P. If Carry Set: RO, R2. j 
Stk lvls: 0 ee 
History: 


Date Progranner Modification 
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SA Wrote 
10/13/83 WN Attempted to docunent 
14.2 POPIN - Pop 1 Nunber Off Of, Stack 


Category: MNTHSTK File: POSFON: ns 


Nare:(S) POPIN ~- Pop 1 Nunber Off Of Stack 


Purpose: 
Pop one numeric value off of math stack. 


Entry: 
D1 = Stack pointer. 


Exit: 
Errors out (eDATTY) if non-nureric iten. 
DEC mode. 
P=0. 
If carry clear: Result real. 
Result in A. 
If carry set: Result conplex. 
Real part in A. 
Inaginary part in RO. 


Calls: None. 


A,B[O]. If carry set, RO. 


Stk lvls: 0 
History: 
Date Progranner Modification 
ene sati“‘imwoteO||0|00OOCO~—C— 
10/13/83 NM Attenpted to docunent 
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14.3. REVPOP - REV$ On String And Then POP1S 


Category: MTHSTK File: AB&FCN: MS 


Nane:(S) REVPOP - REV$ On String And Then PQP1S 


Purpose: 
Reverse a string on the stack and then pop it. 


Entry: 
Di=Mathstack pointer. 
HEX node. 


Exit: 
A{A}=string length. 
D1 pointing at lou-address end of string (last char). 


P=0, 
Calls: REV$, POPIS (falls through). 
Uses....... 

A,B,C(A},B[A),P, D1 
Stk Ivis: 2 
History: 
Date Progranner Modification 
SA ti“‘émmote000O—~—~—SCS 
10/13/83 NM Attenpted to docurent 
14.4 POPIS - Pop 1 String Arg OFF Stack 


Categary: RATHSTK Fale: AB&FCON: MS 
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Nane:(S) POP1S - Pop 1 String Arg Off Stack 

Purpose: 
Position pointers to pop a string argunent off of 
nath stack, 

Entry: 
HEX node. 
D1 pointing at string header in stack. 

Exit: 
Errors out (Data type) if iten on stack 1s not string. 
P=0, 


D1 pointing past string header... pointing at last 
character of string. 
A{A}=length of string in nibbles. 
Calls: None. 


Uses....... 
AfW},D1,P 


Stk lvls: 0 


Be pees not return if iter on stack is not string. 
History: 

Date Progranner Modification 
Taste slti‘iOtESO”O000OOOt—~—C— 
09/23/83 NM Atteripted to docunent 


14.5 MPOP2N - Pap 2 Args W/signan Check 


Category: MTHSTK File: AB&FON::MS 


Nane: (3) MPOP2N - Pop 2 Args W/signan Check 
Nare:(S) POP2N+ - Pop 2 Args W/signan Check 
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Purpose: 
Pop tro argunents off of the nath stack and report 
signaling KANs. 

MPOPCN calls uMODES to fetch nodes to ST. 
PUPZN+ assumes this has already been done. 


Entry: 
D1 = stack pointer. 


Exit: 
Carry set: One or both numbers are coriplex. signaling 
NaN check not done. Sane exit conditions as POP2N. 
Carry clear: C[U} = first nunber on stack. 


A[W} = second nunber on stack. 
ere 16 nibbles before next stack entry. 
Calls: POP2N, SIGTST, URES12, uMODES. 
Uses....... 


A,B,C,0,R3,S7-S11. 
Stk ivls: 3 


History: 
Date Progranner Modification 
SR Wrote 
10/14/83 NM Attenpted to docurent 


.6 MPOPIN - Pop 1 Arg & Check For Sig NaN 


Category: MTHSTK File: AB&FCN: MS 


Nane:(S) MPGPIN - Pop 1 Arg & Check For Sig NaN 
Nane:(S) PCPIN+ - Pop 1 Arg & Check For Sig NaN 


Purpose: 


Pop one nuneric argunent and give Signaled Op nessage 
1f appropriate. 
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14, 


Entry: 
01=Mathstack pointer 
POPIN+: S8-S11 already set according to nodes (uMNODES) 
has already been called. 


Exit: 
DEC node. : 
Carry set: Result 18 conplex. Signaling NaN check not 
performed. Result an A/RO as per POPIN. 


Calls: ulfODES, POPIN, SIGTST, uRES12. 


A,B,C,0,R3,S8-S11. 


Stk lvls: 3 
History: 
Date Progranner Modification 
—— SRti“‘iMte= 
10/14/83 NIN Attenpted to docunent 
7 ~~ ~REV$ ~ Reverse Characters In A String On Stack 


Category: MTHSTK File: AB&UTL:: MS 


Nane:(S) REV$ - Reverse Characters In A String On Stack 


Purpose: 
Reverse a string on the nathstack. 


Entry: 
HEX node. 
D1 pointing at string header. 


Exit: 
D1 pointing at string header. 
String has been reversed. 
C{A]=B[A]=copy of DO. 
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Error exit (eDATTY) if not pointing at string. 


Calls: POPIS. 


A,8,C,0,P. 
Stk lvls: 1 


History: 
Date Progranner Modification 
SA Wrote 
10/18/83 NM Atteripted to docunent 


14.8 POPNTH - Skip Past An Iten On Nthstk 
Category: MTHSTK File: AB&UTL::MS 


Nane:(S) POPNTH - Skip Past An Iten On Mthstk 
Nane:(S) POPSTR - Skip Past An Iten On Nthstk 


Purpose: 
Skip past current item on the mathstack. Useful for 
finding a particular iten or for counting iterts. 


Entry: 
P=0. - 
POPMTH: D1 at top of mathstack. 
POPSTR: D1 pointing past first 2 nibbles of string header 
at top of nathstack. 


Exit: 
P=0, 
D1 at new top of mathstack. 
Carry clear. 


Calls: Nore. 


14-7 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Nath Stack Utilities 


A,C,D1. 

Stk lvls: 0 

Detail: 

Correctly skips past complex nunbers and string itens. 
History: 
Date Progranner Modification 
SC Wrote 
10/18/83 NM Attenpted to docunent 


14.9 ARGPR+ - Reads nodes, pops and norn. real nbr 


Category: MTHSTK File: PM&STA::NS 


Nane:(S) ARGPR+ - Reads nodes, pops and norn. real nbr 


Purpose: 
Reads user modes, pops numeric argunent off math stack, 
tests for array or corplex type or signaling NaW, 
splits and normalizes argunent to 15-digit forn, 
detects non-finiteness 


Entry: 
Nuneric argunent on top of nath stack 
D1 points to top of nath stack 


Exit: 
A/B -- 15-digit forn of argunent 
If signaling NaN: Carry=Set, XM=1 


Otherwise: Carry=Clear 

DECNODE 

Fatal error if complex or array data type 
Calls: INVNaN, POP1R, SPLITA, unode+ 
Uses....... 


Inclusive: A,B,C(A),D(A),P,SB,xM, 58-11, 
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unless fatal error 


Stk lvls: 2 


History: 

Date Progranner Modification 
05/26/82 Pn Docunented routine 
12/14/82 ” Added signaling NaN test 
01/06/83 “ Revised docunentation 

14.10 ARGPRP - Pops and normalizes real nunber 


Category: MTHSTK File: PM&STA::MS 


Nane:(S) ARGPRP - Pops and normalizes real nunber 


Purpose: 
Sane as ARGPR+, except that user nodes are not read. 


Entry: 
Sane as ARGPR+ 


Exit: 
Sane as ARGPR+, except user nodes not read. 


Calls: INVNaN, POP1R, SPLITA 


Inclusive: A,B,C(A),P,XM, unless fatal error 


Stk lvls: 2 
History: 
Date Prograrnmer Modification 
05/26/82 PM Docunented routine 
01/06/83 " Revised docunentation 


14-9 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Math Stach Utilities 


14.11. POPIR - Pops real number fron math stack 


Category: MTHSTK File: PR&STA: 2 NS 


Narie:(S) POP1R - Pops real nunber fron nath stack 


Purpose: 
pops numeric argunent off the top of the math stack and 
tests that it 1s a real data type. 


Entry: 
Nuneric argunent on top of math stack 
D1 points to top of math stack 


Exit: 
A -- has 12-digit forn of argunent 
Carry=clear 
DECMODE 
fatal error if array or complex data type 


Calls: POPIN 


Inclusive: A,B(X),P, unless fatal error 


Stk lvls: 1 
History: 
Date Progranner Modification 
og/i2/e2 PN Docunented routne 
01/06/83 ‘s Revised docunentation 
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14.12 ARGSTA - Pops and tests real nuriber 


Category: NTHSTK File: PR&STA:: MS 


Name: (S) ARGSTA - Pops and tests real nunber 
Narie:(S) ARGST- - Pops and tests real number 


Purpose: 
Reads user nades, pops numeric argunent off math stack, 
tests for array or complex type, detects non- 
finiteness, and tesis for NaN. 


Entry: 
Nuneric argument on top of math stack 


Exit: 
A ---- 12-digit argurient from top of stack 
Carry:Clear if real finite 
Carry=Set if infinity 
Fatal error if array, conplex, or NaN 
DECNODE 


Calls: POPIR, fanita, unodet 


Inclusive: A,B(X),D(A},P 
ARGSTA: also SB, XM, s8-11 


Stk IvIs: 2 
NOTE: 
Input Fatal error message 
array "eDATTY" 
complex "eDATTY" 
NaN "eIVARG" 
History: 

Date Progranner Modification 
07/16/82 PA Docunented routine 
10/06/82 : Rerioved projective infinity test 
01/06/83 . Revised docunentation 
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14.13. XXHEAD - Renove String Header (Undo ADHEAD) 


Category: MTHSTK File: SB&EXC:2MS 


Nane:(S) ¥XHEAD - Renove String Header (Undo ADHEAD) 


Purpose: 
Rerioves string header fron a string on stack. Leaves 


registers set up so that STKCHR nay be called again. 


Entry: 
P = 9 


Exit: 
p = 0 
D(A)=Pointer to RVMENS 
R1(A)=Pointer to end of stack iten (highest address) 
D1 points to start of stack 1ten (lowest address) 
Carry clear 


Calls: POPIS 


Inclusive: C(A),01,D(A) 


Stk lvls: 1 
History: 
Date Progranner Modification 
10/19/82 B.S. —~Added docunentation = 
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14.14 ADHEAD - Add String Header 
Category: MTHSTK File: SB&I0::MS 


Nane:(S) ROHEAD - Add String Header 


Purpose: 
Adds string header to string on stack 


Entry: 
RI(A)=Start of stack item(hi men) 
Di=End of stack iten(low wen) 
SO set iff RTN desired (jumps to EXPR otherwise 
0(A}=(AVNENS ) 
P=0 


Exit: 
D1 points at string header on stack 


Calls: STKCH+ 


Exclusive: A(R), 
Inclusive: ACA), 


Stk lvls: 0 


Detail: 
Ri should have been used to store stack pointer 
before putting string on stack, As the string 
was added to stack, D1 should have been decrenented 
to keep it pointed at the last char of string. 
This routine can then be used to tack on the string 
header (FO11111000000000) where l1ill is the length 
of the string. 


History: 
Date Progranner Modification 
07/20/82 B.S. Updated docunentation 
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14.15 BF2STK - Buffer To Stack 
Category: MTHSTK File: SB&I0::MS 


Nane:(S) BF2STK - Buffer To Stack 
Nane: BF2ST+ - Buffer To Stack 


Purpose: 
Pushes a string buffer onto math stack 


Entry: 
P = 0 
SO = 0 ---> GOTO EXPR when done (don’t return) 
SO = 1 ---> Return when done 
BF2ST+ pre-clears SO causing a GOTO EXPR when done 
D1 points to stack 
DO should be PC if SO clear for proper function rtn 
C(A) should point to buffer which is a string of 
bytes terminated by a FF byte. 


P = 9 
Di reflects new stack pointer 
DO unchanged 


Calls: STKCHR, ADKEAD, D=RVAS 


Inclusive: ACA),B(A),C(A),0(A),R1,00,D1 
Stk lvls: : 


Detail: 
Buffer 1s terminated by an FF byte. 
Pushes a buffer onto stack a character at a tine 
and jumps to MENERR if nenory overflows. The result 
1s a String iten on stack with proper header set up. 
If SO is clear the routine assunes that a function 
1s ending returns directly to EXPR to continue 
expression evaluation. 


History: 


Modification 


10/19/82 B.S. Updated docunentation 


14-14 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Math Stack Utilities 


14.16 COLLAP - Collapse Nath Stack 
Category: MTHSTK File: SG&EXC::MS 


Nane:(S) COLLAP - Collapse Math Stack 


Purpose: 
Collapses nath stack 


Entry: 

Exit: 
D1 = MTHSTK 
C(A)= new value of MTHSTK pointer 
Carry clear 


Calls: none 


C(A), 01 
Stk Ivis: 0 


History: 
Date Progranner Modification 
06/25/82 S.W. | Created utility 


14.17 ERRM$f - Transfer ASCII fron Avien to stack 


Category: MTHSTK File: TISERD: NS 
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Nane:(S) ERRN$f - Transfer ASCII from AvMen to stack 


Purpose: 
Transfer an ASCII buffer fron AvMenSt to Math Stack. 


Entry: 
p = 0 
R3(A)= PC address (fron 00) (see R3=D10) 
R3(9-5)= stack address (from D1) (see R3=D10) pirat 


DO points to ASCII buffer. ASCII string ends 
in FF byte. (DO must be less than FORSTK pointer. ) 
B(A) points to terminator FF byte 


Exit: 
p = 0 
Di = new stack pointer 
String on stack 
DO = address passed in R3(A) 
Will junp to MEMERR if insufficient nenory. 


Calls: D1C=R3, BF2ST+ 


Exclusive: B(R) 
Inclusive: A(W),B(R),C(A),D(A),R1,01 


Stk lvls: j 


NOTE: 
See ERRN$ heading for that entry point. 


Algorithn: 

D1 and 00 are restored fron R3. 

Before calling BF2ST+, which moves the message fron 
AvMen to the nath stack, checks whether total 
available nmeriory 1s at least tuice as large as the 
length of the string (since copying it to the 
stack would otherwise overiurite the tail end of 
of the string}. If not, MEMERR. 

Exits through BF2ST+: buffer to math stack. 


History: 
Date Prograriner Modification 
09/14/82 MB Docunentation 
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| 
| MTHUTL - Systen Level Math Utilities CHAPTER 15 | 


> ew ee ee 


Fe -+¢ 


15.1 REDUCE - Parse And Execute Partial ExpresSIOQNS 
Category: MTHUTL File: AB&CLE:: MS 


Nane:(S) REDUCE - Parse And Execute Partial ExpresSIONS 


Purpose: 
Parse and execute partial expressions in calc node. 


Entry: 
P = 0 

Exit: 
= 0 

Calls: NTOKEN, RANGE, MEMBER, PUSH, BLDCON, NRNCON, 
STAKUP, STAKDN, FNARG, ARYARG, ARGLAT, PUSH11, 
INSRTO, ORIGIN, SKPARG, PARPRP, COMPIL, ARGCNT, 
PRCDNC, CLCEXP, CLCBTS, STKBAK 

Uses....... Everything 


Stk lvls: 6 


History: 
Date Progranner Modification 
06/13/83 SA Added docunentation 
08/03/83 SA Static fix to Bug 9597. 
Packable BSS 3 created below 
label SO-30. 
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15.2 NRMCON - Convert BLDCON Constant into Usable Forn 


Category: MTHUTL File: AB&CLCE:: MS 


Narie:(S) NRNCON - Convert BLDCON Constant into Usable Forn 


Purpose: 
Converts a 12-digit constant built by BLDCON into a 
nice narmalized nunber taking into account overflow and 
underflow with appropriate trap settings. 


Entry: 
Exit conditions of BLDCON. 
Exit: 
R = 42-digit normalized number. 
xM=0 iff nunber ok (no overflow or underflow) 
May generate warning message if XM=1. 


Calls: SFLAGS, MFWRNQ 


A-D,D0,D1,R0,F 
Stk lvls: 3 


History: 
Date Progrannmer Modification 
SA Wrote 
11/01/83 NM Attenpted to docunent 
12/16/83 FH . Added nore docunentation, changed 


nane fron GRUNK to NRNCON, nade 
a supported entry point 
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15.3. BLOCON - Build A Constant For CalC MODE 
Category: MTHUTL File: AB&CLE::MS 


Nane:(S) BLDCON - Buald A Constant For CalC MODE 


Purpose: 
Build a constant for calc node. 


Eniry: 
Exit conditions of NUMSCN. 
Exit: 
If XM = 0: (no Overflow or Underf low) 
B = Nornalized unsigned 12-digit nunber. 
If XM = 14: (Overflow or Underflow occurred) 


B(B) = Token indicating overflow (=tBIG) or 
underflow (=tSMALL). 


Calls: None. 
Uses....... 
A,B,C, XN. 
Stk lvls: 1 
History: 
Date Programmer Modification 
SA Wrote 
11/01/83 = NM Atteripted to docunent 
12/16/83 FH Added nore docurnentation 


15.4 READIN - Read Sonething In 
Category: MTHUTL File: AB&EXP::MS 
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15, 


Name:(S) READIN - Read Sonething In 


Purpose: 
Probably. 
Entry: 
Unclear. 
Exit: 
Unclear. 
Calls: None. 
Uses....... 
0,P,C{S] 
Stk lvls: 0 
History: 
Date Progranner Modification 
SA Wrote 
11/01/83 NN Atternpted to docunent 
5 RSTST - Restore Status Bits 


Category: MTHUTL File: AB&EXP:: MS 


Nane:(S) RSTST - Restore Status Bits 


Purpose: 
Restore status bits saved in STSAVE. 


Entry: 
None. 
Exit: 


Status bits restored. 
Carry clear. 
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Calls: _ None. 
Uses....... 
ALA], C{X). 
Stk lvls: 0 
History: 
Date Progranner Modification 
aa satsi‘idrOtEes||000OO—~—~—S—SSCS 
11/01/83 NM Added docunentation 
15.6 SMALL - Create Special Consts 


Category: MTHUTL File: AB&FCON:: NS 


Nane: SMALL - Create Special Consts 
Nane:(S) BIG - Create Special Consts 
Nane: BIG+ - Create Special Consts 
Narie:(S) HUGE - Create Special Consts 
Purpose: 


Create constants MAXREAL, INF, EPS. 
Entry: 
Exit: 


SMALL: C(W) = EPS. 
Mode unchanged. 


P=14, 
BIG: C{W] =+/-9.99999999999F499 (sign preserved fron 
entry). 
DEC rode. 
BIG+: C[W] = 9.999999999995499, 
DEC rode. 


HUGE: C[W) = 0999999999999FOO (infinity). 


Calls: None. 
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Uses....... 
C. SMALL uses P. 
Stk lvls: 06 
History: 
Date Progranner Modification 
SA Wrote 
10/13/83 NM Attenpted to docunent 


16.7 SIGCHK - Report Signaling NaN 
Category: MTHUTL File: AB&FCN:: NS 


Nane:(S) SIGCHK - Report Signaling NaN 


Purpose: 
Check for signaling NaN and report "Signaled Op" if 
found. 


Entry: 
Nuriber in A. 
DEC node. 
Exit: 
Nunber in R. 
Carry clear. 


Calls: uRES12, SIGTST. 


A-D,P,R3,S7-S11. 


Stk lvls: 3 
History: 
Date Progranner Modification 
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SA Wrote 
11/01/83 NM Attenpted to docunent 


15.8 RND-12 - Round A 12-digit Fp Nunber 
Category: MTHUTL File: AB&UTL::MS 


Nane:(S) RND-12 - Round A 12-digit Fp Nunber 


Purpose: 
Round of a floating-point number at specified digit. 


Entry: 
A = nunber (12-digit floating-point). 
P points to digit where rounding is to take place. See 
detail, below. 


Exit: 
P=0, 
R=Rounded (not IEEE-rounded) 12-digit forn. 
If P=15 on entry, no rounding was done. 
Carry set iff rounding overflowed (returns MAXREAL). 


Calls: None. 
Uses....... 

A,B,P 
Stk lvls: 0 
Detail: 


Typically called after IF12A, which sets P to point at 
the first fractional digit. 


History: 
Date Progranner Modification 
SA Wrote 
10/17/83 = NM Attenpted to docunent 
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15.9 A-MULT - Multiply Tuo 20-bit Hex Integers 
Category: MTHUTL File: ABBUTL:: MS 


Nane:(S) A-MULT - Multiply Two 20-bit Hex Integers 


Purpose: 
Multiply tuo 20-bit hex integers. 


Entry: 
ALA}, C[A] are operands. 
Exit: 
P preserved. 
A[AJ}=product. 
Carry set if no problen. 
Carry clear -> overflow. Returns FFFFF. 


Calls: None. 


A[A},B(A),C(A),C{14). 
Stk lvls: 0 


Date Progranrer Modification 
SA Created 
10/18/83 NM Attempted to docunent 
16.10 SHFIO - Shift to nornalize 


Category: MTHUTL File: JT&MTH: AS 
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15; 


Nane:(S) SHF10 - Shift to nornalize 


Purpose: 
Normalize 15 fors in AB. 


Entry: 
Finite (possibly denornalized no.) in AB 

Exit: 
AB is normalized (clean 0s). P=C(S), C(S)=B(S), B(S)}=0 
Carry clear. 

Calls: None 

Uses....... 


Inclusive: C(3)} (see exit conditions) 


Stk lvls: 0 


41. SQR70, =) Set SB according to Reg C 


Category: MTHUTL File: JT&NTH: MS 


Nanie:(S) SQR70 - Set SB according to Reg C 


Purpose: 
To set or clear Sticky Bit (SB) for C#O or C=0 resp. 


Entry: 
C=0 if SB=1 15 desired, else CHO 


Exit: 
SB=0 if C=0, else SB=1. 
Carry Clear. 


Calls: (none) 


Inclusive: C(A) 
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Stk lvis: 0 
Algorathn: 
=SQR70 SB=0 
°e=0 W 
GOYES SQR80 
C=C-1 xX 
CSR x 
SQR80 = RTNCC 
15.12 INF*O - Inf*O exception 


Category: MTHUTL File: JT&nti::MS 


Nare:(S) INF*O - Inf*O exception 


Purpose: 
To create a 15-forn NaN result with Inf*O nsg code. 


Entry: 
No conditions. 


CODE: =INF*O P= 0 
LC(2) =elF*ZR 
GOTO  INVNaN 


Exit: 

(See INVNaN) 
Cails: Goes to INVNaN 
Uses....... 


Inclusive: P: A,B,C(A}; HO. ST. [Xn,SB] 


Stk lvls: @ 
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15.13  XYEX - EXCHANGE X & Y 


Category: MTHUTL File: JT&MTH:: AS 


Narie: (S$) XYEX - EXCHANGE K & Y 


Purpose: 
To exchange the internal nos. Y=(A,B) & X=(C,D) . 


Entry: 
(A, B)=¥ & (¢,0)=x 


Exit: 
(A, B)=xX & (C.0)=¥ 
Does not alter carry 


Calls: (none } 


Inclusive: A,B,C,D 
Stk lvls: 9 


Detail: 
Swaps entire regs (AR with C and B with 0) 


15.14 SPLITA - SPLIT A 


Category: MTHUTL File: JT&NTH::MS 


Nane:(S) SPLITA - SPLIT R 
Purpose: 


To convert an external (12 dig.) form into an internal 
(15 dig.) forn 
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Entry: 
A=x’ (external no.) 


Exit: 
(R,Bj=x (nortial anternal forn of x’) 
CR.set => excptn’l operand (1.e. NaN or Inf ) 
CR.cir => finite operand 
-~see DETAIL below for normal internal forn defn. 


Calls: {none ) 


Inclusive: A,B {actually B[14..5] ends up in A[14..5] } 
Stk lvis: 0 


Detail: 
DEFN: The “normal internal forn" of 
+) NaN 1s ACR)=O0OFO1 & BCXS)=F (i.e. nantk#O). 
2) Inf 1s R(A)=00FOG & 
3} finite no 1S a normalized no.(no denorn.). 


15.15  CLRFRC - Clear fractional part 


Category: MTHUTL File: JT&ATH::NS 


Nane:(S) CLRFRC - Clear fractional part 


Purpose: 
Clears fractional part of quantity in A/B, preserving 
the sign af the argument. Returns the result in A/B. 
Carry set if no fractional part. 


Entry: 
A/B -- 15-digit form of quantity 


Exit: 
A/R -- quantity with fractional part cleared 
Carry=set if no fractional part 
Carry=clear otherwise 
DEC MODE 
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Calls: INFR15 


Inclusive: A(A),B,C(A),P 


Stk lvls: 2 
History: 
Date Progranner Modification 
08/24/82 = PM Docunented routine 
09/23/82 SB Packed out =CLFRCF Entry 
12/02/82 JT Corrected docun. for stk lvls. 
(INFR15 calls FINITA now) 
15.16 IFi2R - Integer/Fraction Split 


Category: MTHUTL File: JT&NTH:: MS 


Nane:(S) IFI2A - Integer/Fraction Split 
Nane:(S) INFR1S - Integer/Fraction Split 


Purpose: Find decinal (used by INT15 & FRACIS). Returns 
position of decimal encoded in P (see below). 


Entry: Standard Math - 12 dig: IFi2A, 15 dig: INFRIS 
Exit: Encoded location of decimal in P. 
Riters: 
IF12AR: A,B,C[A],P,CARRY 
INFR15: CLA], P, CARRY 
Stk Lvls: 1 


Note: 


ARGUMENT RETURN (P) [Notation: EXP(X)=E] 


NaN or INF 15 
Standard © 13 (standard 0 has E=0) 
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E<0 14 
OczE«=13 13-E 
13<E 16 


Note: If the Expon=14 (i.e. a 15 digit integer) then C(A) 
is 0. If Expon>14 (but Finite’ then tn) =50000 on exit 
This 1s used in YX15 to deternine if x is an even 


integer. 
History: 
Date Prograrimer Modification 
09/23/82 SB 15-dig entry: P=15 for NaN or INF, 


Conments, description update, 
Standard header. 


15.12 SPLTAC - Splat & normalize A&C 
Category: MTHUTL File: JT&NTH:: NS 


Narie:(S) SPLTAC - Split & normalize A&C 


Purpose: Split & Normalize values inf & C. 


Entry: Ak CY [12-digit forrs] 
Exit: A,B: x C,D:¥ [15-digit forns] 
Calls: SPLITA, SPLITC 


Alters (INC): A8,8,C,0,Carry 
Stk lvis: 0 
History: 


Date Progranner Modification 
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6/28/82 SB AR field instead of W 
9/23/82 SB This routine noved (elininate GOTO) 


15.18  SPLITC - SPLIT C 
Category: MTHUTL File: JT&MTH:: MS 


Nane:(S) SPLITC - SPLIT C 


Purpose: 
see SPLITA 


Entry: 
C=x’ (external forn) 


Exit: 
(C,D)=x (normal internal forn) 


Calls: (none) 


Inclusive: C,D 


Stk lvls: 90 
Detail: 
see SPLITR 


15.19 uRES12 - User Result 


Category: MTHUTL File: JT&MTH: MS 


ee 
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Nane:(S) uRES12 - User Result 
Nane:(S) uRESNX - User Result (non exceptional) 
Nane:(S) uRESXT - User Result for exact results 


Purpose: 
To pack the 15-forn input into a 12-form result for 
delivery to the user. This includes rounding according 
to the user’s mode, checking for xcpt’ns & consulting 
relevent trap values, setting the xcptn flags,and sending 
off any warning messages or errors. The external default 
result (12 forn) is returned in reg C. 


Entry: 
1.(A,B)&SB contain x (the unpacked result) 
2.XM 1s set if x is the result of an xcpt (DVZ or IVL) 
if XM=1 then P=(DZP,IVP or TYPO™O) tells which xeptn and 
C(R)}=nsg code (for specific xcptn e.g. 0/0,LOG(O), etc. ) 
A*Note**: DZP=3; IVP=4; TYPO%O=14. 


3.D1=top math stk -- only used for a urn. msg., to check 
avall.nen. for a possible nen err. 


CODE:  =uRESNX GOSUB uRND>P 

Se =uRESXT GOSUB HTRAP 
GOSUB HNDLFL 
GOTO NESSG 


Exit: 
C:=x’ (the 12digit packed result). 
The XCPTN flags are set and any messages have been dis- 
played (including errors). 


Calls: uRND12, HTRAP, HNDLFL, MESSG 


Inclusive: P; A,B,C,D; R regs [3]; ST.[7..11]; 
HD.ST.{SB, XM"); 


- 


Stk lvls: 2 (provided that MFWRNQ uses <= 4 levs.) 


NOTE: 
TYPO "xcptns" (0% & Inf) return 1. They are not 
IVL xcptns but do consult the IVL trap. No flags are 
raised, but TRAP(IVL)HO gives a urn’g while =0 gives 
an error. KM=1 & P=14 signals TYPO "xcptn". — 
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15.20 uRND>P - user ROUND 


Category: MTHUTL File: JI&MTH:: NS 


Nane:(S) uRND>P - user ROUND 
Marie: (S} RND12+ - Round 15-forn 
Warie:(S) OVFL ~ (Create overflou value 


Purpose: 
To round an internal no. x to external form, according 
to the user’s rounding node. 
RND12+: Round according to status bits (s10,s11). Given 
by (0,0)=NEAR, (0,1)=ZERO, (1,0)=PO0S, (1,1)=NEG. 


Entry: 
(R,B)&SB= x 
P=rounding position (e.g. P=2 for 12dig.;P=9 for Sdag.) 
2 <= P <= 13 
DEC MODE 


Exit: 
C:= x’ (rounded external forn) 
sIX(s7):= inexact info. 
P:=OVP(2),UNP(1) or OKP(O) (ovfl,unfl or ok) 
B(A)=nsq code of OV or UN resp. 


Calls: NRNLAB, RNDNRN, BIASC+,-, BIASA-, HUGE20, BIG, 
uMODES 
Inclusive: P; A,B,C,D; R regs [3]; ST.[7(sIX),8..11]; 
HD.ST.{SB]; 
Stk lvls: 1 
NOTE: 


Original x 1s not aluays preserved ! 
An wnexact +/- 0 (3.2. SB=1) will be rounded to +/- 0 
wath P=OKP and sIX{s7}=1 on exit. 
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15.21 RNDNRMN ~ Round a Nornal Nurtber 


Category: MTHUTL File: JT&NTH::MS 


Nare:(S) RNDONRN - Round a Nornai Number 


Purpose: 
To round the mantissa of a finite internal no. x, 
according to the rounding nodes specified. 


Entry: 
(A,B)&SB = x 
P=rounding position (e.g. P=? for 12 digit round; 
P=9 for § digit round) O«=Pc=14 
SINFRO(s19 )&sNEGRD (S11) set for rounding node 
(see =uMODES) 
DECNODE 


Exit: 
(C,D) = x’ (rounded value) (and D[S]=0) 
SsIX(s7) set iff the rounded result 1s inexact 
P=0 


Calls: None 


Inclusive: P; €,D; ST. [sIX({s7)}; 
Stk lvls: 0 


NOTE: 
With an input of inex 0 1n Rnd to Inf mode, the nantissa 
is rounded to_©O...01 and its exponent 1s unchanged. In 
the other rounding modes the nantissa renains 0. 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Systen Level Math Utilities 


15.22 HIRRP - HANDLE TRAPS 


Category: MTHUTL File: JT&NTH:: NS 


Nane:(3) HTRAP - HANDLE TRAPS 


Purpose: 
To deterriine any trapping action that 1s specified (e.g. 
alter the IEEE default result or halt) on an xcptn . 


Entry: 
C= x’ (the 12 forn IEEE default result) 
Trap to be checked 1s indicated by: 
P=<xcpt> (QK,UN,0V,02Z or IV} 
sIX(s7)= xact/inex info (esp. for P=QK) 
B(R)=nsg code (for UN,OV,DZ or IV only) 


Exit: 

C:= x’’ (revised result --after consulting traps) 
B(S):= 0 for an error (HALT) ; 9 otherwise (continue) 
B(A)=nsg code for IX,UN,O0V,DZ or IV. 

P = updated xcpt. 

sIX(s7) reflects updated exact/inexact info 

Sets DECMODE (only when GOSUB BIG is executed) 


Special exit condition: 
(preserved for USGOVF -- DISP USING OVFL) 


Whenever HTRAP exits with B(S)=0 (i.e. Halt) 
then: 


1) If TRAP(OVF) caused the Halt then s7 (sIX) is 
NOT altered fron its entry state. 


2) If TRAP(INX) caused the Halt then s7 (sIX) is 
set to 1 on exit. 


Inclusive: A,B,C,D; ST.[sIx{s?}]; 
Calls: BIG 


Stk lvis: 1 
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15.23 HMNDLFL - HANDLE FLAG SETTING 


Category: MTHUTL File: JT&MTH:: MS 


Nane:(S) HNULFL - HANDLE FLAG SETTING 


Purpose: 
To set user's xcptn flags (all at once). 


Entry: 
P=<ucpt>, <xcpt> in (OK,UN,OV,D2, IV}, 
sIX(s7)= inex info. 
Exit: 
user’s xcptn flags have been updated. 
D(X) will contain bit ask of xcptns set (b11 to b7 
represents IV,0Z,0V,UN, IX) 
Inclusive: A(A),D(X); R regs [3]; 
Stk lvls: 9 


NOTE: 
The info. from HTRAP [C,B(S),B(A),P & sIX] is preserved. 


15.24 MESSG - MESSAGE 
Category: MTHUTL File: JT&MTH::NS 
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Nane:(S) MESSG - MESSAGE 


Purpose: 
To display a warning ressage without disturbing most 
of the CPU or Math Scratch Stack. It uses available 
neriory instead, to preserve C,RO,R1,R2,R4, 00,01, Status 
Bits, Math Scratch (=SCRSTO) and RSTK levels. 


Entry: 

1) BCA)=rsg code; B(W) used if risg has text insertion (see 
MFWRNG ). 

2) B(S)= 0 for error 

= 9 otheruise 

3) If B{S)=9 then 
P=0 ==> no msg (used to supress tisg ) 
PHO ==> put out warning rsg 


4) Di=top of math stk (end of available nenory) 
~~ used only for men chk when a warning is sent out. 
Exit: 
Displays warn/err msg & rtns to Hain driver on an err. 
Calls: MFURNQ or exits thru BSERR, CHKnen, SNAPLC, 
MOVEU3, MOVED3, SNAPR* , 


Inclusive: P; R,B,0;R3; (unless an error occurs--BSERR) 
The Math Scratch Area is saved to Available Nenory 
since the display routines check Service Request and 
an Alarn calculation uses math scr. 


Stk Ivls: 2 1+[Levels(MFWRNQ) - 2{saved Levels)] 


15.25 FINITA - Is (A,B) non-finite ? 
Category: MTHUTL File: JT&NTH::MS 


Nane:(S) FINITA - Is (A,B) non-finite ? 
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Nane:(S) FINITC - Is (C,D) non-finite ? 


Purpose: 
To test for finite argunents. 


Entry: 
FINITA: 15-forn in AB 
FINITC: 15-forn in CD 
Exit: 
DEC Mode 


Carry Set indicates non-finite 
Carry Clear indicates finite 


Calls: (None) 


Inclusive: Nothing 


Stk lvls: 0 


15.26 FNPUDS - Weed out NaNs and Infs 
Category: MTHUTL File: JT&NTH:: NS 


Nane:(S) FNPHDS - Weed out NaNs and Infs 


Purpose: ae ge 
To handle NaN and Inf as arguments to functions. 


Entry: 
AB=x 
Exit: 
If x is 
1) fanite ==> RINCC 
2) anf ==> RINSC 
3) Na ==> abort call’g fn (C=RSTK) 


RTN with x (input NaN) 
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DEC Mode 


Calls: FINITA 


Inclusive: C(A) 


Stk lvls: 0 (Uses C(A) to save the level.) 







27 STAB1 - Store AB into scratch 1 
Category: MTHUTL File: JT&MTH::MS 
- From 
Nane:(S) STAB1 - Store AB into scratch 
Nane:(S) EXAB1 - Exchange AB wi tch 1 
Narie:(S) RCCD1 - Recall CD ame sfratch 1 
Nane:(S) STAB2 - Store AB into sfratch 2 
Nane:(S) EXAB2 - Exchange AB u scratch 2 
Nare:(S) RCCD2 - Recall CD @ scratch 2 
Nare:(S) STCD2 - Store CD into scratch 2 
Purpose: 
To use RO-R3 as scratch space for 15-forn nunbers. 
Entry: 
Either AB or CD has a 15-forn to be transfered with 
(RO,R1) or (R2,R3). 
Exit: 
Data transfer has taken place. 
Calls: (none) 
Uses....... 
Inclusive: nothing 
Stk lvls: 0 


15423 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Systen Level Math Utilities 


15.28 IDIVA - A-field Integer Divide 
Category: MTHUTL File: MN&UTL::MS 


Nane:(S) IDIVA - &-field Integer Divide 


Purpose: 
Conpute A/C, A nod C. 


Entry: 
HEX or DEC node according to argunents. 
Dividend in A[A], divisor in C[A]. 





Exit: 
Quotient in A[W). 
Remainder in B[W},C(W]. 
Mode preserved 
P=15, 
Carry clear. 


Calls: IDTV (falls through). 


Stk lvls: 0 
Algorithn: 
Zero out nibs 5-15 of A and C. 
IDIV. 
History: 
Date Prograrner Modification 


wee ee eee wee ee ee eee Tw mmm em mmm em ne ew ee ee ee ew wee me etme we 


06/22/82 NN Added docunentation 
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1§.29 IDIV - Full Word Integer Divide. 


Category: MTHUTL File: MN&UTL:: MS 


Narie:(S) IDIV ~ Full Word Integer Divide. 


Purpose: 
Perforn HEX or DEC integer divide. 


Entry: 
HEX or DEC node according to argunents. 
Dividend in A. 

Divisor in C. 


Exit: 
Quotient in A. 
Renainder in 6 and C. 
Node preserved. 
P=15. 
Carry clear. 


Calls: None. 
Uses....... 

A,8,C,P 
Stk lvls: 0 
NOTE: 


No provision is made if called with denoninator = 0. 
This code will get stuck in an infinite loop. CAVEAT 
EMPTOR. 


Algorithn: 
Align divisor with dividend, with P pointing at ‘’s 
digit of divisor. 
Divisor to B. Clear & for result. 
1: While BoC do begin B=B-C W, A=A+* P end 
CSK W, P=P-1. If P wasn’t zero, goto 1. 


History: 
Date Progranner Modification 
05/20/82 NM Added docunentation 
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15.30 APY - HEX * HEX Or HEX * DEC Multiply. 
Category: MTHUTL File: MN&UTL::NS 


Nane:(S) APY ~- HEX * HEX Or HEX * DEC Multiply. 


Purpose: 
Perform HEX node or mixed mode full word multiply. 


Entry: 
If HEX * HEX multiply: 
Node = HEX. 
Argunents in A and C. 


If HEX * DEC multiply: 
Mode = DEC. 
Hex argunent in C. 
Dec argunent in A. 


Exit: 
If HEX * HEX multiply: HEX result in A,B,C. 
If HEX * DEC multaply: DEC result in A,B,C. 
Node preserved. 
Carry clear. 
P unaffected. 


Calls: None. 
Uses....... ~ 

A,B,C 
Stk lvls: 0 
NOTE: 


This routine provides a handy HEX to DEC conversion. 
Performing a mixed-rode suitiply with the hex arqunent 
in C and a 0000000000000001 in A produces a DEC result 
an C, 


Rigerathn: 


Clear result (B). 
1: CSRB. 
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If low bit was clear, goto 2. 
Add A to result. 
2: Double A. 
If CRO goto 1. 
Copy result to A and C. 


History: 
Date Progranner Modification 
05/20/82 NM Added docunentation 
10/15/82 SR Leaves result in fi also. 
15.31 RNDAHX - Pops, tests,rounds,converts dec to hex 


Category: MTHUTL File: PM&FLG::MS 


Hane: (S) RNDAHX - Pops, tests,rounds,converts dec to hex 


Purpose: 
Pops, tests, rounds, and converts a real nunber 
to hex integer. 


Entry: 
nuriber to be rounded and converted on top of 
Nath stack 


Exit: 
A(A) ~- rounded hex integer 
Carry=Clear: negative integer 


Carry=Set; nonnegative integer (incl -0) 
fatal error if array or conplex type, or NaN 
HE XMODE 
XM=0 
P=0 

Calls: ARGST- , OCHXF 


Uses....... 
Inclusive: 9,B(S,8),C(A).D(A),P,SB,XM unless fatal error 
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Stk lvls: 3 
NOTE: 
Input Fatal Error Message 
array “eDATTY" 
conplex “eDATTY" 
NaN “eIVARG" 
conversion overflow “eIVARG" 
History: 

Date Progranner Modification 
06/11/82 PA Cocunented routine 
02/11/82 PH Redefined fatal error exits 
Ve;17/82 PM Fatal error for convers. ovfl. 
02/25/83 a Renoved unnecessary GOC 

15.32 SB15S  - 15-digit subtract/add routine 


Category: MTHUTL File: PA&STA::MS 


Nate: (S$) SBI5S  - 15-digit subtract/add routine 
Nane:(S) ADISS  - 1§-digit subtract/add routine 
Purpose: 


Subtracts or adds, respectively, two 15-digit forns 
while preserving the reaning of SB to denote an inexact 
chain calculation. 


Entry: 

A/B,C/D -- standard floating point math inputs 

SB, XM ---- indicate prior inexact or invalid operation 
Exat: 

R/B ------ standard floating point math outputs 

SB, XM ---- 


Carry set aff XM=1 on exit (e.9., Inf-Inf NaN created) 
Calls: AL15s , SAVESB, ORSB 
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exits through XNTEST 


Uses....... 
Inclusive: A,B,C,0,P,SB, XM, sIX(s7) 


Stk lvls: 4 
History: 
Date Progranner Modification 
12/21/82 PH Documented routine 
01/31/83 x Handled arithnetic-created NaNs 


15.33 uRESD1 - Variation of uRES12 
Category: MTHUTL File: PM&STA:: MS 


Nane:(S) uRESD1 - Variation of uRES12 


Purpose: 
Sirilar to uRES12. Any XM exception is 
considered an invalid operation (not a divide by zero 
or OO type). AVMEME, rather than D1, points to the 
end of available nenory. Also, various entities are 
initialized on exit. 


Entry: 
A/B ----- 15-digit fori for roundina, trap handling 
Ai Hee == set iff invalid operation has occured 
SB, e=4-5> set 1ff result 1s inexact 


AVMENE -- points to end of available nerory 


Exit: 
( ------- contains result 
SB, XN = 0 
s8-11 --- user modes 
HEXMODE 


Carry=Clear 
P=14 
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Calls: uresl2 
exits through uMODES 
Uses....... 
Inclusive: 


CPU: A,B,C,D,P,R3,SB,xXN, sIX(s7),s8-11 
RAN: STMTD4 


Stk Ivis: 3 = 14+uRES12 
Note: 


This routine nay fail to properly display a warning 
Message 1f the nessage involves text insertion. 


History: 
Date Progranner Modification 
06/10/82 PM Docunented routine 
11/17/82 ? D1 preserved, falls through unmode+ 
01/28/83 p Fatal errors halt execution 
innediately 
15.34 GETSR - Tests current statistical array 


Category: MTHUTL File: PM&STA:: MS 


Nane:(S) GETSR - Tests current statistical array 
Nare: GETSDO -- Tests current statistical array 
Purpose: 


Gets the starting address of the current statistical 
array, to record and test the nunber of variables, and 
to test the length of this array. GETSDO does the 
sane after saving DO in function scratch. 


Entry: 
Current statistical array nare stored at =STATRR 


Exit: 
Carry=Clear: 
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A(S) --- # variables <=F 

A(A) --- address of first elenent of current stat array 
B(X) --- depend var#, independ var#, #variables 

C(A) --- nunber of elenents in current stat array 

R2(S) -- sane as A(S) 

R2(A) -- sane as ACA) 

DO ----- sane as A(R) 

Pz 

HEXMODE 


F-RO-O - original DO if GETSDO 
otherwise: Fatal error 


Calls: ADRS50, B=DTOR, B=STAN 
GETSDO: also SAVDO 
Uses....... 
Inclusive: R,8,C(6-0),D(A),P, SB, R2, D0 
GETSDO: also F-RO-0 
Stk lvls: 2 
NOTE: 


Fatal error if there is no current statistical array, 
or if the current statistical array 1s invalid. 


History: 
Date Progranner Modification 
06/01/82 Pr Documented routine 
06/25/82 : Replaced fatal errors with NaW’s 
03/24/83 Replaced NaN’s with fatal errors 
35 SPLTAX - Splat, normalize A; handle signal NaN 


Category: MTHKUTL File: PM&STA::MS 


Nanie:(S) SPLTAX ~ Splat, normalize RA; handle signal NaN 
Nane:(S) SIGTST - Handle signal NaN 


Purpose: 
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SPLTAX: Splits and nornalizes contents of 
register A, then... 
SIGTST: Test for a signalling Nan and replace such a 
NaN by a quiet NaN. 


Entry: 
SPLTAX: 
A --- argunent in 12 digit forn 
SIGTST: 
A/B = 15 digit forn to be tested 


Exit: 
R/B -- split and normalized argurent 
Carry=Set: 
Signaling NaN replaced by a quiet NaN 
KN=4 
Carry=Clear, XM preserved, otherwise 


Calls: INVNaN, SPLITA 
nay exit through invnan 
Inclusive: A,8,C(A),P, XM 
Stk lvls: 1 


Note: Foreign NaNs are treated as signaling NaNs. 


History: 
Date Progranner Modification 
12/21/82 Pi Docunented routine 
01/14/83 “ Revised docunentation 
15.36 STSCR - Push 15-Forn Onto Math Scratch Stack 
Category: MTHUTL File: PM&STA::MS es 
Nane:(S) STSCR - Push 15-Forn Onto Math Scratch Stack 
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Purpose: 
Pushes a 15-digit forn onto top of math scratch stack 


Entry: 
A(S}) ---- sign 
A(A) -~-- exponent 
B(14-0) - mantissa 
Exit: 
P= 1 
Carry=Clear 
Calls: GEXPAD , GSCPIR 
Uses....... 


Inclusive: €,DO,P 


Stk lvls: 1 
History: 
Date Progranner Modification 
22 (2? {82 BS Wrote and coded routines 
12/07/82 Pr Packed and docuriented routines 
01/06/83 " Reviewed docunentation 
15.37 RCSCR - Pop 15-Forn Fron Math Scratch Stack 


Category: MTHUTL File: PR&STA:: MS 


Narie:(S) RCSCR - Pop 15-Forn Fron Math Scratch Stack 


Purpose: 
Pops a 15-digit form from scratch stack 


Entry: 

Exit: 
C(S) ---- sign 
C(A) ---- exponent 
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0(14-0) - mantissa 
A/B ----- unchanged 
Carry=Clear 


| 


Calls: 


Inclusive: 
Stk lvls: 
History: 

Date 

72/77/82 


12/07/82 
01/06/83 


38 = RCLW1 


GEXPARD, GSCPTR 
C,D,DO,P 
1 
Pragrarnmer Modification 
BS Wrote and coded routines 
Pr Packed and docunented routines 


Reviewed docunentation 


- Recall ist (Top) Math Scrtch Stack Entry 


Category: MTHUTL File: PM&STA:: MS 


Narie:(S) RCLW1  - Recall ist (Top) Math Sertch Stack Entry 
Nane:(S) RCLW2 - Recall 2nd Math Scratch Stack Entry 
Nane:(S) RCLW3  - Recall 3rd Math Scratch Stack Entry 
Nare: RCLW4. - Recall 4th Math Scratch Stack Entry 
Narie:(S) RCL* - Recall Selected Math Scratch Stach Entry 
Purpose: 


Move the 15-digit forn 1m A/B to C/D and then recall 
the requested nath scratch stack entry 10 A/B without 
renoving that entry fron the stack. 


Entry: 
(A,B) 
RCL*: 
Pp 


= 45-forn nunber 


= © for ist entry on math scratch stack 
= n-1 for nth entry on math scraich stack 
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Exit: 
(A,B) = 1S-forn number fron match scratch stack 
(C,0) = (A,B) on entry 
Pp = 4 
DEC MODE 
Carry = Clear 
Calls: GEXPAD, GSCPIR 
Usas....... 


Inclusive: A,B.C,0,D0,P 


Stk lvls: j 


History: 
Date Progranner Modification 
PPL 7 7182 BS Wrote and coded routines 
12/07/82 PM Packed and docunented routines 
01/06/83 PM Reviewed docunentation 


15.39  STKCHR - Add a Character to a Stack Iten 


Category: MTHUTL File: SB&IO::nS 


Nane:(S) STKCHR - Add a Character to a Stack Iten 
Nare: STKCH+ - Add a Character to a Stack Iten 


Purpose: 
Decrenents stack pointer, checking av nen to be sure 
enough roon exists. Character C(B) 1s then written 
to werory. STKCH+t is sane except doesn’t trove stack 
pointer first. 


Entry: 
C(B)=Character to be appended to stack 
0(A)=(AVMENS ) 
[1 points te stack 


Exit: 
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Tos 


Exits to MFERR with eMEN error if not enough roon 
D1 points to new stack character 
Carry clear. 


Inclusive 


Stk lvls: 
History: 
Hate 


07/20/82 


40 


Category: 


Nane:(S) TSTIZA - 
Narie:(S} TST15  - 


Purpose: 


Entry: 


Exit: 


Calls: 


Alters (INC): 


Stk lvls: 


NOTE: 


TST12R 


None 


Modification 


Updated docunentation 


Prograrmer 


8.5. 


- Conpare numbers: 12-Bigit arg’s A,C 


MTHUTL File:  SM&MTH:: NS 


Conpare nunbers: 12-Digit arg’s A.C 
Compare nunbers: 15-Digit arg’s A/B, C/D 


Determine relationship between nunbers a & c. 
TST12A: = 12-dagit arg’s in A&C. 
S115 : 18-digit arg’s in R&B and C&D. 


P encodes predicate. 


Carry set=TRUE, P has the cell# associated with 
the number pair, arg’s in 15-dig forn unchanged. 


SPLTB, AFIN, CFIN, BIRSA+, BIASC+, 
BIASR-, BIASC- 


P,R,8,C,0, CARRY 
1 


Predicate (INPUT) & Cell# (OUTPUT) Table 
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9-bias P Cell Cell# P 
0001 1 acc 0001 = 1 
0010 2 a=c 0010 «2 
0011 3 ac 0100 4 
0100 4 avc 1000 8 
0101 5 
0110 6 
1000 8 ["?" = Unordered] 
1001 9 
1010 106 
1100 312 
1101 13 


(Pred is 9-bias of the systen token) 


Algorithn: Direct conparison of S,EXP, & MANTISSA. 


History: 


Date Progranner Modification 


07/12/82 SB 
10/06/82 SB 
02/09/83 SB 
02/25/83 SB 


15.41 BIASA+ - 


Category: 


Nane:(S) BIASA+ 
Nare: BIASA- 
Nane:(S) BIASC+ 
Nane: BIASC- 


Docunented 

Code Pack: Elininate Proj Mode 
Code Pack: Consolidate a=NaN tests 
Code Pack: Elininate GOTO LOGIC. 


Add Exp bias to A 


NTHUTL File: SM&NTH: 2S 


Add Exp bias to A 
Reriove Exp bias fron A 
Add Exp bias to C 
Reniove Exp bias fron C 


Purpose: Add (or remove) EXP bias [50000] to 15-dig Nun 


Entry: 15-digit nunber in A&B or C&D, DEC Mode. 


Exit: Unbiased or biased exponent, P=4. 


Uses (INC): P, and A[R] (or C{A]) 
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Stk lvls: 0 


History: 
Date Prograriner Modification 
02/10/83 SB Renoved =BIASAC entry. 
NOTE: BIASA+ = BIASA- (EXP+50000+50000=E XP) 
15.42 MSNI2 - Find nost significant NaN, 12-Dig arg’s 


Category: MTHUTL File: SM&MNTH: 3S 


Nare:(S) MSN12  - Find most significant NaN, 12-Dig arg’s 
Nane:(S) MSN15 - Find most significant NaN, 15-Dig arg’s 


Purpose: For 2-arg functions return most significant NaN. 


Entry: {A,B}: x [C,0): y (15-digit forns) 

Exit: CC - Neither x nor y is Nan, reg’s not altered. 
CS - [A,B] has most significant NaN. 

Calls: SPLTB,AFIN, CFIN, =TWONAN, SWAPXY. 

Alters: Carry. If exit CS, also registers A,8,C,0. 


Stack lvls: 1 


History: 
Date Prograriner Modification 
9/23/82 SB Narve change and 12-digit entry 
10/04/82 SB Code pack - Change near IX 
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15.43 CLASSA - Classification of numeric arg 


Category: MTHUTL File: SM&MTH: = MS 


Nane:(S) CLASSA - Classification of nuneric arg 
Purpose: User classification of numeric argunent 
Entry: 12-digit argument x in A. 

Exit: 12-digit y=CLASS(x) in C;  -6<=y<=6 
Calls: RAFIN, MAKE1 


Alters (INC): A,C,P,CARRY 
Stk lvls: | 


Detail: Sign(y) = Sign(x) 
Mag(y) = 1,2,3,4,5,6 (below) 
| x paises 
| zero } 14 | 
| --naneeeeccceeetecccceteceee nee |------| 
| Denornalized be 4 
| ----neeecen cen neeneee teenies |------| 
| Normalized { 3 | 
| -------n nnn cen see nneeeeencnon |---=-+| 
| Infinity 44 
| ---222-222nerneesteeec ccc eee |------| 
| Quiet NaN | 5 | 
| -------2-2--2222eeeensenneeceee |---=--| 
| Signalling NaN |} 6 | 
DATE Prograriner Modification 
6/01/82 SB Docunented 
10/25/82 SB Code Pack: Use MAKE1 
01/06/83 SB SR# 30 - Distinguish Sig NaN. 


02/07/83 SB Update header. 
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15.44 GETCON - Get constants fron table 


Category: MTHUTL File: SH&MTH: = MS 


Nane:(S) GETCON - Get constants fron table 
Narie:(S) GETVAL - Get constants fron table 


Nane:(S) PI/4 - Fetch P1/4 fron table 

Purpose: Access numeric constants stored in table. 
Entry: Table index in P (Selects desired constant). 
Exit: Constant selected in C 


Alters (INC): C,D[R]} 
Stk lvls: 0 


NOTE: 
Presently used only for constant table starting at 
label TRC9%. However by entering at label GETVAL, this 
code can be used to access constants stored in other 
tables. The 1st constant corresponds to P=14, the 2nd 
to P=13, etc. 


Algorithn: Value of P deternines offset fron table start. 


Kistory: 
Date Progranner Modification 
6/07/82 SB Docunented 
9/30/82 SB Use of D[A] instead of stack. 
01/06/83 SB New entry: PI/4 
02/07/83 SB Move =PI/4 above header-Cosnetic 


change only. 


™~ 
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16.45 MAKE1 - Make 12-dig 1 1m C and compare with B. 


Category: MTHUTL File: SM&NTH: 3 MS 


Nane:(S) MNAKE1 - Make 12-dig 1 in C and compare with 8. 
Purpose: Nake 12-dig 1.0 in C and test against value in B 
Entry: DEC Mode 

Exit: C: [0100000000000000], P=14; CARRY Set iff B=C 
Alters: C,P,CRRRY 

Calls: Nothing 


Stack Levels: 0 


History: 
Date Progranner Modification 
11/02/83 SB Dacunented 


15.46  DBLSUB - Double Precision Subtract 


Category: MTHUTL File: SM&NTH: 2M 


Nane:(S) DBLSUB - Double Precision Subtract 

Purpose: Dbl Precisian subtract (used in TRIG Reduction). 

Entry: R&C:¥, B&D: 31-digit positive fixed point 
values. First 15 high order digits are in fl & B. 
Notation: XH=high order ward of X. 


Exit: R&C: Z 
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Carry Clear: 2=¥-X 

Carry Set : Z=¥ (In this case Y<X) 
R B C 0 

(ENTRY) YH XH ¥L KL 


(EXIT) ZH XH ZL XL 
Alters (INC): A,C,Carry 


Stk lvls: 0 
History: 
Date Pragranner Modification 
6/07/82 SB Docunented 


15.47 OBLPI4 - Generate 31-digit PI/4 or 45 
Category: MTHUTL File: SM&NTH:: AS 


Narie:(S$) OBLPI4 - Generate 31-digit PI/4 or 45 


Purpose: Generate 31-digit value PI/4 -or- 45 


Entry: sRAD Status bit (sRAD=1 ==> PI/4, ELSE 45) 
Exit: Value in [B,D], P=5. 
Calls: PI/4 


Alters (INC): 8,D,P,Carry 


Stk lvls: { 
History: 
Date Progranner Modification 
6/07/82 SB Dacunented 
10/05/82 $8 Code Pack 
10/06/82 SB Code Pack - Elinianate cal! GETCON 
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15, 


01/06/83 SB Fix header, Pack by soving the 
entry PI/4 to before GETCON. 


48 TwO* - Double Precision Doubler 


Category: MTHUTL File: SM&MTH::NS 


Nane:(S) TWO* - Pouble Precision Doubler 
Purpose: Dol Precision doubler 

Entry: B&O: (B:XH, D:XL) 

Exit: B&D: 2*X 

Alters (INC): B,D,Carry 


49 SHFLAC - Double Precision Shift Left 
Category: MTHUTL File: SM&MTH:: MS 


Nare:(S) SHFLAC - Double Precision Shift Left 
Nane:(S) SHFRAC - Double Precision Shift Right 


Purpose: Dbl Precision (Fixed Point) shifts 
Entry: ARC:X (A:XH, C:XL) 
Exit: AB.C:10*X (or X/10) 


Alters (INC): A,C,(SHFRAC Only - SB) 
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5O  SHFRBD - Double Precision Right Shift 
Category: MTHUTL File: SM&NTH:3MS 


Nane:(S) SHFRBD - Double Precision Right Shift 


Purpose: Db] Precision (Fixed Point) right shift 
Entry: BU: (B:XH, O:XL) 
Exit: B&D: /10 


Riters (INC) B,D,SB 


51 PI /2 - Generate PI/2 
Category: MTHUTL File: SM&ATH:: NS 


Nane:(S) PI/2 - Generate PI/2 
Nane:(S) PI/2D  - Generate signed PI/2 


Purpose: Generate Pi/2 (15-Digit forn) 
Exit: CD: 1.57079632679490 

Calls: PI /4 

Alters (INC): €,0.P,Carry 


Stk lvls: 1 
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15.52 FLIP8 - Toggle status bits 
Category: MTHUTL File: SM&NTH:: NS 


Nane:(S) FLIP8 - Toggle status bits 
Nane:(S) FLIP10 - Toggle status bits 
Nane:(S) FLIP11 - Toggle status bits 
Purpose: Toggle Status bits 


Exit: Toggled status, Carry set if new status = 0. 


Alters (INC): Selected Status bit, Carry. 
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tenn n nnn ee nen enn enn nn een e nner en ne nn ene tenn nen nen ee nnn eee + 
| | 
| PARUTL - Parse Utilities | CHAPTER 16 | 
| | | 
tan nnn nn en nen nee ee one nen enn eee en een nn ene ne- teen ne nn en--------- + 
16.1 NTOKNL - Lex Analysis 
Category: PARUTL File: AB&LEX:: MS 

Nane:(S) NTOKNL - Lex Analysis 

Nare:(S) NTOKEN - Lex Analysis 

Narie:(S) PRESCN - Lex Analysis 

Nane:(S) RESCAN - Lex Analysis 

Nane:(S) VRIABL - Lex Analysis 

Nane: SHFTKN - Lex Analysis 

Nane:(S) ALLOUN - Lex Analysis 

Nane: HOWARD - Lex Analysis 

Nane:(S) LEAVE - Lexical Analysis 

Purpose: 


The lexical analyzer scans strings of ASCII characters 
and associates unique nunbers (tokens) with particular 
substrings (lexenes). The tokens are used by language 
parsing routines and interpreters. 


Entry: 
Hany different 


NTOKNL 


NTOKEN 


PRESCN 


RESCAN 


Looks 
Looks 


D1 as 
fh 1s 


entry points for different purposes. 


for line number, or any other lexene. 
for any lexene not a line nunber. 


current input buffer position. 
current output buffer position. 


D(A) is end of output buffer. 


Sane as RESCAN, except output pointer is still 
in DO, instead of C(A). 


Looks 


for another token corresponding to a 


lexene. 


IMPORTANT ENTRY POINT. There is where the 
lexical analyzer can be restarted 1f an 
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undesired natch occurred with an XNORD. 


D1 is reset to start of lexene to be 
rescanned. 

ACA) 1s Lexbuffer pointer returned for token 
to be replaced. 

C(A) is reset to start of token to be 
replaced. 

This 1s the output pointer, which will be in 

DO upon exit. This pointer 1s not actually 

used by this routine. 

D(A) 1s end of output buffer. 


YVRIABL - Looks for Basic variable nane. 


D1 is current input buffer position. 
RO is end of output buffer (done by previous 
entry points). 


SHFTKN - Places token in C(B) in front of tokens in A. 


D1 1s new input buffer position. 

DO is lexbuffer pointer. 

D(A) 1s execaddress, if there is one. 
RO is end of output buffer. 


ALLDUN - Restores output buffer pointer to DO. 


Di is new input buffer position. 

DO is lexbuffer pointer. 

D(A) is execaddress, if there is one. 
RO is end of output buffer. 


HOWARD - Restores output buffer pointer to 0. 


D1 is newt input buffer position. 

C(A) is lexbuffer pointer. 

D(R) is execaddress, if there is one. 
RO 1s end of output buffer. 


LEAVE - Restores end of output buffer to D(A). 


D1 1s new input buffer position. 
DO 1s current output buffer position, 
D(A) is end of output buffer. 


Exit: 
P=0, 
D1 1s new input pointer. 
DO 1s current output pointer. 
A contains token, up to 14 nibbles in length. 
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B[A}] is execution address (if there is one). 

B[X] is numeric constant exponent, if there is one. 
C{S] is lexbuffer pointer used for RESCAN. 

D(A] is end of output buffer. 


Calls: ARGCHK, BLDVAR, D=WORD, DGTSTR, GNXTCR, IOQFNDO, 
LOZERO, NUNSCN, Range, SCAN, STLXPT, STRCHK. 
Uses....... 
R,B,C,P,00,01,R0, SO-S3,S11. 
Stk lvls: 2 
Detail: 


The lexical analyzer consists of tuo parts: scanner 
and lexicon. The scanner 1s the code described here 
Hith several entry points, one major subroutine 
(NUNSCN) and many smaller subroutines. 


The lexicon 1s a set of tables: 


LXTYPT (lexical type table) 1s a table of character 
Categories, or types, which lives in systen ROM. 
This table helps the scanner reduce the tine 
selecting which scanning nethod to use: 
Type 0 - Direct: Use transfer character in type 
table as token. 
Type 1 - Word: Scan text table for string match. 
Type 2 - Relational: Scan for relational operator. 
Type 3 - Number: Call NUNSCN to fornat constant. 


LEXBFR (lexfile buffer) is an I/0 buffer in systen 
RAM which contains lextable IDs and naintable 
addresses. 


LXSPDT (speed table) is an optional table within 
each lexfile which tells where in text table lexenes 
with a particular first character begin. 


LXTXTT (text table) 1s a table in every lexfile 
containing the following text information: 
Lexene length - 1 nibble, 
Lexene text - 2-16 nibbles, 


a 


Lexene token - 2 nibbles. 


MRINT (main table) 1s a table in every lexfile which — 
contains token information: 
Text offset - 3 nibbles. 
Locates text in text table; used in 
deconpiling. 
Execaddress - 5 nibbles. 
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Self-relative pointer to token’s 
execution address. 
Characterization - 1 nibble. 
Syntactic class and spacing 





infornation. 
i History: 
Date Progranner Modification 
04/01/83 SA —=~S*@Fragurred out requster & subr usage 
10/17/83 9 NM Attenpted to docunent 
16.2 SCAN ~ Scan LEXfile Text Table For Lexerie 


Category: PRRUTL File: RB&LEX:: MS 


Narie:(S) SCAN ~ Scan LEXfile Text Table For Lexene 


Purpose: 
Scan LEXfile text table for text matching keyword 
tlachine 1S trying to parse. 


Entry: 
D{W] contains keyword nachine is trying to parse (up 
to 8 bytes). 
Di = input pointer (pointing at data which was read 
into D[W]. 


00 pointing at wordsize nibble of first keyword 
to examine in text table. 


Exit: 
Di moved past lexene in input strean. 
Carry set -> lexerne not found. 
Carry clear -> token in ALR]. 


Calls: None, 


A[S],C,P, 00,01. 
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Stk lvls: 0 
History: 
Date Progranner Modification 
——- sQtsti‘(mwrotESOOO™~—OCS 
11/01/83 NM Added docunentation 


16.3  NUMSCN ~- Scan Nuriber In Lexical Analysis 


Category: PARUTL File: AB&LEX:: MS 


Narre: (S) NUMSCN - “Scan Nunber In Lexical Analysis 


Purpose: 
Generate token for nuneric constant or solitary ASCII 
period. 


Entry: 
Di at start of numeric character string. 


Exit: 
DEC node. 
P=0. 
$3=1 for incomplete exponent. 
D1 past numeric character string. 


A[B] = nuneric token and mantissa or ASCII digit. 

B[N] = right-justifired mantissa. 

B[X] = exponent. 
Calls: DGTSTR, LDZERO, ROUND. 
Uses....... 

A,8,0,0,P,01. 
Stk lvls: 1 
History: 
Date Progranner Nocification 
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| 
04/01/83 SR Figured out register & subr usage 
10/17/83  &N Atterpted to docunent 
16.4 LINEP - Parse Main Driver after ENDLINE 
Category: PARUTL File: JP&PR1:.MS 
Nane:(S} LINEP  - Parse Main Driver after ENDLINE 
Narie:(S) LINEP+ - Parse Main Driver from anywhere 
Nare:(S) UNPEXT ~- Parse Main Driver external entry 
Nane:(S) LNEP66 - Parse Main Driver return entry 


Purpose: Main driver routine to parse a line: 
1) LINEP entry 1s called by MRINLP after 
ENDLINE as entered on an input line. 
2) LINEP+ entry 1s called to parse a 
line, regardless of where the line is. 
Used by direct execute keys (colon 


key definitions) and STARTUP. 


3) LNPEXT entry is the ’external parse’ 
entry. By setting f1RIN, it ensures 
that in all cases (including errors), 
control returns to the caller. Used 
by TRANSFORM. 
Entry: 3 entry points: 
1) LINEP - Line to be parsed is in the display 


buf fer. 

2) LINEP+ - INBS points to start of input line. 

3) LNPEXT - External Parse Entry 
Needed statuses (including $13) should 
be saved. INBS points to start of 
input line. QUTBS points to where 
tokenized line should go. 
AYITING should be zero - may be default 


Exit: 
LINEP: 
If valid progran statenent(s) 
It is edited into current progran file 
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If valid calculator BASIC statenent(s) 
(including inplied DISP) 
it 18 executed 
Else ERROR exit 
Error nessage displayed; 
Line redisplayed with cursor; 
Jump to MAINLP 
LNPEXT: 
S5=1 => Line# on line 
$52=0 => Ho lined 
Carry clear => Line parsed successfully. Compiled 
line starts at address pointed to 
by OUTBS. 
Compiled Jine length in R3. 
Carry set => Error in parse. 
C(3-0) = erroré. 
If €(3-0) = 0000 
Then found only t&€CL (“null line") 
(itay be preceded by a line#; S5 
indicaces presence of a linet) 


NOTE: Any usage of LNPEXT entry rules out implied 
DISP 1n the case of failed inplied LET parse. 


Calis: GNXTER, LINWHP, NTOKEN, NTOKNL, CROJMP, I/OAL+, 
OUTZTK, RANGE, EXPPAR, EXPEXC,. NAKEBF, RTNSET, 
FILEP+, PEDIT, MOVEUR, SYCQLL, WSRO-3, AVS=D0 
CRLEOF,OVFLCK, TRNFCK, D1=IBS, QBCOLL, LDCSET, 
ALITELR, LBLCK, PEDITD, SURSTU, RESPIR, OUTB+5, 
FSPC12, 'Ck, 'CK3, RS-RO3, OUT3TK, OUTITK, WROSCN 
STATi+, UPDIN+, OUTBYT, ELSEP, LNPOO, OBLCMP,GETLEE 


lises; A-D, RO-R3. 91,09, SO-S11, 
$-RO-2, S-RO-3, STMTR1 (all 16 nibbles), STMTDO 
FLRTN (only used with LNPEXT entry) 


Stk lvls: ? 


NOTES: A) Line parse oniy special checks for TRANSFORM 
(extemal entry) in four distinct places: 
1) eol, 
2) lane#, followed by eal 
3) parse error 
4) correctiy parsed i:me about to be edited into 
program nenory. 


B 


— 


C 


er 


Any usage of LNPEXT entry rules out implied DISP an 
the case of failed implied LET parse. For exanple: 
10 5*A would be parsed as: 
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10 DISP 5*A 
But: 
10 A*5 would result in an error. 


Detail: 
Key RAM and CPU register usage: 
S-R1-0 Original error# before 1st RESTART 
S-R1-1 Original Error position before 1st RESTART 


S-RO-2 (Subr Save) GLOBAL 
S-RO-3 IF clause in progress GLOBAL 
S-R1-2 (RESTART ADDR), S-R1-3 (RESTART FLAG) GLOBAL 
STMTDO (RESTART PTR) GLOBAL 
54 - No restore of input pointer GLOBAL 
S65 - Line nunber found, progran stnt GLOBAL 
S6 - Pending THEN GLOBAL 

S? - Multi-statenent line TEMP 
Always CLEARED by EXPPAR call GLOBAL 

$8 - Delete (for PEDIT) TEMP 

S39 - Middle of IF (for ERROR) TEMP 
$10 - Implied LET Error GLOBAL 


R3 - Error Msg Ptr & Line position if INPLET Err 
D - End of available nenory 


Avatlable status for a Parse routine: S8, $9 
These 2 status bits are clear on entry for all 
parse routines. 


Algorithn: 


Entry point for TRANSFORM (LNPEXT) saves return 
stack level in S-RO-2 and sets FIRTN => A: 


LINEP: (nornal statenent parse entry point) 
Copy Display Buffer to Connand Stack (MAKEBF) 
Set INBS to start of input line in command stack 
Send Carriage Return & Line Feed (CRLFOF) 
(so next character will clear display buffer) 
Clear externally invoked flag (f1RTN) 


A: Set OUTBS to AVMENS (Collapses Output buffer) 
Point D1 to start of input line 
Clear SO-S11, $13 
Set D(A) = End of Available Menory 
DO = OUTBS (Qutput buffer start) 
Call Block 1 


wood 


Retokenize lexene 

If line# 
Set S5; Decrerient DO (delete statenent 
length byte at buffer start); Output linet 
Call Block 5 
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If tEOt 
If externally invoked (f1RTN set) 
THEN error 
ELSE clear AUTO flag; delete line 
B: Decrement WO 
Call 1. 
Retokenize. 


Bi: If Begin BASIC connand (S$3=1) 
THEN goto E. 
ELSE If Systen Connand (S$3=0,S0=1) 
THEN error 
C: If ! 
THEN parse renark; goto 12 
ELSE error. 
If externally invoked (f1RIN set) 
THEN error; 
Clear AUTO flag 
If tEOL (null line) 
THEN exit parse 
ELSE goto C. 


BLOCK 1: 

Save D0 (statenent length byte) in INADDR; 

Increnent DO; Clear RESTART flag (S-R1-3); 

Clear Err# (S-R1-0); Call NTOKEN; 

Set RESTART flag if XWORD or XFN & 

save RESTART address (S-R1-2). 

Save contents of LEXPTR (position of Di 

before NTOKEN call) in STMTDO - will be 

needed to restore input pointer for RESTART. 

Clear Middle of IF flag ($9) - Allows Implied 
LET error to recover as Implied DISP 


Entry point for variable or FN after THEN/ELSE: 


C2: If variable or FN: 
set implied LET error flag (S10) 
If no line# on line 
Clear AUTO flag 
C: Try irplied LET parse 
Goto 10. 
If looking at ist lexene on line 
If line# followed by ! 
set $5; output line#; save DO (location of 
Statenent length byte) in INADDR; increnent 
DO; Parse renark; goto 12 
If not a terminator (eg not tEOL,@,!, tELSE) 
If legal implied DISP statenent followed by 
a terminator 
If no line nunber on line 
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Clear RUTO flag; goto 10: 
Restore D1,D0; return 
END OF BLOCK 4 


***Block 5 only returns if a label is not found*** 


BLOCK 5 
Save DO (position of statenent length byte) in 
INRDDR; increnent DO 
If quote 
Set appropriate flag(s); 
Step over 1t; Call FILEP+ 
If legal 
THEN If matching closing quote 
8: THEN if colon follous 
THEN LEGAL LABEL; 
Output tLBLST & label 
If tEOL follows 
THEN goto 13 
ELSE goto 11 (parse as @) 
ELSE RESPIR; Return 
ELSE RESPTR; Return 
ELSE RESPTR; Return 
If 1st character is letter 
RESPIR; GNXTCR; FILEP1; Goto 8 
END BLOCK 5 


OD: If not Calculator BASIC (S0=0) 
THEN If begin BASIC (S$3=1) 
THEN error 
ELSE goto C. 
E: If in IF statenent (S-RO-3 nonzero) 
F: If not legal after THEN/ELSE (S2=0) 
THEN error 
If pending THEN (S6=1) 
If token is IF token 
THEN error 


If XWORD 
THEN Output 3-byte token 
ELSE Output 1-byte token 
Calculate Parse address 
Clear flags (S0,S8,S9,S10) 
Gosub to Parse routine (CRGJMP) 
If Middle of IF return (Carry Set) 
THEN Exterided IF token already output; 
INADDR points to following byte; 
DO 1S pointing past that byte 
S9 is set (riddle of IF flag) 
S-RO-3 nonzero (IF in progress) 
H: If S$5=1 
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THEN goto B1 
ELSE goto D 


10; Nornal stnt return (carry clr) 
Get Next Token 
If ELSE 
If no pending THEN (S6=0) 
THEN error 
ELSE Clear S6; Decr DO; Output t@; 
Call STMTLN, UPDIN+; Output tELSE 
Call ELSEP; goto 10 
Check legal stmt terminators (@,!,E0L) 
Clear $? 
If @ (Multi-staterient line) 
11: THEN Set S7, Output t@ 
ELSE If ' = (Renark) 
THEN Output t', Renark; goto 12 
ELSE If EOL 
12: THEN Qutput tEOL 
ELSE Error Exit --> Excessive Chars 
13: Output terninator 
Clear S10 (Implied LET error flag) 
Calculate & write out statement length 
If multi-statenent line 
If $5=1 
THEN Call 5; Goto B 
ELSE Call 1; Goto 0 
Set AVNENS to DO 
If line# found ($5=1) 
If externally invoked (f1RTN set) 
THEN exit with carry clear 
ELSE Edit line into progran nenory (PEDIT) 
Return to Main Loop 
Calculate output buffer length, rove to 1/0 buffer 
area; call SYCOLL (Resets AVMENS,OUTBS to SYSEN) 
Execute Calc. BASIC Stmt (BSCEXC) 


See the portion of the algorithm handled in IFP 


in JP&PR3 

History: 

Date Prograrmer Modifications 
07/08/82 S.N. Updated docunentation 
10/15/82 SU. Added call to DI=IBS — 
01/07/83 = S.W. Added algorithn 
06/03/83 JP Set AVNEMS @ DO before PEDITD call 
11/01/83 SW. Modified documentation header. 


| 24 
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16.5 LBLINP - Parse Line Nunver or Label 


Lategory’ PRRUTL ride: JP&PRI::MS 


Rarie:(S) LBLINP - Parse Lire Number or Label 

Nane:(S}) LBLNIF - Parse tine Number or Label efter THEN/ELSE 
Nane:(S) CINP - Parse Line Nunber orily 

Purpose: 


Parse line nunber or label: 
LOLINP er LBLNIF entry allous fine nunber or label 
LINP entry looks for lane murber only 


Entry: 


Exit: 


DO points past last token written to output buffer 
D(A) conta:ns (AVMENE) 
3 entry points: 
1) LBLINP - 91 pointing te alleged line# or label 
2) LINP - D1 pointing to alleged line#. S9=1 
3) LELNIF - Exit conditions from NTOKNL: P=O, 
R{B) contains token te check, D1 past 
alleged line# or jabel. 
$9=0 => Allow line# or label 
S9=1 => Allow line# only 


Carry clear 

Line# or label found and tokenized 

01 past line# or label 

Dh) past tokenized line# or label 

If line# found, 
A(3-0) contains linet 
The following 11 nibbles are output: 
tLINEH 00000 <4 nib BCD Linet> 

Tf label found, 1% 1s cutput in 1 of 2 
fornats using either LABELP or FSPLIO: 
tLBLRF <string expr> - LABELP 
tLBLRF tLITRL <ascia label> - FSPC1O 


Carry set 
LBLINP entry => Ist char not letter | line# 
LINP) =o entry => Line# not found 
LBLNIF entry: 


ah 

Dm 
1 

~ 
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$3=0 on entry => Ist char not letter | line# 
S9=1 on entry => Line# not found 
Calls: NTOKNL, LINPH2, LABELP, GUT3TK, OUT2TC 
OUTAYT, RESPTR, FSPCL10 (golong) 
ses....... 
Exclusive: &,B,0,01,59, $10, 00, Bi 
Inclusive: A,B,C,D1,S9,S10, D0, D1, SO-S3,$7,S11,D(S),RO,R4,R3,P 
Stk lvls: 5 
Detail: S9 used by LBLINP entry only 


S10 used by LABELP to ensure no reserved word check 
Algorithn: 


If next token = line# (LINFHZ) 
Cutput linet taken (QUTBYT) 
Zero out Line# jurp address field 
Output line# (QUTTTK) 
Return, carry Clear 
If S9=1 (Line# Parse only) 
Return, carry Set 
else 
Output Labei Reference Token (QUTBYT) 
Restore Input pointer (RESPIR) 
Set No RESERVE word parse flag (S10) 
Parse lab2t (LRBELP) 
If legai label 
If string exoressicn 
RINCC (Label already output) 
else 
golong to sutput Literal Tonen & Label 
else 
Back up Gutput pointer over Label Token 
RINSC (illegal first character found) 


NOTE: 
Tokenized forn: 


<lineno> ---> (Laneno Token) (5 nib jump addr) (4 nib Line#} 


«label» ~--> {Label Ref Token) (String Expression) 
<label» ---» (Label Ref Token) (Literal Token) (ASCII Label) 
History: 
Date Progranner Modification 
07/08/82 1P =——sNodafsed documentation = 
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11/23/82 JP Reroved Stack level saving 
11/29/82 IP Renoved S2/Label found flag 
11/01/83 SW, Cleaned up docunentation header 
16.6 EOLCK - Check for EOL.@,', ELSE 
Category: PARUTL File: JP&PRIZMS 
Nane:(S) EGLOK  - Check for EOL,@,!', ELSE 
Nane:(S) EGLCKR - Check for EOL,@,!', ELSE 
Purpase: 
Checks for tEOL, @, | , tELSE 


EOLCKR entry calls RESPTR before checking. 


Entry: 

EQLCKR - NIOKEN (or WRDSCN) has already been 
called; D1 past keyword/character to 
check (except 1f token was tEOL) 

EOLCK - B1 at optional blanks preceding 
keyword/character to check. 


Exat: 
P=0 
ACB) = Token found 
D1 past the keyword/character found 
Carry Set => 
Statenent terminator found (tEOL, tELSE, @, |) 
Carry Clr => 
Statenent terrinator not found 


Calls: WROSCN, RESPTR 
Uses. ...... 

Exclusive: A-C,D1,R1,R2,P 
Inclusive: A-€,01,RO-R2,S0-S3,3511,P 
Stk lvls: 4 


Detail: M is preserved fron entry 
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History: 


Date 


07/08/82 
11/02/83 
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Progranner Modification 
JP Modified docunentation 
S.u, Modified docunentation - Routine 


doesn’t use DO. 


Keyword Scan fron Table 


Category: PRRUTL 


Name. (S$) WROSON 


File; 


JPRPRE? MS 


Keyword Scan fron Table 


Nane:(S} WRDSC+ - Keyword Scan fron Table 


Purpose: 


WROSCN tries to match the text pornted to by D1 wath 
any of the keysiords specified by the caller; the 
acceptable heyword tokens are iisted in table fornat 
anriediately following the call to WRUSCN or WRDSC+. 
one of the specified keywords is found, its corresponding 
token:zation 1s output and contro!) branches to the label 


specified by the WRDSCN table. 


To accomplish this, WROSON repeatedly calls NTOKEN until a 
token match is found or until all keyword tables in the 


HP-71 have been searched. 


The WROSC+ entry point 1s identical to the WROSCN entry, 


except that WRDSC+ first calls RESPIR. 


Entry: 
D(R) = 


(AVTE ME } 


Table address 1s on return stack upon entry 
(ie. table immediately follows GOSUB. } 


M points into output buffer 


WROSC+: 


WROSCN: 


LEXPTR contains address pointing to optional 
blanks preceding characters to tohenize. 
D1 at optiaonai blanks preceaing characters 


to tokenize. 


If 
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Exit: 

P=0 

Match found=> 
No return to caller; control transferred to 

specified label. 

Token output to address pointed to by DO 
Specified token in register A 
D1 past specified keyword 
DO past keyword tokenization 


Match not found=> 
Return with carry clear 
Last token found in A(B) 
D1 past corresponding keyword 


Calls: NTOKEN, RESCAN, OUTNBS, RESPTR, XCHECK, XCHEK1 


Exclusive: 


A, ,R1,R2 
Inclusive: A, R 


at 
»C,R1,R2,50-S3, S11, RO 


Stk Ivls: 


w 


Detail: 
Sanple call: 
GOSUBL =WRDSCN 


CON(2) =tBASE 1-byte token 

REL(3) =FIXP If tBASE found, goto FIXP 
CON(6) =tRNGLE 3-byte token 

REL(3) OPTP10 If found, goto OPTP1O 
CON(6) =tROUND 3-byte token 

REL(3) OPTP20 If found, goto OPTP20 
CON(2) 0 00 byte terninates table 


we ee ae ne an a a a ee a a ee we ee ee ee wee 


How it works: 


Calls the lexical analyzer and scans through table 
trying to natch one of the tokens(XWORD or regular) 
and junps to an address specified in the table 

table for that token. 

If the token returned by the lexical analyzer 1s not 
natched but 1s an KWORD, the lexical analyzer is 
restarted and the table 1s re-scanned fron the 
beginning, 

If no match can be found then execution continues 
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following the end of the table. 


The table consists of any nunber of entries, where 
each entry 1s a token followed by a 3-nibble relative 
address tuhich is branched to 1f that token is matched. 
A token ray be either 2 or 6 nibbles long, depending 
on uhether it 1s an XWORD/XFN/FFN token versus a 
nainfrarie token. The table is terminated by a OO 
token; the table is innediately followed by the code 
to handle the “otherwise” case (1e. the table has been 
skipped over). 


History: 
Date Progranrer Modification 
07/07/82 IP Nodified docurentation 
10/17/82 = B.S. Modified routine to use 3 nibble 
relative entries instead of 4 nibble 
absolute. 
02/11/82 B.S Modified routine to handle FFNs 
11/02/83 S.W Modified header docunentation. 
16.8 SYNTXe - "Syntax" Parse Error Exit 


Narne 
Nane 


Category: PARUTL File: JP&PR2::MS 


3(S) SYNTXe 
2(S) IVEXPe~ 


"Syntax" Parse Error Exit 
"Invalid Expression" Parse Error Exit 


Nane:(S) IVPARe - "Invalid Parareter" Parse Error Exit 
Nane: ERR3 - “Invalid Parameter” Parse Error Exit 
Nane:(S) MSPARe - "Missing Parameter" Parse Error Exit 
Nane:(S) IVWWARe ~- “Invalid Variable" Parse Error Exit 
Nane:(S) ILCNTe - "Illegal Context" Parse Error Exit 
Nane:(S) EXCHRe - "Excess Characters" Parse Error Exit 
Nane:(S) QUOEXe - "Quote Expected" Parse Error Exit 
Nane:(S)} PRNEXe - ") Expected’ Parse Error Exit 
Nane:(S) FSPECe - “Invalid Filespec” Parse Error Exit 
Nane:(S) PARERR - Generic Parse Error Exit 

Purpose: 


16-17 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Parse Utilities 


Parse ERROR Exit Routines. 

The ist 11 entry points above all fall into PARERR. 

Depending on entry conditions, PARERR nay: 

1) Display the error message and redisplay the line, 
With the cursor flashing on the character pointed 
to by Di or (LEXPTR). 

or 

2) Attenpt to reparse the statenent as an implied 
DISP. (S$10=1,89=0 on entry) 

or 

3) Attenpt to reparse the statenent as an inplied 
GOTO <label>. (S$9=$10=1 on entry) 

or 

4) Restart the lexical analyzer and reparse the 
entire statenent. (RESTART flag nonzero) 


Entry: 


Exit: 


S4=1 if D1 set at error position. 

S4=0 if LEXPTR contains address of error position. 
$10=1 if inplied LET error (try implied DISP) 
S10=S9=1 if middle of IF stnt and inplied LET error 


This entry condition 1s handled by the driver: 
S-R1-3 (RESTART Flag) = 0 => Don’t restart 

F => Norral restart 

E => Restart of extended IF 


PARERR - Lower 4 nibbles of DO contain errort 


If $10=0, (S-R1-3)=0 on entry 
Exit through MFERR: 
Display error nessage 
Redisplay Input Line with Cursor at Error 
Returns to Main Loop 


If RESTART flag set (S-R1-3)#0 on entry 
exit through RESTAR 


If *Nortial’ inplied LET error (S10=1 & S9=0) 
Try implied DISP parse 


Tf Inplied LET error & Middle of IF (S$10=S9=1) 
Try inplied GOTO <label> parse 


Calls: RESPTR, R3=D10, DIC=R3, EOLCK, RSTRT?, TRNFCK, 


Uses: 


EOLCK+, NTKEN+, UPDIN+, LBLINP 
A-C, RO,R3, DO,D1, $4,58-S10 


Stk lvls: 1 
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6 if Implied LET/Middle of IF /Restart 


Algorithm: 
If $4=0 
THEN RESPTR 
If RESTART flag (S-R1-3) set 
THEN goto RESTAR; 
ELSE If previously restarted (S-R1-0 [err#] #0) 
THEN Restore D1 to original error position 
using S-R1-1; Set DO fron S-R1-0; 
If Inplied LET error (S10=1) 
Restore D1,D0 fron R3; Clear $10; 
If not in middle of IF (S9=0) 
THEN try inplied DISP 
ELSE Decrerent DO 4 nibbles 
(over tEXTIF & stnt length byte); 
Recover old INADDR fron S-RO-0; 
Call GOSUBP; 
Handle as error. 


Note: 
If error 1s ILLEGAL CONTEXT & S9 is set, then S10 
is cleared. This prevents illegal context errors 
innediately after THEN/ELSE from being interpreted 


as labels. 
History: 
Date Programmer Modification 
01/07/83 Su Added algorithn 
02/04/83 JP Added nneurione entry point nanes 


16.9  RESTAR - Restart Lex Analyzer 


Category: PARUTL File: JP&PR2::MS 


Nane: RESTAR - Restart Lex Analyzer 
Narie:(S) REST*  - Restart Lex Analyzer 
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Purpose: 
Restarts the Lexical finalyzer uhen the parse of an XWORD 
token fails; allows the parser to find smaller keywords in 
the sare LEX file, as well as similarly spelled keywords 
in other LEX files. 


The RESTRR entry point is used by the parse error driver 
ta try all possible statenert parses, before reporting an 
error; the original parse error and position 1s saved and 
is later restored if ali subsequent parse attempts fail. 


The REST* entry point 1s used by a LEX fale when @ parse 
fails and it 1s known that RESTAR will find a subsequent 
Siatenent parse in the nainfrane which can give a clearer, 
more coherent error message. This entry point ensures 
that the caller’s error number and error position 1s NOT 
preserved anyubere - if is as though the keyword was never 
found. 


{ 


(SIMTDO) = Input pointer fo restart 
~2) = Restart Addrese 


2 entry points: 
RESTAR - If RESTAR hasn't been previously called 
Then C{(A)=0 
DO=Latest error# generated 
H1=S-R1-0 
ACRi=Error position 
Else... 
(S-R1-0)=Griginal error¥ 
(S-Ri-1)=Original error position 
If not failed label parse after THEN/LLSE 
Then $8=0 
(INADUR) = addr of last stnt Jength byte 
CCSJHE aff Extended IF 
Else... 
S8= 4 
R3{A) pts 2 nibs past last stni len byte 


REST* - (INKDDR) = address of Last stnt length byte 
(S-Ri-3)HF aff Extended IF 


Exit: 

Control] is turned ever to the main parse driver. 
Calis: RESPTR,RESCAN,R.STPR, STLXP2, SVRST2 ERTIF 4 
Uses....... 
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Inclusive: A-C, D1,00, SG-S3,$8,S11, RO,R3 


Stk lvls: 


Detar]: 


3 


The component parts of RESTART are as follons: 
Original errar#; set prior to Ist tine 


S-R1-0 


through RESTAR 
S-R1-1) Original error position; set prior to ist 
tine through RESTAR 
S-R1-3 Flags the parse error handler whether or 
not to RESTART the lexical analyzer. 
If S-81-3 1s nonzero, STNTDO contains the 
address at which to set Dl te restart and 
S-R1-¢ contains the restart address. 
S-Ri-3 1s cleared when NTQFEN as first 
calied: It 15 set (along with STNIOO) uhen 
the begin BASIC toker as an AWOKE, 
S-R1-¢ Contains RESTRE; address. Set inatually 
hen NIGKEN farst called. Updated uhen 
RESCAN called in RESTAR. 
STHTDO Contains address at which D1 should he at 
when restarting the lexical analyzer, Sei 
and cleared itith S-R1-3, 


Algorithn: 


If ist tine theu RESTART for this lexene 
(S-R1-0 contains 0) 

Save err# in S-R1-0 & position ar S-R1-13 
Clear RESTART flag (S-R1-3); 
Get input ptr from STMIDO & write out tea LEXPIR 
(needed ‘cause RESCAN doesn’t save as NTOKEN does): 
Retrieve RESTART add: for lexical analyzer (S-Rt-2); 
Restore DO fron INADDR; 
Call RESCAN; Set RESTART flag (S-R1-3) 1f XNORD/XFN: 
Save RESTRRT address in S-Ri-2; 
Goto H (nai parse driver - JP&PR1), 


History: 
Date Programmer Modi fication 
07/06/82 JP Modified documentation 
~~ 08/23/82 SL, Added doturertation on S-Rt-2, $-R1-3 
and STNTOG, 
11/15/82 Sd Deleted error exit option - wasn't 
used anywhere 
O5/24/82 SLM. Added Rr* entry peant for use by 


language eytensions; this is an alterna?? 
five to the “usual” error exit (the 
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usual error exit saves the original 
error and restores it if no other parse 
works), REST* can be used ONLY if it 17? 
knoun that restart will eventually give 
control to a nainfrane parse routine; 
REST* can be useful to prevent obscure 
error messages. If a previous parse 
error occured, the first one generated 
in the ‘usual’ way 1s preserved; other- 
Hise the next error generated in the 
usual’ way (not using REST*) 1s 
preserved. 

For exanple: 

The HPIL parse for ON INTR, nay choose 
to suppress 3ts error nessage/posi tion, 
in favor of any one given by ON ERROR| 
TIMER | <expr> 


16.10  GNXTCR - Get Next Non-blank Character 


Category: PARUTL File: JP&PR2:: M8 


Nane:(S) GNKTICR - Get Wext Non-blank Character 

Nane:(S) ORGNXT - Qutput byte, Get Next Non-blank Character 
Narte: GNXCR+ ~- Get Next Non-blank Character 

Purpose: 


Gets next non-tblank character. 


URGNXT first outputs a byte fron A(B) before scanning 
for the next non-blank character. 


GNXCR+ first ancrenents D1 by 2 before scanning for 
the next non-blank character. 


Entry: 
ORGNXT - A(B) contains byte to output 
D(RG = (AVNENE) 
DO points to where byte to be written 
D1 points to where to begin scanning for 
next non-blank character. 
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GNATCR - D1 points to where to begin scanning for 
next non-blank character. 


GNKCR+ - Di points 2 nibbles prior to where to begin 
scarining for the next non-blank character. 


Exit: 
D1 points to next non-blank character 
ACB) = Next non-blank Character 
C(B) Ascii Blank 


If not enough nenory to output byte, generates 
RENERR (QRGNXT entry only?) 


Calls: QUTITK ~ (ONGNXT tinly) 
Uses: h.8},C(B), OO (ONGNKT Only),D1, P 
Stk lvls: 

ONXTER: Q 

GNKCR+:  G 

ONGNXT: 2 

Date Progranner Niodification 
07/07/82 IP Nodified Docunentation 
O9f24/82 FR Nodified Docunentation 
1V/O2/83 SW, Fixed docunentation header 

16.17 RESPIR - Restore Input Pointer 


Category: PAPUTL File:  JFSPR2::M$ 


Nane:(S) RESPIR - Restore Input Pointer 


Purpose: 
Restores [1 to rts position prior to NTOKEN call 
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Entry: 
(LEXPTR) = address of input pointer (advanced past 
leading blanks) prior to last call to 
NTOKEN. 


Exit: 
D1 re-positioned 
Carry clear 


Calls: none 
Uses: ACA), 04 
Stk lvls: 06 
History: 
Date Prograrner Modification 
07/08/82 SM Added docunentation 
12 CONCKO - Check Comma & Output Conna Token 


Category: PARUTL File: JP&PR2::NS 


Nane: COMCKO - Check Cornna & Output Conna Token 
Nane:(S) CONCK+ - Check Conna & Output Conna Token 


Purpose: 
Checks for tCOMMA & outputs it if found. 


COMCKO entry requires that NTOKEN be called 
before cheching for tCONNA. 


CONCK+ entry assunes that NTOKEN has already 
been called. 


Entry: 
D(A) 
DO 


(RVMENE ) 
pointer to where tCONMA to be output 


woot 


2 entry points: 
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1) COMCKO - D1 at opt. preceding blanks before 
alleged corma. 

2) COMCK+ - A(B) contains byte to cunpare against 
tCONNA. 


Exit: 

P = 0 

Carry set => tCONMA found & output 
DO increnented past tCONNA 
CONCKO entry: 
Di pts past ascil corna 
CONCK+ entry: 
D1 preserved fron entry 


Carry clr => tCOMMR NOT found 
DO preserved from entry 
COMCKO entry: 
A(B) = token found 
D1 advanced past corresponding text 
CONCK+ entry: 
A(B) preserved fron entry 
D1 preserved fron entry 


If tCOMMA found, but not enough nenory to 
output 1t, exits to MEMERR 


Calls: NTOKEN, CONMCK1 
Uses: C, BO, P (CONCK+ entry) 
A-C, D1,00, SO-S3,S11, RO, P (COMCKO entry) 
Stk lvls: 3 
History: 
Date Progranner Modification 
05/11/83 SM Added docunentation = 
16.13 #CK - (Check for # 


Category: PARUTL File: JP&PR2:: M$ 
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Narie:(S) #CK - Check for # 


Purpose: 
Conpares next non-blank character against ascii # 


Entry: 
D1 points at optional blanks preceding character to 
corpare against 


Exit: 
P = 0 
D1 points to next non-blank character 
A(B) = Next non-blank character 
Carry clear => Character is # 
Carry set => Character is not # 


Calls: GNXTCR 
Uses: ACB), C(B), Di, P 
Stk lvls: 1 


History: 
Date Progranner Modification 
11/03/83 S.W. Added docunentation header 
16.14 NXTP - NEXT statenent parse 


Category: PARUTL File: JP&PR3::MS 


Mane: (S) NXTP - NEXT statenent parse 
Purpose: 
Parses NEXT Statenent. Also useful for 
Simple nuneric variable parse. 
Entry: 
D(A) = (AVMENE) 
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D1 at alleged sinple nunmberic variable 
DO points into output buffer 


Exit: 
Carry clear => 
Sinple nuneric variable found and output 
= Q 
Carry clear 
D1 advanced past variable 
DO points past tokenized variable 


Else error exit to PARERR with eILVAR 
Calls: YARP 


R-C, DO, D1, S$0-53, S11, RO 


Stk lvls: 4 
NOTE: 
Thais also serves as parse for NEXT statenent 
History: 
Date Progranner Modification 
02/03/83 SM. Added documentation == 
16.15 VRRP - Variable Parse 


Category: PARUTL File: JP&PR3::MS 


Nane:(S) VARP - Variable Parse 
Narte: VARPOS - Variable Parse 


Purpose: 
Checks for a variable token. If found, 1t is output; if 
the token is not a variable token, an error exit is 
taken. 
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VRRP entry assunes that Dt points to optional blanks 
preceding the text to check. 


YARPOS entry assunes that NTOKEN has already been called, 
and that the token to check 1s in register A. 


Entry: 

D(A) = (RVMENE) 

DO) points into the output buffer 

2 entry points: 

1) VARP - D1 at optional blanks preceding text to 
be exanined. 

2) VARPOS - Register A contains alleged variable token. 
Di points past the corresponding text as per 
NTOKEN exit. 
(LEXPTR) as per NTOKEN exit. 





Exit: 
Return to caller => 
Variable parsed 
Tokenized variable written to output buffer 
DO past variable tokenization in output buffer 
D1 past variable nane 
Carry set => 
Nuneric variable found 
Carry clr => 
String variable found 


Error exit if variable not found or if MEMERR 


Calis: NTOKEN, OQUTVAR 
Uses....... 
Exclusive: 0O,D 


A,0O,D1 
Inclusive: A,8,C,S0-$3,S811, D0, D1, RO 


Stk lvls: 3 
History: 
Date Progranner Modification 
07/06/82 JP Modified documentation = 
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16.16 ARRYCK - Parses Doubly Dinensioned Array 


Category: PARUTL File: JP&PR3:: M5 


Narie:(S) ARRYCK - Parses Doubly Dinensioned Array 


Nanrie: ARRYO1 - Parses Singly Dirensioned Array 

Purpose: 
ARRYCK entry is useful for parsing one or tuo dimensional 
arrays. 


ARRYO1 1s useful for parsing a single numeric expression 
followed by a closing parentheses; this could be a single 
dinension array parse or TAB parse. 


Entry: 
D(A) = (AVNENE) 
Di points at input strean 
DO points into output buffer 
2 entry points: 
1) ARRYCK - 01 @ Left parentheses. 
2) ARRYO1 - D1 past left parentheses. 


Exit: 

Valid parse => 
Return to caller with carry Set 
Subscript(s) output 
D1 points past the closing parentheses 
DO points past the output subscript(s) 
ARRYCK entry: 

B(O) = # subscripts (1 or 2) 


Else Error exit 

Invalid or non-nuneric expression 

No closing paren 
Calls: NUNCK, CONCK1 
Uses....... 
Exclusive: A.BCA},C,00,D1 
Inclusive: A-C,0(15-5), 00,01, RO,R1, SO-8$3, $7, $11, FUNCDO 
Stk lvls: 5 


History: 
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Date Progranrer Modification 
67/06/82 JP Modified docunentation 
16.17 NUMCK - Valid Nuneric Expression Check 


Category: PARUTL File: JP&PR3::MS 


Narie:(S) NUNCK - Valid Nuneric Expression Check 

Nane:(S) NUMC++ - Move 01 1-Byte, Do Valid Nureric Expr Check 
Nane: NUN+G - Move Di 1-Byte, Output Byte, Ck for Nun Expr 
Nane: NUNKO =~ Qutput Byte, Check for Valid Nuneric Expr 
Purpose: 


Checks for and Outputs Valid Numeric Expression 
Error Exit 1f not found 


Entry: 


Exit: 


D(A} = (AVMENE) 

D1 points at input strean 

DO points into output buffer 
4 entry points: 


NUNCK - D1 points at optional blanks preceding 
alleged nuneric expression. 

NUNC++ - D1 is 1-byte prior to alleged nureric expr 

MUNC +O - Di is f-byte prior to alleged numeric expr 
A(B) = byte to write to output buffer prior 
to parsing the nureric expression. 

NUNCKO - DT points at optional blanks preceding 
alleged nuneric expression. 
A(B) = byte to write to output buffer prior 
te parsing the nurieric expression. 


Valid nuneric expression parsed => 
Return to caller with carry clear 
P=0 
Tokenized expression uritten to output buffer 
% points past the tokenization 
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Register A contains the tokenization of the text 
FOLLOWING the nuneric expression 
D1 paints past the corresponding text 
R3(9-5) = the input pointer to the numeric expr 
R3(A) = the pointer to the tokenized nun. expr 
NUNCK entry: 

R3(A) = DO on entry 

®3(9-5) = Di on entry 
NUNC ++ entry: 

R3(A) = DO on entry 

NUNC+0 entry: 

The value in A(B) on entry was output prior to 
the tokenized nuneric expression. 

NUNCKO entry: 

R3(9-S) = Dt on entry 

The value in R(B) om entry was output prior to 
the tokenized nureric expression, 


Error exit - Invalid or non-nuneric expression 


Calls: r3exp+ (EXPPAR,R3=010), DIC=R3 
Uses: A-C,DC15-5), RO,R1,R3, SO-S3,$7,S11, 
FUNCDO 


Stk lvls: 4 


History: 
Date Programmer Modification 
07/06/82 Modified docunentation 


J.P. 
VW/V1f/82 0 SW. Added entry points NUNC+0 and NUMCKO 
05/12/83 S.H Eliminated NUNCK+ entry point 


16.18  STRLCK - Valid String Expression Check 


Category: PARRUTL File: JP&PR3::MS 
Nane:(S) STROCK - Valid String Expression Check 
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Purpose: 
Valid String Expression Check 


Entry: 
01 @ Start of Rileged String expresssion 
D(A) = (AVMENE) 
DO points into output buffer 


Exit: 
Valid string expresion => 
Return to caller math carry clear 
P=0 
Tokenized string expression uritten to output buffer 
DO past string expression tokenization 
A = tokenization of text FOLLOWING string expression 
D1 past corresponding text of tokenization in A 


Else error exit 


Calls: r3exp+ (EXPPAR,R3=010), NUNCK 

Uses: A-C,D(15-5),RO,R1,R3, SO-S3, $7, S11, FUNCDO, DO, D1 

Stk lvls: 4 

History: 

Date Progranner Modification 

07/06/82 J.P. Nodified documentation 

07/06/83 S.M. If invalid expr, don’t restore ptr 
16.19 COMCK - Conra Check 


Category: PARUTL File: JP&PR3::MS 


Nane:(S) CONCK - Corna Check 
Nane: CONCK1 - Corrna Check 


Purpose: 
CONCK entry checks to see if the following 
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text’s tokenization is tCONMA. 
CONCK1 entry checks to see if A(B) contains tCONMA. 


Entry: 
CONCK - D1 points at optional blanks preceding 
text to tokenize. 
CONCK1: ACB) = Token to Check 


Exit: 
P=0 
Carry set => tCONMA found 
A(B)=C(B)=tCONNA 
CONCK entry: 
D1 past ascii corma 


Carry clear => tCONNA NOT found 
C(B)=tCONNA 
CONCK entry: 
A contains text’s tokenization 
01 past corresponding text 


Calls: NTOKEN - CONCK entry only 


Uses: A(B), C(B), P - fCOMCK1 entry 
A-C, D1, P, SO-S3,S11, RO - COMCK entry 


Stk lvls: 3 - CONCK entry 
0 - CONCK1 entry 
History: 
Date Progranner Modification 
07/06/82 J.P. Modified docunentation = 


16.20 OQUTLIT - OQutput Delinited Literal 
Category: PARUTL File: JP&PR3::NS 


Nane:(S) QUTILTT - Output Delinited Literal 
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Nane:(S) OQUTLI1 - Output Delimited Literal 
Nane: DRTACK - Output Literal Delimited by Quotes 


Purpose: 
QUTLIT and OUTLI1 entry points output a string of 
laterals delimited by a specified deliniter (this 
deliniter may or may not be a quote). The only 
difference between these tuo entry points is that OUTLIT 
takes an error exit if no closing deliniter is found; 
QOUTLI1 sinply returns with the carry set in this case. 


DRTACK entry parses a string delimited by either single 
or double quotes. If no closing delimiter 1s found, 
DATACK takes an error exit. 


Entry: 

D(A) = (AVMENE) 

D1 points into the input strean 

DO points into the output buffer 

3 entry points: 

1) OUTLIT - D1 points at the delimiting character 
A(B) contains the ascii deliniter 
P=0 

2) DATACK - 01 points at optional blanks preceding 
the alleged single or double quote. 

3) OUTLI1 - D1 points at ist character after the 
deliniter. 
A(B) contains the ascii deliniter. 
P=0 


Exit: 
Carry clr => 
D1 is advanced to the character following the 
closing delimiter. 
The literal up through the closing delimiter 
has been written to the output buffer. 
DO points past the closing deliniter. 


Carry set (OQUTLI1 entry only) => 

D1 is 2 nibbles past DO (Endline) 

Ali characters, up to but not including DO, 
have been output 

DO points past the characters which have been 
output 


Else error exit (OUTLIT, DATACK only) 
u/ D1 at OD - Error is : Quote Expected 


Calls: QUT1TK, GNXTCR 
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Exclusive: A,B,C,S4,D0, D1 

Inclusive: A,B,C,S4,00,01 
Stk lvls: 2 (QUTLI1) 
3 (QUTLIT) 

NOTE: It nay be desirable to linit usage of OUTLIT 
to delimiters which are single or double 
quotes, since the error nessage generated is 
“Quote Expected”. 

History: 

Date Progranner Modification 


07/06/82 J.P. Modified docunentation 
10/12/82 S.W. QUTLI1 entry doesn’t error exit 


16.21 QUTVAR - Output Parsed Variable 
Category: PARRUTL File: JP&PR3::MS 


Nare:(S} QUTVAR - Output Parsed Variable 


Purpose: 
Writes tokenized variable in A to the output buffer 


Entry: 
P=0 
DCA) = (AVMENE) 
00 paints into output buffer 
Register A contains variable tokenization 
fron NTOKEN call 


Exit: 
Carry Clear 
Variable tokenization written to output buffer 
DO past the tokenization 


Calls: OUTITK, ARANGE 


16-35 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Parse Utilities 


Uses: A, C(A), © 
Stk lvls: 2 
History: 
Date Progranner Modification 
07/06/82 J.P. Modafied docunentation = 


16.22 FSPECp - File Specification Parse 


Category: PARUTL File: JP&PR3::M5 


Nane:(S) FSPECp - File Specification Parse 
Narie: FSPC10 - Qutputs Literal File Nane 


Purpose: 
File Specficiation Parse 


FSPECp accepts string expressions as valid file 
specifiers. Quoted strings are considered string 
expressions. 


Unquoted strings are carefully parsed to ensure they 
conforn to the correct syntax. File nanes (if they’ re 
given) must start with a letter and, unless a poli 
handler responds, are limited to 8 characters. 
Renaining characters nay be letters or digits. 

Parse includes any device specifiers that are given. 
If a device 1s included, a file nane 1s optional. 


If a valid file nane is followed by ’@’ or by any 
char. not in the ascii range of ’.” - ’z°, the file 
specifier 1s considered to be terninated. 


If a valid file narie is followed by ’:’, FSPECp 
attempts to parse the device that should follou. 
If the device 1s not MAIN, PORT, CARD, or PCRD, 
a device poll is done. 
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If a valid file nane is followed by any other 
character (this file nanes over 8 characters 
long), a poll is done. 


FSPC10 entry is used to write a legally 
parsed file nane to the output buffer; it as 
generally called after FILEP has been called 
successfully. Its entry conditions are 
matched by the exit conditions fron FILEP. 


D(R) = (AVMENME) 
DO points into output buffer 
FSPECp - D1 at start of alleged file specifier 
in the input strear 
FSPC1O - Fale nawe in Al 
P=0 
C(S} = HNIBS-1 ain the file nane 


Exit: 


FSPECp entry 
Carry Clear: 
P=0 
File specification accepted & output 
1) past tohenized file spec. in output buf 
D1 past valid file specification 
S7=1 iff String expression 


Carry Set: 
P=0 
R3(A)=D0 on entry; R3(9-5)=D01 on entry 
S7=4 
Reserved word in A 
(KEYS, ALL, 10, INTO, CARD) 
Reserved uord has been output 
DO past output reserved word in output buffer 
01 past reserved word 1n input buffer 
$7=0 
Bad file parse 
(unrecognized device, extraneous chars after 
file name, invalid 1st character in file nare) 
Di restcred to what it Has on entry 
C(A)=DO on entry 


Else hard-wired error exit: 
Possibilities: 
Bad Port# (fron NUMCK) 
No closing paren (to ERRO1) 
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File nane uritten properly to output buffer: 
tLITKL «ascii file nane> 

DO points past output file nane 

Carry clear 


Calls: FILEP, QUTNBC,POLLD+/hF SPC p, POLLD+ /mDEVEp, DIC=RI 
RANGE , QUTBYT, WROSCN, RESPIR, D=AVME , GNXTCR, OUTITK 
NUNCK , RVS=DO 

Uses........ 


FSPC10) =: C(B), 
FSPECp =o: A-C,P, XN, 0(15-5),D0,D1,S0-S$3,S7,510, $11, RO-R3, 


FUNCDO 
Stk Ivis: 5 (FSPECp) 
2 (FSPCIO) 
Detarl: File specifiers which are unquoted strings are 


tokenized with a special 1-byte token preceding 
then: tLITRL <unquoted string> 


File specifiers uhich are string expressions 
or reserved words are NOT preceded by any such 
special byte. 


For HPIL tokenization, see detail under 
the following poll’s docunentation: pFSPCp and 
pDEVCp. 


Algorathr: 


FSPECP: Try Nainfrare File Parse (FILEP) 
If Mainframe file (Carry set) 
If string expression (S7=1) 
Return CC 
else (Unquoted literal) 
If wainfrane terrinator 
Output filenare (OUTNBC) 
RINCC 
else 
1: If current char 
If filenane specified 
Output filenarie (FSPC10) 
If Marnfrane Device word 
Output Device word 
If PORT 
If "(" follows 
Verify Port# (NUNCK) 
Verify ")" 
RINCC 


~ att 
bas . 
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else 
Restore Input Pointer (RESPTR} 
POLL for Device Parse 
Return with carry as set 

else 

Restore D1 (R3) 

POLL for <file spec> Parse 

RIN with carry as returned 


Histery: 
Date Progranner Modification 
07/06/82 J.P. Modified docunentation 
04/08/83  S.W If Invalid Filespec but not reserved 


word (on exit carry set & $720), then 
01 restored to what it was on entry 
before return to calling routine. 


16.23  FLTYPp - Parse File Type 


Category: PARUTL File: JP&PR3::MS 


Nane:(S) FLTYPp - Parse File Type 


Purpose: 
Parse file type specifier 


Entry: D(A) = (AVMENE) 
Di points into input stream at optional blanks 
preceding the alleged file type 
DO points into output buffer 


Exit: Carry clear => 
P=0 
Valid file type found 
Tokenized file type (2 bytes) uritten to 
output buffer 
DO past the tokenization in the output buffer 
ft advanced past the corr. text 
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Else error exit to PARERR with eF TYPE 


Calls: FASCFD, QUT2TK, GNXTCR, STLXPT 
Uses: A-C, R3, $10, DO,DI, P 
Stk lvls: 4 
History: 
Date Progranner Modification 
03/15/82 FH Designed and coded. 
11/15/82 S.N. Hard-wired error exit 
16.24 FILEP - File Nane Parse 


Category: PARUTL File: JP&PR3::NS 


Nare:(S) FILEP - File Nane Parse 
Nane:(S) LABELP - Label Reference Parse 
Nane:(S) FILEP1 - Lateral File Nane Parse 
Nane:(S) FILEP- - Subprogram Nane Parse 
Nane:(S) FILEP+ - Label Declaration Parse 
Nane:(S) FILEP! - Lateral File Nane Parse 


Purpose: Parses a file nane or a label. 
Depending on the entry point, it can allow 
string expressions and unquoted strings, or 
1t can be linited to unquoted strings alone. 
However, only unquoted strings are checked 
for conformance to legal file name syntax, ie 
limited to 8 characters or less of letters 
and digits, starting with a letter. 


FILEP and LABELP allow string expressions and 
unquoted strings. FILEP, however, checks an 
unquoted string to ensure it 1s not one of 
the reserved words (T0,ALL, KEYS, CARD, INTO). 
LABELP does not make this special check. 
These entry points are useful for file nane 
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Entry: 


Exit: 


and label reference; for exanple GOTO/GOSUB 
parse calls LABELP. 


FILEP1, FILEP-, and FILEP+ are all useful 
entry points for parsing literals which nust 
conforn to file nane standards; included in 
this category would be label declarations 
and subprogran names in SUB statenents. 
These entry points do not check for file 
reserved words. 


FILEP! is sinilar to FILEP+ above, except 
it can be set to allow less than eight 
characters. 


D1 points at input strean 
6 ENTRY POINTS: 


1) FILEP - D1 points to optional blanks 

preceding file name. 
D(A) = CAVMENE) 
DO points to output buffer 

2) LABELP - Sane as FILEP, except S10 must be 
set to ignore file reserve words. 

3) FILEP1 - (LEXP™R) = address to restore input 
pointer to; points to possible blanks 
preceding file nare. 

4) FILEP- - D1 at optional blanks preceding file 
nane. 

5) FILEP+ - 01 pointing at first character in 
the file nare. 

6) FILEP! - C(S)=#characters to allow - 1. 


P=0 
$10=0 (all entries except FILEP+/FILEP! ) 
$7=0 (all entries except LABELP/FILEP - see belou) 
CARRY SET => IF S7=1: string expr found & output 
NTOKEN done on followin 
data (LABELP/FILEP ants 
IF $7=0: File nane in A. D1 past 
the last legal character. 
C(S) set for WP write. 


CARRY CLR => IF S7=1 Reserve word found, token 
output & in A(B), B(B). 
D1 past the reserve word. 
(FILEP only) 
IF $7=0: Illegal 1st character. D1 
pointing to the character. 
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R3(A)=D0 @ entry; R3(9-5)=D1 @ entry 
Use DIC=R3 to restore D1 


Calls: CATCHR, RESPTR, r3expp (EXPPAR,R3=D1C), 
GNXTCR, BLANKC, WRDSCN, 


Uses: A-C,D(15-5), SO-$3, $7, $10,511, 00,01, RO-R3, FUNCDO 
(FILEP/LABELP entry) 


A,B(R),B(S),C,B(S),S1,S2,87, $10, D1 
(FILEP1, FILEP-) 


FILEP+ entry uses everything FILEP1 uses except $10. 
FILEP! entry uses everything FILEP+ uses except S7. 


Stk lvls: 
FILEP, LABELP - 4 
all other entry points - 3 
History: 
Date Progranner Modification 
07/08/82 Updated docurentation 


S. 
07/27/82 S. Now allow unquoted ’ reserve 
words’ as file nanes, provided 
they’re followed by a colon. 
10/18/82 JP Renoved PCRD as reserve word 


11/23/82 JP Clearing S10 on exit 


16.25 CATCHR ~- Categorize Character 
Category: PARUTL File: JP&PR3::MS 


Nane:(S) CATCHR - Categorize Character 


Nane:(S) CRTCH+ - Convert to Uppercase, Categorize Character 
Nane:(S) CATC++ - Convert to Uppercase, Categorize Character 
Purpose: 


Categorize character in A(B) as a 
digit or letter or special character. 
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CATCH+ and CATC++ entries convert a lowercase letter to 
uppercase before categorizing it. 


Entry: 
3 entry points: 
1) CATCHR - A(B) = character to categorize 
2) CATCH+ - A(B) = character to categorize 
P=0 
3) CATC++ - D1 points to character to categorize. 


A(B)=Character that was categorized 
(a letter gets converted to uppercase 
for CATC++ and CATCH+ entries) 


Carry set: 
Character 1s a digit or letter 
Si=1 iff it’s a digit 


Carry clear: 
S2=1 iff special character: * + - . / blank 


Calls: CONVUC , DRANGE , RRANGE , RANGE 


Uses: C(A), $1,S82 - CATCHR entry 
R(B),C(A), S1,S2 - CATC++,CATCH+ entries 


Stk lvls: 2 


History: 

Date Progranner | Modification 
07/08/82 IP Nodified docunentation 
09/02/82 SW. Changed RANGE call to DRANGE 


- 


16.26 EXPPAR - Expression Parse 


Category: PARUTL File: SB&EXP::MS 
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Nane:(S) EXPPAR - Expression Parse 
Narie:(S) EXPPLS - Expression Parse for Left of Equal Sign 
Nane:(S) EXPP10 - Expr Parse (specify start of parse stk) 


Purpose: 
Parse an expression and compile correct code for it 
Also parses dunny array references 
EXPPLS will stop parsing when a valid left-hand-side 
has been found. 


Entry: 
DO 1s pointer to output strean 
D1 218 pointer to input strean 
EXPPLS requires LeftSd(S?) to be set on entry. 
EXPP10 requires LeftSd(S7) to be clear on entry and 
that D(A) be set to where the parse stack should 
start. 


Exit: 
If dunny array found then 
Carry set 
SO -- 1 (invalid expression) 
$1 -- Set by last NTOKEN 
S2 -- Set by last NTOKEN 
$3 -- 1 (not valid string expression) 
$7 -- Clear if EXPPAR, unchanged if EXPPLS 
DO -- Points past code compiled for dunriy array 
D1 -~ Points past first token not used in expression 


A -- Contains first token not used for dunny array 
Pp --0 

xN -- 0 

else 


Carry clear 

SO -- 0 if valid expression found, 1 otherwise 
S1 -- Set by last NTOKEN 

S2 -~ Set by last NTOKEN 

$3 -- 0 if valid string expr. found, 1 otherwise 
S? -- Clear if EXPPAR, unchanged if EXPPLS 

DO -- Points past code conpiled for expression 


(1 -- Points past first token not used in expression 
A -- Contains first token not used 1n expression 

XN -~- Set iff expression is clearly a value expr 
Peo 


D(A) -- (MNTHSTK) 
(PRNCNT) set non-zero if expression contained user FN 


Calls: NTOKEN, OUTITK, QUTNIB, OUTVAR, OUTLIT, OUTBYT, 
RANGE, CMPBHC, SCAN, DELET1, DELETZ, LOOK, LOOK2 
GNXCR+, QUTNBS, PARMCK, BOPCON, CONCOM, PUSH-P, 
PUSH-3, INSRT1, RESPIR, CKLFSD 
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A,B,C,0(15-5}, RO,R1,$0,81,82,83,S87, 811, Carry 
FUNCDO,PRNCNT( first nib) 


Stk lvls: 3 


Detail: 


Internal representation of non-terminals 1s: 
00 -- Prinary 
O1 -- S-expr 
O2 -- Factor 
03 -- Tern 
04 -- Sun 


05 -- Relation 

06 -- Conjunction 

QO? -- Expression 

08 -- N-func-ref 

O9 -- S-func-ref 

OR -- Substring ref 

OC -- StartR (Reference expressian) 

OD -- StartS (Reference expression u/substring) 
OE -- Start¥ (Value expression) 


This parser is essentially a stack automaton. 

The stack builds fron high Henory down to lower 
nenory. All stack elenents are 2 bytes (4 nibs) 
in length although 2 or more elenents may be used 
to hold extra information 1f needed. 


If EXPPLS 1s called with LeftSd set, the parser will 
stop uhen it sees an reference expression or a 
substring reference expression followed by an equals 
$1gn. 


Code is compiled from low nerory toward high nenory. 
The code pointer and the stack pointer are checked 
to make sure they never collide. MEMERR as called 
if there is such a collision. 


Value expressions are indicated upon return by the 

XM bit. This 1s used te deternine whether a paraneter 
ina CALL statenent 1s a reference or value paraneter. 
It 1s also used to determine uhether an expression 
would be a valid destination address for an assignnent 
such as the INPUT statenent. 


16-45 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Parse Utilities 


16.27 P1-10 - Nuneric Operand Found 


Category: PARUTL File: SB&EXP::NS 


Nane:(S) P1-10  ~ Numeric Operand Found 
Purpose: 
Point of reentry for nuneric funny functions 
Entry: 
P = 0 
DO Output ptr (points past last nib of FFN code) 


D(A} = Stack pointer 

D1 = Input ptr (points past last char in FFN text, 
which 1S probably the closing paren) 

If a funny function 16 re-entering here, it should 

have set the XM bit to indicate that a value expression 

has been parsed. 


NGTE: 
At this point a nuneric operand has just been conpiled. 
Funny functions are a special type of function that 
allow the expression parser to be extended to include 
that have special parse and/or execution requirenents. 
See IDS for a complete description of how to inplenent 
a funny function. 


History: 
Date Progr anner Modification 
09/27/83 B.S. Added docunentation 


16.28  SE1-10 - String Operand Found 


Category: PARUTL File: SB&EXP::MS 
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Nane:(S) SE'-10 - String Operand found 


Purpose: 
Point of reentry for string funny functions 
Entry: 
P = 0 
DO == Output ptr (points past last nib of FFN code) 
D(A) = Stack pointer 
D1 = Input ptr (points past last char in FFN text, 


which 1s probably the closing paren) 
If a funny function 1s re-entering here, 1t should 
have set the XM bit to indicate that a value expression 
has been parsed. 


NOTE: 
At this point a numeric operand has just been compiled, 
Funny functions are a special type of function that 
allow the expression parser to be extended to include 
that have special parse and/or execution requirenents. 
See IDS for a complete description of how to inplenent 
a funny function. 


History: 
Date Progranner Modification 
09/27/83 B.S. Added docunentation 
16.29 ACCEPT - Funny function parse error reentry point 


Category: PARUTL File: SB&EXP::MS 


Nane:(S) ACCEPT - Funny function parse error reentry point 


Purpose: 
This 1s the point where funny function parse routines 


should reenter if they detect an error 
Entry: \ b 


D(A) 1s stack pointer 
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R(W) set by last call to NTOKEN (flexible, doesn’t 
‘ natter if an error 1s being flagged) 

)) 18 output pointer (flexible, doesn’t matter if 
an error 1s being flagged) 

01 1s input pointer should point past first token 
not used 1n expressin (flexible, doesn’t ratter 
if an error 18 being flagged). 

Status bits set by last NTGKEN call (or equivalent) 


Exit: 
See exit conditions for EXPRDC 
History: 
Date Progranner Modification 
11/01/83 B.S. Added docunentation = 


16.30 CONCOM - Compile a Nuneric Constant 
Category: PARUTL File: SB&EXP::NS 


Nane:(S) CONCON - Corpile a Numeric Constant 


Purpose: 
Compiles a numeric constant (Single digit, Long Int or 
Long Real) 


Entry: 
DO is output pointer 
A,B set by NTOKEN 
D(A) = (AVMENE) 


P=0 

Exit: 
Carry clear if constant found, set otherwise 
P=0 


Calls: DRANGE , OUT1TK, OUTNBS, RANGE 
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Inclusive: ACH), BCW),C(W) 
Stk lvls: 1 
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17.1. pCMPiX - Complex Nunber Operation Poll 


Category: POLL File: AB&FCN: MS 


Nane:(S) pCMPLX - Complex Number Operation Poll 
Type: FPOLL 


Purpose: 
Look for handler to perform conplex operation: 
Function, Store or Recall. 


Should poll be "Handled" (return with XM=0)?: 
Yes. 


Meaning of "Handling" Poll (what does code do if handled?): 
Handler has perforned complex operation. If poll is 
not handled, calling code errors out (eDATTY). 


Entry conditions for handler (registers, ST, RAM, etc.): 

Carry set on entry. 

B[R} = Poll nurber. 

HEX mode. 

P=0, 

(FUNCDO) contains PC, pointing past token. 

(FUNCD1) contains 2-nibble token. 

(AVMENE) contains stack pointer. 

If token is a function token of one paraneter (e.g., 
SIN(Z)), then Ri = Real part of argunent, 

RO = Inaginary part of argunent. 

If token is a function token of tuo paraneters (e.g., 

Z*W), then RO = Inaginary part of argument at top 
of stack (second argurent), 


R1 = Real part of second argunent. 
R2 = Inaginary part of first argument. 
R3 = Real part of first argurent. 


If either argurient 1s real, the imaginary part will 
be represented as 0000000000000900. 
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If token is a Conparison token, entry conditions are 
the sane as for other two-parameter functions. The 
predicate can be obtained by looking at (PC). (or 
raybe (PC-1)7) 

If taken is cR->C, it means that a real value is being 
assigned to a variable whose type is not real, short 
or integer. The value to be assigned is at the top 
of the stack and the variable destination infornation 
occupies STMT scratch as set up by DEST routine. 

If token is c€->C, it means that a value which is 
neither real or string 1s being assigned to sone 
variable. The value to be assigned 1s at the top of 
the stack and the variable destination infornation 
occupies STMT scratch as set up by DEST routine. 

If token 1s cRCL, 1t neans that a complex number needs 
to be recalled (put on the stack). 

R1{A] points at the value to be recalled. 
O[S] 1s odd iff value 1s COMPLEX SHORT. 


Norial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX rode. 

XM=0. 

For functions and comparisons, result pushed on 
Hath stack (handler rust do available nenory check 
and error out if insufficient memory), complete with 
stack signature. D1 = stack pointer. 

For store, no further exit conditions. 

For recall (token = cRCL), value has been pushed on 
stack, D1 = stack pointer, B[A] = address of 
variable register, B[S] = — iff COMPLEX, F iff SHORT 
COMPLEX. 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX triode. 

XM=1. 


l 
Rvailable subroutine levels: <— DANGER, 


1 


What registers/RAN may be used if handled?: 
A-D,0),01,P,RO-R4, function scratch RAN. 


What registers/RAM may be used if not handled?: 
Rat, Di 45-5) 00; 01, PR nal 


Envisioned application(s): 
Extension of nainfrane functions to conplex argunents. 


History: | 34 
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Bate Prograriner Modification 
SA Wrote 
10/20/83 = NM Attenpted to docunent 


17.2  pTRFMx ~- Poll for TRANSFORM Execution 


Category: POLL File: FHATFM:: MS 


Narie:(S) pIRFMx - Poll for TRANSFORM Execution 


Type: FPOLL 


Purpose: 
Ask for an address to call for line-by-line transforna- 
tion, and a similar address to call for iine-by-line 
inverse transformation should that becorne necessary. 
The interface for these routines 1s defined in the 
Detail below, 


Should poll be "Handled" (return with XM=0)?: 
Yes, 


Meaning of "Handling" Poll (hat does code do if handled?): 
The required infornation 1s present in the registers, 


Entry conditions for handler (registers, ST, RAN, ete. ): 


RO(A) = Source file type 
R1(R} = Destination file type 
SO = Set if dest type # source type, means 
that a transforn IS required (sTFREQ) 
S5 = Set if transform is ir place (sTFINP) 
/OPIN = TRANSFORM option set by extended TRANSFORM 
parse (or zero if mainframe parse), as in: 
TRANSFORM F INTO DATA FFLR 
where R neans randen 1/0 records (no overlap) 
See detail below for address of /OPIN 
/PARM, 


/PARMN2 = TRANSFORM dectination file create paraneters 
set by extended TRANSFORM parse (or zero if 
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P 
Carry 
B{A] 
HEX node 


oo 48 


Nainfrane parse), as in: 
TRANSFORM F INTO DATA FF,R, 50,128 
Where /PRRN1 = 5O = nunber of records, 


{PARM2 = 128 = record size 
See detail below for addresses of /PARM1 and 
/PARN2 
0 


set on entry 
Poll number 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc. ): 
RO(R) = Address of handler routine which can read 


RO(S) 
$5 
SO 


aot 


HEX node 
xn = 


ane line in fron source and transforn it. 

See Detail below for handler interface. 

4 6B nibbles before this address is stored the 
relative address of handler routine which can 
read one Jine in from saurce and transform it 
in the INVERSE direction; © 1f none exists. 
Interface 1s sane as that of a nornal handler 
routine. See Detail for handler interface, 

** 10 nibbles before this address is stored 
the relative address of a routine which wl) 
Finish the fully transforned destination file 
before 1t is closed (e.9., to chain a BASIC 
file in RAM before leaving 1t); 0 af no such 
routine 1s needed. See Detail below for the 
finish-up routine interface. 

Copy code of destination file type 

Entry condition (sTFINP) 

1 1f transform handler routines nust be called 
to perforn transtornation (even though source 
and dest file types nay be the sane) 

0 1f no transform handler routines need to be 
Called (source file and dest file type nust 
be the sane) 


0 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc. ): 
Entry conditions preserved 


HEX node 
xn = 


1 


Available subroutine levels: 


3 


What registers/RAM may be used if handled?: 


A-D, oO, 


Dlg SP RO RI y RZ, 30 
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What registers/RAM nay be used if not handled?: 
A-C, 0[15-5) BO, D1, P, R2 


é 


Special meriory/pointer considerations (are pointers funny?): 
No. 


Envisioned application(s); 
Conversion between OEM file types and TEXT(LIF1) for 
purposes of listing and interchange. 


History: 
Date Pragranner Modification 
06/27/83 FH Added new docunentation header. 


FORO UI IIIS ODI to GIGI IE TOI OIG IIS I tk 


DETAIL: 
INTERFACE TO TRANSFORM HANDLER ROUTINE 


Purpose: 
Read line fron source file, transforn it into destination 
type and leave it in output buffer. No messages should 
be directly issued by this routine. 


Entry: 
R4(15,14) = Source FIBH 
Input, output buffers collapsed to SYSEN 
At least 1% bytes + LEEWAY available menory guaranteed 


/LINE# = 0 or previously returned BCD line # 
/SFIBH = Source FIBH 
/OPTN = Option from extended TRANSFORM statenent 


execution; © 1f from nornal TRANSFORM 
/PARM1, /PARN2 = Destination file create paraneters fron 
extended TRANSFORM statenent execution; 
0 if from nornal TRANSFORM 
P = Q 


Exit: 
GUTBS @ Start of transformed line. If original line 
Was Copied into available nenory start, QUTBS 
nay point innediately after the original line. 
Must be collapsed to /SYSEN if fatal error. 


AVMENS @ End of transformed line unless fatal error. 
Must be collapsed to /SYSEN if fatal error. 

37 = 1 1ff end of file found on source file (sEOF) 

/\NLEN = Full length in nibs of input line. Unneeded 
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if fatal error. 

‘LINER = BCD laine number of current line. Used in 
reporting error messages. If sequential 
line number is to be used, set to 0. 


p = 0 
Carry clear: Successful transformation 
Carry set: Error: occurred 
(3-0) = Error code 
C(S) = 0 if error was fatal (unrecoverable). 


# 0 if error was recoverable. 


Allowed to use....... 
Rll CPi! registers, SO-S11, $13, Statement and Function 
scratch RAM, SNAPBF, RSTKBF, /LNLEN, /LINEH, /FLAG, 
INES, UUTBS, AYMENS 


Sth lvis: 6 (max) 


FOI IOI IOI IR I SII Ok tok ok 


INTERFACE TO TRANSFORM HANDLER FINISH-UP ROUTINE 


Purpose: 
To finish up the destination BASIC file after all TEXT 
lines have bee transformed into BASIC. There are 
several cases to be dealt with: 


End af a Ory Run (aluays out-of-place transforn): 
If the destination file 1s on an external nediun, a 
first pass or "dry run" 1s conducted without creating 
the dest file, in order to determine its necessary data 
size. This routine calculates the needed paraneters 
to create the file (see CRIF utility), and stores then 
in /PARM and /PARN2. 


End of a Normal Run, Out-of-Place Transform: 
If tne destination file type requires a subheader or 
Inplenentation field, it must be properly initialized 
since URTF stored a default value in it when the file 
was created (see CRIF utility). for example, if the 
destination is a BASIC file, hex value COCOOQOOOO0F 
must be writier to the header to indicate that the link 
Chain }eads have not been computed for this file (file 
has net heen "“charned'}. If the file is in menory, the 
the proper link chain heads are computed and written to 
the subheader. File data, such as links between $ub- 
prograns in BASIC files, may need to be updated. 


End of «a Normal Run, In-Place Transform: 


If the source file type had a subheader or Inplenenta- 
tion field, 1t must be removed. If the destination 


17-6 


oe 
4 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


file type requires a subheader or Inplerentation field, 
it must be inserted after the file header and set to 
the proper value. File data, such as links betueen 
subprograns in BASIC files, nay need to be updated. 


End of an Inverse Transfornation (Rluays In-Place): 

If the source file type had a subheader or Inplenenta- 
tion field, it 1t 1s still there but nay need to be 
updated to reflect the new state. File data, such as 
links between subprograns in BASIC files, nay need 

to be updated. 


Entry: 

Output buffer collapsed (QUTBS, AVNENS point to SYSEN) 

R4(15-14) = FIBR of destination file. Each line of the 
source file (including EOF) has been read, 
transforned, and written to the dest file. 
The End of Data field in the FIB is set to 
this new end of file and, if the dest fale 
1S in menory, any excess nibs beyond the 
end of file have been reroved fron the 
file chain. File is nom rewound. 


$5 = 1 iff transfornation is in place (sTFINP) 
S6 = 1 iff at end of inverse transfornation 
(sTFINV) 
$9 = 1 iff at end of dry run (sDRYRN) 
P = 0 
Exit: 
P = 0 
Carry clear: 
No error 


Carry set: 
C(3-0) = Error code (will be treated as fatal error, 
Hith no possibility of recovering dest file) 


Inclusive: May use any CPU register, $10 
Stk lvls: 6 (max) 
BI I IIT DIET I IAT III II IIIS IAL II III AI IIIS ISIS IS III ISI IIIA IS 


TRFNBF FIELDS USED BY TRANSFORM ROUTINES 


TRFNBF Set by 
Syribol Offset Size User* Contents 
/ERRCD 0 4 Error code 
/SFIB# 4 2 Source FIB# 
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/DF IBH 6 2 Dest FIB# 

{SFTYP 8 4 Source file type 

/DF TYP 12 4 Dest file type 

/COPYC 16 1 Dest file copy code 
{STAT 1 4 Statuses during Xforn 
/DLEN 21 5 Dest file len DESTLEN) 
/NUNLN 26 5 Line count (NUNLINES) 
/LINE# 31 5 H Line # 

/OPTN 36 2 x Transforn Option 

/PARM 38 i) x File Create Paraneter 1 
/PARM2 43 5 x File Create Paraneter 2 
/LNLEN = 48 5 H Input line length 

/FLAG 53 7 H Free for use by handler 


* Where ’H’ indicates the field is set by the handler, 
and ’X’ indicates the field is set by the extended 
TRANSFORM execution routine 


17.3. pTIMR# - Poll Tiner# > 3 for ON/OFF TIMER 


Category: POLL File: JP&EXC::NS 


Name:(S) pTIMR# - Poll Tiner# > 3 for ON/OFF TINER 
Type: POLL 


Purpose: : 

Poll on Tiner# > 3 for ON TIMER and OFF TIMER statenents 

Allows Lex File to extend these statenents to nore than 
3 tiners 


Should poll be "Handled" (return with XN=0)?: 
No - If this poll is handled 
Return is through NXTSTN to continue 
statenent/progran execution. 


Meaning of "Handling" Poll (what does code do if handled?): 
For ON TIMER: Set up the bookkeeping 
Activate the appropriate timer 
For OFF TIMER: Deactivate the appropriate tiner 
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Entry conditions for handler 
B[A] = Poll nurber (pTIMR#) 
HEX node. 
P=0, 


ACA) = Tiner# > 3 in HEX 
1) @ past Timer# expression 
If ON TIMER: DO @ tCOnnA 
Conna before tiner interval 
If OFF TIMER: DO @ Renark or tEOL or t@ 


PCADDR @ Staternent length byte for statenent 
(PCADDR) + 2 © tON or tOFF 


Nortial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Return through NXTSTM to continue statenent execution 
HEX tiode. 
NOTE: 
If binary code invokes BASIC through CALL: 
PCADDR must be saved on the GOSUB stack before CALL 
Call PSHUFD 
and restored before NXTSTM is jumped to 
Call POPUPD 


Nornal exit conditions fron handler if not handled: 


Carry clear 
HEX node. 
KM=1. 


Error exit conditions fron handler: 
There 1s no error return fron this poll 


Available subroutine levels: 
-~POLL handler is one level shallower than caller-- 
6 levels available 


What registers/RAM may be used if handled?: 
--R-D, DO, D1, P always available-- 
This 1s a Staterent Execute 
All RAM and registers allowed during Statenent Execute 


What registers/RAM may be used if not handled?: 
~-A-D, DO, D1, P aluays available 


What registers/RAN may be used if error exit: 
No error return allowed 


Special considerations : 
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Tokenized forn of staterents: 
ON TIMER: 
Stnt Length, tON, Timer expression, tCONNA, 
Interval expression, tGOTO or tGOSUB, statenent ident. 


OFF TINER: 
Stnt Length, tOFF, Tiner expression 


To service a Tiner when it goes off: 
Respond to pSREQ poll to set sExcept 
to indicate an Exception has occured 
Respond to pExcept to actually service the tiner 


To execute Tiner branch: 

Use GOTO+ entry point after: 
Setting sGOSUB ($3) 1f GOSUB 
Reactivating Tiner if GOTG 
Setting sEXTGS (S5) to indicate external entry 
Setting sXWORD ($9) for line# searching 
Pushing Return Address (from Tiner interrupt) 

on stack 

Tracing FROM line 
(see ONTINR for parallel code) 


Envisioned application(s): 
Extending Tiners to an infinite number with a Lex file 
that allocates an I/0 buffer to keep track of pending 


tiners. 
History: 
Date Progratriner Modification 
01/9/83 JP Added Poll 
04/19/83 JP Revised Poll docunentation 


17.4 pCOPYx - Poll for COPY to external device 


Category: POLL File: JP&EXC::MS 
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Narie:(S) pCOPYx - Poll for COPY to external device 
Type: POLL 


Purpose: 
Poll for COPY utility execute 
External source or destination file specifier found OR 
Destination device on PURT 1s of unknown type 


Should poll be "Handled" (return with KN=G)?: 
Yes - Jf successful COPY occurs 


Meaning of “Handling” Fol! (what does code de 1f handled”): 
COPY source fale te destination file on appropriate 
device 


Entry conditions for handler (registers, ST, RAM, etc. ): 
B(A) = Poll nunber (pCOPYx) 


HEX rode. 
P=0. 
If D(O) = External Device (D(0)>=8) 
sEXTDV = 1 (SO) 
sUNDEF = 1 (S1) if both filenanes undefined = 0 
sDEST = 0 (83) 
A = First 8 characters of source filenane 


Blanked filled 

RO(O-3)= Last 2 characters of source filenane 
Blanked filled if none 

D(A) = Source device information fron RDINFO 
D(0) = Device type 
0(1-4)= Devices internal coding 


HPIL used Device 8 --- see NOTE below 

Re = Destination device info fron RBINFO 

SAVSTK holds source and destination infornation 
(See Special Menory/Pointer Considerations) 


If 0(0) = Unknown device type (1 < D{O) < 7) 
A = First 8 characters of destination filenane 
(blank filled) 
RO(O-3)= Last tuo characters of destination filenare 
(blank filled) 


D(O) = Device type 

D(1) = Extender# 

D(2) = PORT # 

STMTRO = Start of source file 


SAVSTK holds source and destination information 
(See Special MNenory/Pointer Considerations) 


Normal exit conditions fron handler 3f handled (ST, RAN, 
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registers, etc.): 
Carry clear 
HEX node. 
xn=0, 
Ri = Start of file just copied if TO MAINFRAME 
Source file copied to destination file on appropriate 
device. 


Nornal exit conditions fron handler if not handled (ST, RAM. 
registers, etc.): 

Carry clear 

HEX rode. 

xM=1. 


Error exit conditions fron handler: 
Carry set. 
HEX node. 
C{0-3] = Error nunber. 
COPY was not sucessful due to indicated Error Nuriber 


Available subroutine levels: 6 
POLL handler is one level shallower than caller-- 
COPYu uses 6 levels; The handler must be able to 
Return to POLL 


NOTE: 

HPIL uses Device Type=8 
This device type 1s set in response to pFSPCx poll 
uhen the file specifier is being evaluated 

Other device handlers must be assigned their special 
special device type by the Resource filocation Czar 
(See HP-71 INS Volune 1} 

Respond to pFILX@ for nun HPIL device to gain control 
of the File Specification execute 


Devices on PORTS (ex: EEPROM) should use Device types 
between 3 and 6. This device type wili be encoded in 
the ID of the module plugged into a PORT. 
These Device types nust be assigned by the Resource 
Allocation Czar (see HP-71 IMS Volune 1} 


What registers/RAN nay be used if hendled?: 
A-D, OO, D1, P 
RO,R1,R2,S82, $3, 54.85, $6,87,88, 59 
Dont’ use STNTOO (saved status for CHAIN) 


What registers/RAN nay be used if not nandled?: 
A-D, BO, DI, P 
K1,84,S5,86,$7,88,39 
Don't use STMTDO (saved status for CHAIN) 
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What registers/RAM nay be used if error exit (POLL only}?: 
fi-D, DO, DI, P 
RO, RI. R2, 52, $3, 84,55, $6, 37,$8,59 
Don’t use STNTDO (saved status for CHAIN) 


Special rierory/pointer considerations (are pointers funny?): 


The SRVSTK area has been moved toward LOW neriory due to 
the issuing of the POLL. Therefore, all offsets into 
the SAVSIK area must SUBTRACT the 1POLSV (62 decinal) 
fron the SAVSTK pointer to access the file infornation. 


Saved infornation: 


SAYSTK-5 (- LPOLSV) = Source Device infornation 5 nibs 


SAVSTK-25(- IPOLSV) = Source filenane 20 
SAVSTK-30(- LPOLSV) = Destination Device info 5 
SAVSTK-50(- IPOLSV) = Destination filenane 20 


Envisioned application(¢): 


Allow COPY TO filename: TAPE 

liow COPY TO fidenane:PORT(1) where EEPROM in PORT(1) 
Allow COPY 10 a special device in a PORT 
Aliow COPY TO an external device NOT HPIL 


History: 
Date Progranner Modification 
07/13/82 JP Added docunentation 
12/18/82 JP Combined pCOPYd with pCOPYx 
03/21/83 JP Changed entry conditions (STMTRO) 
05/11/83 JP Modified docunentation 
68/11/83 JP Restricted STMTDO usage 


17.5  pCuURSR - Cursor Key with non BASIC file Poll 


Category: POLL File: JP&MEM:: MS 


Nane:(S) pCURSR - Cursor Key with non BASIC file Poll 
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Type: FPOLL 


Purpose: 
Fast Poll to aliow the Cursor Keys to be used with 
nan BASIC files: 
Cursor Up, Cursor Down, Cursor Top, Cursor Botton 


Should poll be "Handled" (return with XN=0)}?: 
No this 1s a THKE OVER poll 


Meaning of "Handling" Poll (hat does code do if handled’): 
Perform Cursor Key on file, return to MAIN30/MAINLP 
See votes below. 


Entry conditions for handier: 
Larry set 
BLA] = Pail number = pCURSR 
HEX node. 
P=O, 


Type of Key: Status: sCURUP (S2)  sCURBT ($3) 


Cursor Botton 0 { 
Cursor top 1 0 
Cursor Up 1 1 
Cursor Down 0 f 


Call RDCHL+ to get Filetype returned in R2 


Normal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 


HEX node 
Perfors Cursor Key on file 
GOVLNG to MAINIO 


Nornal exit conditoons fron handler if not handled (ST, RAN, 
registers, etc. ): 

HEX nede,. 

KMN=1. 

S2 and $3 must be preserved 


Rvarlable subroutine levels: 5 
FPGLL handler 1s tuo levels deeper than caller 


Invoked fron CURSOR keys --- top level 
NOTE: 
The file type of the current file can be deternined: 
Call] RDCHD+; R2 = Fale type on return si 
What registers/RAM may be used if handled?: \ > 
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R-D, DO, DI, P always available-- 

Anything nay be used: Status,RO-R4, SCRICH... 

CURRL (4 nibs) holds the current BASIC file line nunber 
This field may be used if CURRENT file is line nurbered 


What registers/RAN nay be used if not handled?: 
A-C, D[15-5] DO, D1, P aluays available 
NOTE: D[A] 1s sacred in FPOLL!!-- 

RO-R4 


Special neriory/pointer considerations (are pointers funny?): 
Take care when returning to the MAIN LOOP 


MAIN3O is the return point for Cursor Keys in BASIC 

The line has been deconpiled 

The pronpt 1s sent and the display built (BLODSP) 
MAINLP 1s the return point 1f NOTHING is displayed 
CR/LF with no delay has been sent (S-CRLF) prior 

to displaying the line. 


Envisioned application(s): 
Allow Cursor keys to display lines of a non BASIC file 


The handler 1s responsible for maintaining the 
“Current file" position. Possibly an 1/0 Buffer can 


be used, 
History: 
Date Progranner Modification 

03/01/83 JP Added poll 

04/14/83 JP Revised docunentation 

06/02/83 SW If null file, check for AUTO node: 
Not AUTO rode => goto MAINLP 

AUTO mode => display curr line 
(Before, went to NAINLP regardless) 
17.6 POLL - Poll LEX Files with Process Nunber 


Category: POLL File: JP&POL::NS 
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Nane:(S) POLL - Poll LEX Files with Process Nunber 
Nane:(S) POLLD+ - Poll LEX Files adjusting RVMEME in D(A) 


Purpose: 
Poll All LEX Files for Special Processing 
Pass a Process #, and Paraneters to each LEX File 


POLLD+ entry used for routines needing to pass AYMENE 
in register D(A). This value 1s adjusted to 
reflect the save area used by POLL. 

Currently used by Parse and Deconpile. 


Entry: 
POLLD+: Sets D(A) to what AVMEME will be during poll, 
then falls through to POLL 
Used during Parse and Deconpile 


Exanple: 


GOSBVL =AVS=D0 Set AVMENS @ DO 
GOSBYL =POLL Issue Poll 

CON(2) =pDEVCp Device Parse Poll 
GOSBVL =D=AVNE Reset D(A) @ AVMENE 


GOC ErrRtn Error Return 

7xH=0 

GOYES Handle Handled by LEX File 
oe Not handled 


POLL:  Process# @ Calling Routine Return Address 
Process# = CON(2) 


HEX Mode 

Exanple: 

GOSBVL =POLL Issue Poll 

CON(2) =pFILXQ File execute poll 
GOC ErrRtn Error Return 
?xN=0 


GOYES Handle Handled by LEX file 
soa Not handled 


Assuries: 

ATHSTK 1s active when called 
Any routine polling with active stack nust update 
AVNEME to top of stack pointer 

Uses SNAPBF for tenporary storage of registers 

Uses SAVSTK to stack POLL infornation 

Moves menory fron FORSTK --> AVNENE before Save 

Meniory check w/o LEEWAY for Poll Save Area 

Calling routine return address saved on GOSUB stack 
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Will be updated if nenory moves during poll 








Entry to LEX File Poll Routine: 
Carry Clear to indicate Normal Poll (see FPOLL) 
B(A) = Process# 
B(B) = Process # 
B(2-4) = 0 
R,D,D0,D1 = Original Contents fron Calling Routine 
R registers, Status are untouched by POLL 
RO-R3, status cannot be destroyed while identifying 
Process#. 
3 levels of subroutine stack saved 
One nore stack level available than routine issuing 
the Poll 







te 


Carry set 


Insufficient Menory to Issue Poll OR 

Error return / "Sonething Funny" fron LEX File 

All registers & pointers preserved fron LEX File 
EXCEPT A,B 

A,C have the sane value on return 
The contents of C on return fron LEX file are 
saved in R, then put back into C before return 
Allows LEX Files to return Error # in C(0-3) 


If not enough nenory to save POLL info 
C(0-3) <-- eNeEn 


A routine issuing POLL should check for CARRY 
If there was not enough nenory to issue the poll 
this exception should be noted/indicated. 


Carry clear 





Look @ XN to deternine if handled 
If xM=0 
Process has been handled by LEX File 
All regs & ptrs preserved fron LEX File 
EXCEPT B,C 
R is NOT destroyed 


If XM=1 
Process has NOT been handled 
Registers & pointers restored to Entry values 
EXCEPT B,C 
A is not destroyed 


AR POLL responder rust return with CARRY CLEAR 
if NOT error return or NOT handled 


QR POLL responder must return with CARRY SET 
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1f Error return 


C(0-3) should hold the Error Nunber 


It will be saved in A, then restored to C 


Take over handler 
The poll responder does not return to the POLL routine 
This 1s allowed by certain individual polls as 

indicated in their documentation headers 

The handler MUST: 

GOSBVL =COLLAP to collapse POLL Save info 

GOSBVL =POPUPD to pop POLL issuer’s rtn address 


Calls: 


Uses: 


Exclusive: 


SALLOC, CRGINP, FIRSAV, RESRTN, RESSVA, 


GLXPOL, SNAPSV, SNAPRS, MOVEU3, SNAPBF 


RSTKeR, PSHSTL, MENCKL 


SNAPBF,P, SAVSTK, 2 levels in RSTKBF 


oc 
Inclusive: B,C,SNAPBF,P, SAYSTK, 2 levels in RSTKBF 


Stk lvls: 


Detail: 


=1Ap 
=1Dp 
=]1D1p 
=1D0p 
=1POLRp 
=IRTNZp 
=1RTN3p 
=] BPOSp 


Preserves all levels 


POLL saves Calling Return Address on GOSUB 
stack so 1t will be updated 1f nenory moves 


= Process# 
B(B) = Process# 
= Q 


Save Stack: 


A 

Dd 

1 

ho 

Poll Nunber 

Rtn Level 2 

Rtn Level 3 

Relative Position in LEX Buffer 


Length of Save Stack = 


GOSUB Stach: 


Return Type = F indicate an Update Address 
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16 
16 
5 
2 
5 
5 
5 
5 @ SAVSTK - 5 
High Nenory 
62 = 3E hex 
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Orieinal contents of A,D,D0,01 sent io each LEX File 
Carry clear, XM=0 on call to each LEX File 
registers and status untouched 


3 leveis of subroutines saved 
Return Level 1 1s saved on GOSUB stack 2s update 
address incase nenory moves during a Poll 
Return Level 2 and 3 are saved in SAVSTR area 
Information saved by POLL ac stacked from SAVSTK 
toward LOW menory. 
AVMENE is adjusted above saved information. 
AVAERE is readjusted when POLL returns 
This allows POLL to be called “recursively” 


\ 
t 


If “Error” Response fron LEX File (Carey Set) 
Ail registers & pointers left intact EXCEPT A,B 
Ao is used te save C during restore 
F.C have the returned value of C shen rtn to Caller 
C(O-3) <-- Ercor nunber 


If “nornal' Response from LEX File (XN=0) 
Ail registers & pointers left intact EXCEPT C,B 
C has the value of A on return 


If no LEX File respond (XM=1) 
Restore #,D,D0,D1 to entry vaiues 
RINSAM to Calling Routine 
£ 15 NOT set to A 


If LEX Fale wishes Poll to cantinue to others 
Carry must be clear, XM=1 
If “non-original" contents of A,0,D0,D1 are 
to be sent to other LEX Files, the infornation 
above S@Y/Sit can be altered by the LEX File 


Algorithn: 

Save #,0,00,01,Rtn Lvl 1 tenporary in SNARBF (SNAPSV) 

If not enough nenory te save info (SALLOC} 
Restore saved registers and pointers C(SNAFRS) 
Adjust return address past Process # 
{ <--- Error Nuriber (eMEN) 
RINSC 

Save Return Level 2 & 3 cus SALLOC uses 2 (D, DO} 

Allocate SAVSTK area (SALLOC) 

Restore tn ivl 3,2 to stack 

Nove tenporary save info ta SAYSTK (MOVEUZ) 


Read Return level 1, read process# @ Rtn address 
Write process # over Keturn Level 1 location 

Adjust Return Level 1 past Process #, saving in A(A) 
Save Rtn Levels 2,3 in SR¥YSTK 
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Save 2 levels in RSTK Guffer (R«RSTK) 
Push Rtn Levelt on GOSUB stack to be updated (PSHSTL) 
Nake sure LEEWRY 1s NOT checked when pushiig 


Restore Return Levels ERSTKCR) 
Initialize Relative Gffset into LEX Buffer to 0 

1: Get LEX File PULL address (GLKPOL) 
If LEK fale POLL address (Carry Clear) 


Save updated Rel. Position into Buffer in SAYSTK 
Push LEX file yup address on stack 
Restore registers.pointers, process# {RESSVA) 
Pop LEX file jump address 
Clear XM flag 
Gosut to LEX File Poll Routine (ERGIMP) 
Clear BIS} to save carry from LEX file return 
If Carry set (Error response fron LEX File) 

Set R=C to preserve C during restore 

goto 2; 


Tf LEX File responded (KM=0) 
Set BfS) = 3 
gota 2: 

else (No response) (xM=1) 


Restore Relative Position an LEX Buffer 
goto 1; (Continue polling) 
2: Save current 8,0,00.91 1n SNAPBF and 
Restore return lvis 2,3: Release SAVSTK (RESRIN) 


Restore current 8,0,D9,D1,Rtn Lyi 14 (SNAPRS} 
Push Rin Lvl 1 back on stack 
Set C=F 
Return ingicating carry fron LEX File (B(S)3 
else 
(No nore LEX Files in LE xBUF) 
Restore #,D,00,07 fron SAVSIK (RESSYR} 
Save A->D1,Restore Rtn ivls, Release SAVSTK (RESRIN) 
Restore A->D1,Rtni fron SNAPS (SNAPRS } 
Push Rtn Lv] 7 back on stack 
RINSX# 
History: . 
fate Progranner MNadification 
07/13/82 = JP Mod: fied docunantation 
WO/N4/BO TP No leeway check when allocate Save Area 
1Os/14f/Be IP Revirote to interface tc SNAPBF 
OVfai feo IP After SALLOC, restore RSTK fron 1} 
O2/O5/83 IP fewrote tu save Rin Addrs on GBSTK 
62/05/83 JP Set xM=1 1f Carry set/Error return 
02/15/83 IP No Leeway Check when PSKSTK called 
O3/01/83 JF Ndded iPOlra to DCA) rm POLLD+ entry 
O6/01/E3 IP Rdded MENCHK of CIPGLSV + IRTKADR) 
17-20 


ene ee a ee np ee RE A 


HP-71 Sottware IVS - Entry Point and Poll Interfaces 
Pail Interface Gescriotions 


17.7) FPULL - Fast Poll all LEX files with Process # 
Category: POLL Fale: JP&POL::MS 
Hane: (S} FPGLL  - Fast Poll ali LEX files with Process # 
Purpose: 


Pol} LEX Poles FAST, nothing 1s saved 


Entry: 
Pracess# @ Calling Routine Return Address 
Process = CUN(2) 


Exariple: 


GOSBVL =FROLL 
CON(2) =phMNLP Nain Loop Fast Poll 


At entry to LEX File POLL routine: 
Carry Set to indicate FAST Poll 
BIA} = Process# 
B(B) = Process# 
B(2-4) = 0 
D(A} = Relative Position in LEX Buffer 
Must be preserved ALWAYS HItll 
If the Poll Handler 1s responding 
and handling the poll such that 
the Poll wiil stop: D may be used. 
RO,F1,R2,R3 intact 


A LEX File may not destroy RO-R3 while deterraining wheth?? 
to respond. Individual POLL routines nust be checked *? 


register usage when responding. 


Stack levels are 2 deeper than caller 


Exit: 
P=0 
Assuming no LEX File hag set P 
neo 
Process has been handled by LEX File 
nM 1 


he=?t 
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No response to Poll 


Tf a LEX File wants the Poll to continue to others 
XM=i on return 
Registers needed to be passed to other LEX Files 
nust be preserved !iill 


Typically a fast poll must continue to ALL LEX files 





Calls: GLAPOL 


Uses.... .. 
Exclusive: AER), 
Inclusive: §(#), 


DLA) cannot be destroyed hy any LEX File 
RO-Ri, status must remain intact while determining if 
reconding to poll. 


Ste lvls: 2 
Algorzthni: 


Initialize Reiative Uffset to LEX Buffer to 0 
1: Get LEX File Poll Aadress (GLXPOL) 
Tf LEX File Poll Address (Carry clear) 
Save Relative position in LEX Buffer (D) 
Retrieve Precess # 
Clear «RM 
Gosub te LEX File’s Poil routine u/ Carry set 
If LFK fale did sect respond (xM=1) 
Restere relative position in LEX buffer 
goto 1; 
else 
Adjust Return Address past Process# 
RIN 
else 
Rdjust Return Address past Process# 
RINOMA 


History: 


Bate Pi ngranner Nodification 


O7f{1F/R2 oP Nodified documentation 
Obf/OG/S2 IP Packea out CRGJNP/set carry: FPQL40 
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17.8  pPARSE - Parse Take Over Pol) 
Category: POLL File: JP&PR1::MS 


Nane:(S} pPARSE - Parse Take Over Poll 
Type: FPOLL 


Purpose: 
Parse take-over to allow a LEX file to parse an input 
line as other than BASIC 


Should poll be "Handled" 
Don’t worry about XM, since if handled, there’s no return 


Meaning of "Handling" Poll (what does code do if handled?): 
Parses line, acts accordingly, returns to MAINLP. 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set 
B[A}] = Poll nunber. 
HEX node. 
P=0, 
INBS points to input line 


Norrial exit conditions from handler if handfed (ST, RAN, 
registers, etc.): 
Return to MAINLP 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): ” 

HEX rode. 

xM=1. 


Available subroutine levels: 


NOTE: 


--SCRATCH RAN TO CONSIDER BELOW: -- 
--STMT/FN Scratch, SCRTCH, SNAPBF, TRFNBF, LDCSPC, -- 
--LEXPTR. -- 


What registers/RAN nay be used if handled?: 
A-D, DO, D1, P 
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RO-R4, SO-S11, STNT/FN scratch 


What registers/RAM may be used if not handled?: 
A-C, D[15-5] DO, D1, P 
RO-R4, SO-S11, STMNT/FN seratch 


Special nerory/pointer considerations (are pointers funny?): 
No 


Envisioned application(s): 
"Auto Corment’ 
Alternate language parse (in conjunction with pEDIT) 


History: 
Date Progranrer Modification 
02/15/83 S.W. Added poll 


17.9 pFSPCp - POLL for File Specifer Parse 
Category: POLL File: JP&PR3::MS 


Nane:(S) pFSPCp - POLL for File Specifer Parse 
Type: POLL 


Purpose: 
POLL for File Specification Parse. 
Unquoted string is not a legal mainfrane file nane. 


Either: 

a) the 1st character isn’t a letter or colon 
(device specifier starting with a character 
other than a colon) 

OR 

b) Valid file name 1s followed by a 
“nan-terninating"” character, ie one in the 
RSCII range of "." to "2" (with the exception 
of ":" and "@"). The character nay be a part 
of the file name (as in a file name with nore 
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than 8 characters or a file nane that starts 
with a letter, but contains a character other 
than a letter/digit}) OR it may be a deliniter 
betueen the file nane and the device specifier. 


Should poll be "Handled" (return with XM=0)?: 
Yes - If File specificer 1s recognized 


Meaning of “Handling” Poll (what does code do if handled?): 
Parse and tokenize file specification analogous to 
the trainfrane tokenization: 


Filenane over 8 characters or a file nane with a 
non letter/digit character enbedded in it. 
tLITRL <ascizr file nane> 

Ex: RBC_X or ABCDEFGH 


Filespec beginning with character other than a letter 
or a colon: 

tCOLON tLITRL <ascii file specifier> 

Ex: /WAND 


In the first case above, if the valid file nane is 
innediately followed by a ’non-terninating’ 

character not recognized by the responder 

(letter in the ascii range ’.’ to ’z’ not 

including letters/digits or ’@’), a poll to pDEVCp 

tay be appropriate. 

tLITRL <ascia file nane> tCOLON tLITRL <ascia device> 
Ex: ABC_X.DISC or RABCDEFGHI/DISC 


Entry conditions for handler (registers, ST, RAM, etc.): 

$4=$10=$7=0 

B[R] = Poll nunber (pFSPCp) 

HEX rode. 

P=0, 

D(R) = (AVMENE) 

D1 @ Start of File specification 
(D1 points past any preceding blanks) 

DO @ Position in Output Buffer to begin output of 
File specification 

R3(5-9)=01 @ start of file specfication input 

R3(A) = DO @ start of file specifcation output 


Noriial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

P=0 

$4=$7=810=0 

HEX rode. 

XM=0. 
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File specification 1s accepted and output @ DO 
See NOTE below 

DO past last token of file specificaiton 

01 past file specification in input buffer 

R3 intact fron entry 


Norrial exit conditions fron handler if not handled (ST, RAM, 
registers, etc.): 

Carry clear 

P=0 

HEX node. 

$4=$7=S10=0 

XM=1. 

R3 intact fron entry 


Error exit conditions fron handler (POLL only): 
P=0 
Carry set. 
HEX rode. 
$7=$10=0 
R3 intact fron entry 


Available subroutine levels: 6 
POLL handler is one level shallower than caller-- 
FSPECp uses 5; therefore Handler can use 6 


What registers/RAMN may be used if handled?: 
R-D, DO, D1 
RO,R1,R2,R4 
STMTD1, S-RO-O, S-RO-1, SCRICH, all of function scratch 


What registers/RAM nay be used if not handled?: 
A-D, OO, D1 
RO,R1,R2,R4 
STNTD1, S-RO-O, S-RO-1, SCRICH, all of function scratch 


What registers/RAM may be used if error exit (POLL only)?: 
A-D, OO, D1 
RO,R1,R2,R4 
STMTD1, S-RO-O, S-RO-1, SCRICH, all of function scratch 


Special nenory/pointer considerations (are pointers funny?): 
No, 


Detail: —- 
If HPIL 1s plugged in, it will answer this poll. 
Therefore, any other LEX file answering this poll 
should use an anologous tokenization schene for the file 
nane/device specifier tokenization so that file specifier 


execution works properly. re 
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To get control during execution, respond to pFILXQ. This 
ig a poli that 1s NOT answered by HPIt. If this poll 

is not ansuered by another LEX file, another poli is sent 
out later which HPIL answers. 


For nore information on hou HPIL tokenizes devices, see the 
Detail portion of the docunentaion on phE¥Cp. 


Envisioned application(s): 
Handle external file specifiers 
A123456 729 
AY 3456729/D1S8E 


A1C3. WAND 
AB x. DISC 
/WAND 
History: 
Date Progranner Modification 
O7/15/82 = JP Added docurientation 
05/07/83 JP Modified docunentation 


17.10 pDEVCp - Poll for Device Specifier Parse 


Category: POLL File: JP&PR3::MS 


Nane:(S) pDEVCp - Poll for Device Specifier Parse 

Type: POLL 

Purpose: 
POLL for unrecognized device specifier following ":". 
If a fiie name preceded the colon, it has already been 
iritten to the output buffer. 


Should poll be “Handled (return with #M=0)?: 
Yes if Device specifier 1s recognized by handler. 


Meaning of "Hardling” Poll (what does code do if handled?): 
Parse and output tokenized forn of device specifier 


Ties 
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See detail belou 


Entry conditions for handler (registers, ST, RAM, etc.): 


B[R] = Poll number (pDEVCp) 

HEX node. 

P=0, 

$4=$7=$10=0 

D1 past colon in file specification 

If a filenane was specified, its tokenization uas 
written to the output buffer & DO points past the 
last character of the filenane 


D(R) = (AVMENE) 
R3(A) = 1 @ start of tokenized filespec in output 
buffer 


R3(9-5) = 01 @ start of file spec in input buffer 


Nornal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 


Carry clear 

$4=S$7?=$10=0 

P=0 

HEX node. 

KN=0, 

Tokenized device uritten to output buffer 

DO points past the tokenization 

D1 is past the corresponding text in the input buffer 
R3 preserved from entry 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 


Carry clear 

542387281050 

P=0 

HEX node. 

xM=1, 

Tokenized device specifier written to output buffer 
DO points past tokenization 

Di points past device specifier in input buffer 

R3 preserved fron entry 


Error exit conditions from handler {POLL only): 


Carry set. 

HEX wode. 

P=0 

S10=0 

R3 preserved fron entry 


Available subrouiine levels: 6 


FSPECp used § levels 
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If HPIL 1s plugged in, 1t responds to this poll; 
it accepts ALL device specifiers following the colon. 
Therefore, all LEX files should tokenize device 
specifiers in the sane manner so that during execution 
the filespec execution routines work properly. 


Respond to pFILXQ to gain control at execution. HPIL 
does not respond to pFILXQ. 


Detail: 


HPIL tokenizes devices as follows: 


device word: (: TAPE) 
tCOLON tLITRL <ascii device word> 


accessory ID: (:2%32) 
tCGLON t2 cexpr> [ tCOLON <expr> } [ tSEMIC <expr> ] 


volume label: (. LABEL1) 
tCOLON tSEMIC <literal up to 6 chars> [ tSEMIC <expr> J 
Loop # 
address: (:1) 
tCOLON <expro [ tSEMIC <expr> Jj 
(seq#) (loop#} 


assign word: (:TV) 
tCOLON tLITRL <assign uord> [ tSEMIC <expr> J 


Heg (* 


tCOLON t* 


What registers/RAM nay be used if handled?: 


A-D, bo, 01 

RO, R1,P2,R4 

STMTD1, S-RO-O0,S-RO-1, SCRTCH 
Rll of function scratch 


What reqisters/RAMN nay be used if not handled?: 


A-D, 0O, BI, P 

RO,R1,R2,R4 

STMTD1, S-RO-0,S-RO-1, SCRTICH 
Rll of function scratch 


What registers/RAM may be used if error exit?: 


A-0, DO, DI, P 

RO,R1,R2,R4 

STMNTD1, S-RO-0,S-RO-1, SCRICH 
All of function scratch 


Special merory/pointer considerations (are pointers funny?): 
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No 
Envisioned application(s): 
ABC: TAFE 
> TAPE 
History: 
Date Progranner Modification 


O7/19/82 Jp Rdded docunenation 
05/08/83 JP Modified docunentation 


17.71 pRUNFt ~ Poll on RUN with unknown filetype 


Category: POLL File: JP&SYS::MS 


Nane:(S; pRUNfFt - Poll on RUN with unknown filetype 
Type: POLL 


Purpose: 
Poll on RUN with fale of "unknown" filetype 
Filetype is NOT BASIC or Binary 


should poll be “Handled” (return with XM=0)?: 
No - this is a take-over Poll 


Meaning of “Handiing" Poil (hat does code do if handled?): 
Take over the RUN execution of the file 


Entry conditions for handler (registers, ST, RAM, etc.): 
BLA} = Poll nurnber (pRUNFt) 
HEX node. 
P=0, 
ACA) = File type (HEX) 
R2(Aj= File type (HEX) 


Di =6©@ File length (offset) field in file header » 
5 nibble read @ 01 = Offset to next file \, wo 
Current D1+ offset --> Next file start 4 \ 
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CAT file length = 
File offset value - Offset to data of file 


sCONT = 1 Af CONT ($10) 
sCONTK = 1 if CONT/RUN key ($9) 
sCHAIN = 1 if CHAIN statenent (S11) 


Nornial exit conditions from handler if handled (ST, RAN, 
registers, etc.): 
Carry clear 
HEX node. 
XN=0, 
GOVLNG to MAINOS 
or 
GOVLNG to BSCEXT to exit the BASIC interpreter 
This 1s done by BASIC and Binary prograns 
Filetype read, Buffers are flushed 
AR fast poll is issued: pBSCex 


See NOTE below 


Norral exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX trode. 

KM=1. 

Preserve Status 


Error exit conditions from handler 
Error returns are ignored, 
If the POLL returns: 
If carry set ---> “eMEN" fron POLL 
else ---> “eFTYPE" fror RUN 


Available subroutine levels: 7 
--POLL handler 1s one level shallower than caller-- 
RUN is a top level statenent/cornmand 


NOTE: 
finy Lex File running a non BASIC file should: 
Clear the SUSP annunciator 
Set the PRGM annunciator (see SFGPGN) 
Collapse all BASIC stacks (see CLPSTK) 
Set CURRST, CURREN @ file (see EDIT20) 


Responder should issue a pRUNnB (RUN non BASIC) Poll 
The nainfrane issues a "pRUNnB" shen 
running a Binary file with the filetype in A(A) 


What registers/RAM nay be used if handled?: 
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--A-D, BO, Di, P always available-- 
RUN is in conplete control at this point 


What registers/RAN nay be used if not handled?: 


--R-D, DO, D1, P always available 
Global status ($12-S15) are sacred 


What registers/RAN tay be used if error exit?: 
No error exit allowed 


Envisioned application(s): 


Extend RUN statenent to handle other file types 


History: 


Date Progranner 
09/16/82 JP 
01/16/83 JP 
04/19/83 IP 
04/24/83 JP 


17.12  pRUNnB - Poll before non BASIC file exec (BIN) 


Category: POLL 


Nane:(S) pRUNnB - Poll before non BASIC file exec (BIN) 


“Type: POLL” 
Purpose: 


of a non BASIC file 


Modification 


Added Poll 
Check carry fron Poll 


Updated Docunentation 
Changed entry conditions 


File: 


JIP&SYS: 2 MS 


Poll before starting execution or continuing execution 


Poll before running a BINARY file 


Should poll be "Handled" (return with XM=0)?: 


No - let this poll go to all other Lex files 


Meaning of “Handling” Poll (uhat does code do if handled’): 
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Perforn any “systen" or special initialization needed 
before Binary file is executed. 


Entry conditions for handler (registers, ST, RAM, etc.): 


B[A} = Poll number (pRUNNB) 
HEX node. 
P=Q, 


R2(A)= File type of file to execute 
DO = @ Start of code to execute 
BHSIC stacks have been collapsed 


General purpose poll 


Mainfrare poll will ALWAYS be Binary exeucute 
R2(A)= FBIN 
DO @ Start of binary file 
If sCONT ($10) = 1 
Executing a CONT statenent 
CNTADR 1s always zero, unless a Lex file has 
set this (see pBSCex Poll) 
Therefore, CONT is always a RUN 
If sCONTK ($9) = 1 
RUN or CONTK hit 
If sCHAIN (S11)= 1 
CHAIN statenent 
SUSP annunciator has been cleared 
PRGN annuciator and PgnRun flag have been set 
Current file pointers @ Binary file 


Norral exit conditions fron handler if handled 


This poll should NOT be indicated as handled so 
other Lex files can "set-up" before execution. 


Tf Lex file wants to be the ONLY Lex file to handle: 
then: 


Carry clear 

HEX rode. 

xTI=0. 

DO must be PRESERVED!!! 
Preserve $3 


Norrial exit conditions fron handler if not handled 


Carry clear 

HEX rode. 

XN=1. 

Status intact: sCONT(10), sCONTK(S9), sCHAIN(S11),S3 
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Error exit conditions fron handler: 
Error return has no teaning --- 


Available subroutine levels: 
~-POLL handler is one level shallower than caller-- 


This is a RUN... therefore all levels (6) available 
Must be able to return to POLL routine 


NOTE: 
See Special nenory/pointer considerations 
What registers/RAN tay be used if handled?: 
~-A-B, DO, D1, P always available-- 
~-RO-R4, scratch RAN?-- 


What registers/RAN riay be used if not handled?: 
~-A-D, BO, D1, P always available 
--RO-R4, scratch RAN?-- 


What registers/RAM may be used if error exit (POLL only)?: 
No error exit allaned 


Special nenory/pointer considerations (are pointers funny?): 


Binary Files will aluays be RUN/CONT fron the start of 
the file... it is “impossible” to systenatically 
return a reaningful CONTinue address through the BASIC 
loop. If a Binary file wishes to inplenent CONT... 
it should respond to the pBSCex poll: 

If current filetype is Binary and sERROR=1 
Update CNTADR @ Binary code to CONTinue at 
Set the SUSP annunciator (SFLAGs) 


If a Poll Handler intends to CALL BASIC fron within: 

Return Address to Poll must be saved on the GOSUB stack 
(Use PSHUPD and POPUPD) 

The FORSTK must be adjust OVER the Poll Save infornation 
before the CALL and readjust after. CALL uses the 
FORSTK pointer to save information and if FORSTK is 
not adjusted, Poll Information is overuritten 


Before CALL After CALL 
D1=(5) =FORSTK " 
A=DAT1 A 
C=0 A " 
iC(2)  =1PQLSV 2 
A=A-C A R=A+C 8 =A 
DRT1=A A DATI=A A 


Envisioned application(s): 
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Set up 1/0 buffers before Binary execution or sone 
type of non-BASIC fale. ; 


distory: 
Date Progranner Modification 
09/16/82 JP Added Pol} 
; 01/16/83 JP Generalized Poll for any file type 
omen 04/22/83 JP Upgraded docunentation 
04/25/83 JP Pass File type in R2 instead of A 


17.13 pBSCen - Poll entering BRSIC interpreter 


Category: POLL File: JPASYS:: MS 


Nane:(S) pBSCen - Poll entering BASIC interpreter 
Type: FPOLL 


Purpose: 
Fast poll when entering BASIC interpreter 


Should poll be "Handled" (return with XM=0)?: 
No - Either this poll as a TAKE OVER poll 
or it should continue to ALL LEX files 


Meaning of “Handling” Poll (what does code do if handled?): 
Take over BASIC interpreting 
Set up infornation/buffers/flags before execution 
begins, then let Poll contznue 


Entry conditions for handler (registers, ST, RAM, etc.): 
~-Carry set on entry iff fastpoll-- 
B[A] = Poll nunber (pBSCen) 
HEX Hode. 
P=0. 


If PgnRun ($13) 


Progran about to be executed (RUN/CONT/SST} 
If NoCont (814) 


+7-35 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


SST (Single stepping) 
If sCONT (S10) 
Continue 
If sCONTK (S9) 
CONT or RUN Key 
RO @ ECL or "@" prior to statement to execute 
else 
Keyboard execution fron Statenent Buffer 
RO @ Staterent length byte of statenent 


Nornal exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 
HEX node. 
This poll should never be "“nornally" handled 
Either the LEX file takes over or allous other 
LEX fales to respond. 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

xM=4. 

Global status intact 

De not use $3 

RO wust be PRESERVED !i!lt 


Available subroutine levels: 
--FPOLL handler 15 tuo levels deeper than caller-- 
This is a “top level" poll --- 6 levels available-- 
Must be able to return to Poll routine 


NOTE: 
GOSUB,CRLL,FNx invoked Fron the keyboard will appear 
as Keyboard Execute. The PgriRun flag will be clear. 


Program execution will begin isith NO indication. 


For CALL: pCALSV polls uhen CALL execute begins 
FNx: pFNIN polls when FNx executes begins 


Binary Files will always be RUN/CONT fron the start of } 
the file... 1t as “innossible" to systenatically | 
return a meaningful CONTinue address through the BASIC 
loop. If a Binary file sishes to implement CONT... | 
1t should respond to the pBSfex poll: 

If current filetype is Binary and PgnRun=1 
Update CNTADR @ Binary code to CONTinue at 
Set the SUSP arnunciator (SFLAGs) 


What registers/RAM nay be used if not handled’: 
--A-C, DE'5-8) BG, 01, P aluays avarlable (FPOLL only)-- 
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~-NOTE: D[A] as sacred in FPOLL!!-- 
~-RI-R4, ST (low 12}, scratch RAM-- 
This 1s a top level poll ... nothing else 1s going on 


Envisioned application(s): 
Inplerent BREAKPOINT capability within progran: 
set sExcept at entering to allow checking after 
each staterent 


Indicator to FORTH/VISICALC type applications that 
BASIC has been invoked. 


History: 

Date Progranner Modification 
01/16/83 JP Added Pol 
04/23/83 JP Updated/revised docunentation 


17.14 pBSCex - Poll to Exit BASIC Interpreter 
Category: POLL File: JP&SYS::MS 


Nane:(S) pBSCex - Poll to Exit BASIC Interpreter 
Type: FPOLL 


Purpose: 
Fast Poll when Exiting the BASIC interpreter 
Indicates progran/statenent execution is stopping 
Caused fron: 
End af line of statenent execution 
Progran ENDing or STOPping 
Hait from: ATIN key, SST, PAUSE, Error 
Ending a Binary progran 
Systen 1s about to return to MAINLP 


Should poll be "Handled" (return with XM=0)?: 
No ~ This poll should never be “handled” 
Eather the LEX file "TAKES QVER" 
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Cr responds “not handled" so other LEX files nay 
respond. 


Meaning of “Handling” Poll (what does code do if handled?): 


Clearfupdate inforriation 
If TAKE-OVER ---> gain control after BASIC execute 
before ue go back to MAIN LOOP 


Entry conditions for handler (registers, ST, RAN, etc.): 


NOTE: 


--Carry set on entry iff fastpoll-- 
B[R} = Poll number (pBSCex) 
R2(A)= Filetype 
HEX “ode. 
P=0. 
Math stacks have been collapsed 
Exceptions are checked PRIOR to this poll 
See p&xcpt Poll 
Tf not Frror Exit (not sERROR) 
Buffers have been flushed 
Tf NoCont ($14): 
If Progran was running (and BASIC file) 
SUSP is lit 
CNTHOR updated 
CURRL updated 
Halting due to one of the following: 
ATIN Key  (ATNFLG RAM 1s non-zero) 
END,/STOP or end of program (sENDx=1) (S1) 
Error (sERROR=1) 50) 
SST 
PRUSE 
END(DEF), END(SUB), RETURN from keyboard 
(Error Exits can be trapped with pERROR, pWARN polls) 
If not NoCont (S14=0) 
If PgnRun (S13) --> Program was running 
SEN{ix=1 1f STOP/END statement 


GOSUd, CALL, FNx invoked fron the keyboard 

will enter and exit as Keyboard Execute... 

The ParRun flag will NOT be setittl 

RETURN, ENDSUB,ENDDEF clear PgnRun before exiting 


For CALL: pCALRS polls when CALL 1s ending 
For FN»: pFNOUT polls when FNx 1s ending 


Nornal exit conditions fron handler af not handled (ST, RAN, 
registers, etc.): 


HEX mode. 
XN=1, 
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Preserve sENDx, sERROR, PgrRun, NoCont, ATNFLG 


Available subroutine levels: 6 
--FPOLL handler is tuo levels deeper than caller-- 
This 1s a top level Poll --- 6 levels available, unless 
TAKING OVER... then 7 


What registers/RAN may be used if not handled?: 
--A-C, D[15-5] DO, D1, P always available (FPOLL only)-- 
~-NOTE: D{A] 1s sacred in FPOLL!!-- 
~-RO-R4, scratch RAN-- 


Special Considerations: 
Binary Files tay return through this exit point 


A Binary file taking an error exit through the nainfrane 
can "SUSPend" a binary progran by setting CNTADR at 

the address to continue at within the file and setting 
the SUSP annunciator. 


Envisioned application(s): 
Allow a LEX file to gain control after BASIC execution 


History: 

Date Progranner Modification 
07/20/82 JP Added poll/docunentation 
01/16/82 9 IP Modified poll 
04/23/82 IP Revised/updated docunentation 
04/25/82 JP Pass filetype in R2 

17.15 pExcpt - Poll on Exception after Stnt Execute 
Category: POLL File: JP&SYS::NS 
Nane:(S) pExcpt - Poll on Exception after Stnt Execute 
Type: FPOLL 


Purpose: 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


Fast poll to indicate Exception has occured 

Allows servicing of Exceptions at the end of each 
statenent execute. 

The Exception flag (Except (S12)) must have been set 
in response to pSREQ or prior to re-entry to BASIC 
loop (@ RUNRT1) 


Should poll be "Handled" (return with XM=0)?: 
NO - This poll must continue to all LEX files 


Meaning of "Handling" Poll (that does code do if handled?): 
You can process YOUR exception, but indicate the Poll 
was NOT handled. 


Entry conditions for handler (registers, ST, RAM, etc. ): 

--Carry set on entry iff fastpoll-- 
B[A] = Poll nunber (pExcpt) 
HEX node. 
P=0, 
Except (S12) = 0 fron Mainfrane 

Subsequent "responders" may set this to cause 

Except next tine around. 
PgnRun = 4 

If progran running 
NoCont = 1 (S14) 

If execution NOT to continue 

Caused fron SST, PAUSE, END/STOP, 
END(DEF), END(SUB), RETURN from Keyboard 

The attention key HAS NOT been checked, yet 

ATNFLG RAM location#O if ATTN Key hit 

The ATTN Key will cause progran execution to stop 
DSPSTA (RAM) holds S0-S11 

sENDx = 1 (SO) af END/STOP or End of Progran 
RSTK(3) Thard Return Stack Level (0,1,2) 

= DO setting from RUNRTN 
Points at EOL or @ following statenent just 
executed. 


Nortial exit conditions from handler if handled (ST, RAM, 
registers, etc.): 
Response to this poll should NEVER indicate “handled 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XM=1. 

S12-S15 must be preserved 

Stack levels: 0,1,2 preserved 


Available suroutine levels: 4 
--FPOLL handler is tuo levels deeper than caller-- 
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This poll is issued fron the TOP level 

But the Current DO 1s 3rd level on stack 

This value cannot be lost; nor the return address to 
FPOLL 

Preserve levels: 0,1,2 


NOTE: 
Error Exit to BASIC loop does NOT check exceptions 
Lou status are restored fron DSPSTA at the End of the 
Poll. 
Math stack has been collapsed 
ATTN key has been checked---causing NoCont to set (S14) 
Tiners (1-3) will be checked after the pExcept poll 


What registers/RAM nay be used if handled?: 
N/A 


What registers/RAM may be used if not handled’: 
--A-C, D[15-5] 0, D1, P aluays available (FPOLL only)-- 
--NOTE: B[R] as sacred in FPOLL!!-- 
--RO-R4, SO-S114 


Envisioned application(s): 

Service external alarns/tiners 

Service ON INTR statenent 

Inplenent BREAKPOINT capability in BASIC 
Checking next statenent to execute for Breakpoint 
Setting Except (S12) so pExcpt will occur at the end 
of the next statenent 

Servicing ON TINERH > 3 from an extended statenent 


History: 

Date Progratner Modification 
01/16/83 JP Added poll 
04/04/83 JP Status saved/restored in DSPSTR 
05/07/83 JP Updated docunentation header 


05/18/83 JP Attn Key not checked before poll 
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17.16 pZERPG - Poll to zero progran information 


Category: POLL File: JP&SYS::MS 
Narie:(S) pZERPG - Poll to zero program infornation 
Type: FPOLL 
Purpose: 


Fast poll to allow future staterients to zero addresses 
and RAM associated mith extending a statenent, adding 
a statenent or application. 


This poll issued when zero progran infornation due to 
an END, ENDALL, EDIT, Progran Edit.... 


Issued fron CLRSTK/CLPSTK/ZERPGN routine. 


Should poll be "Handled" (return with XM=0)?: 
No - This poll should continue to ALL Lex files 


Meaning of “Handling” Poll (what does code do if handled?): 
Zero appropriate RAM / addresses associated with 
statenent or application. 


Entry conditions for handler: 
Carry set on entry 
BLA] = Poll nunber (pZERPG) 
HEX riode. 
P=0, 


BASIC stacks have been collapsed to appropriate 
level. . 

CONT, ON ERROR, ON ERROR GOSUB, ON INTR, ON TINER 
staterient addresses have been zeroed 

Tiner alarn RAM has be zeroed 

SUSP annunciator/flag has be cleared 


Nornal exit conditions fron handler if handled (ST, RAN, 

registers, etc.): 
This poll should never be "handled". ee 
Always return wath XM=1 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): bo oNey 
HEX rode. { 44 
i 
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RM=1, 
R registers intact. Status intact 


Available subroutine levels: 
~-FPOLL handler is tuo levels deeper than caller~- 
The invoking roctine (CLRSTK/CLOSTK/ZERPGM) uses 3 lvis 
Therefore, a handler nay use ONLY 1 Iv). 


Use RSTK<R ta save 3 levels in RSTKBF circular buffer 
Use R<RSTK to restcre 3 levels 


What registers/RAN nay be used if not handled?: 
--A-C, DEIS-5] BO, 01, P always available (FPOLL only)-- 
--NOTE: DEA} is sacred in FPOLL!!-- 
Do not use an R registers, please !!1! 
Do not use Status 
Bo not use §$-RO-0 


Envisioned applicationis): 
Extend cr add a statenent (like ON INTP) and need 
to zero the RAN address associated with the statenent. 


Zero I/0 Buffer associated with an application because 
all other progran information 1s being zeroed. 


Rote: 
Do not use S-RO-0 under ANY circumstances. 
(counted on by PURGE ALL} 


Histery: 

Date Progranner Modification 
02/04/83 JP Added poll 
04/23/83 JP Revised/updated docunentation 
05/13/83 JP Changed Usage docunentation 


17.17 pIMCHR - Poll for unrecegnized IMAGE char 


Category: POLL File: MB&ING:: AS 
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Nanie:(S) pIMCHR - Poll for unrecognized IMAGE char 
Type: FPOLL 


Purpose: 
To alert LEX files that an unrecognized character was 
found while parsing an IMAGE string. If a LEX file 
doesn’t handle it, “Invalid IMAGE’ error will resuit. 


Should poll be "Handled" (return with XM=0)?: 
Yes. 


Meaning of “Handling’ Poll (what does code do if handled?): 
Unrecognized character uas accepted, IMAGE token 
Stream was adjusted (if necessary) to process 
the character at execution, 


Entry conditions for handler {reqisters, S17, RAM, etc. ): 

Carry set (fast poll) 

B[R] = Poll number. 

HEX node. 

P=0, 

RO(A)=points to current positiun in BIGING token 
strean. If any tokens are to be appended to 
the strean, they should be added below this 
point. Pointer goes to 01, usually. 

RO(9-5)=execution pointer. Next tame execution of 
an IMAGE field starts, it will start here. 

R1(A)saddress of unrecognized character which 
Caused the poll. Pointer goes to 00, usually. 

Ri(9-S}=length of IMAGE string (in nibbles) 

Ri{S)=counter for complex nuneric fields 

R2(R)=counter for digits im numeric field (also 
for A’s in a literal field, but this counter 
1s not used). 

R3(A)=Progran Counter (1% at entry of USING routine) 

R3(9-5)=address of start of INAGE string. 

See USING routine header for explanation of status 
bits. 


Nornal exit concitions fron handler if handled (ST, RAN, 
registers, etc.): 
HEX node. 
RAFO, 
Di=points to current positon in BldING token 
strean, if tokens have been adued, D1 Hust 
have been proved; if not, Dt sust have beer 
set to the address in ROCA), 
D(AI= AyflerSt 
Ri(A)=address of next parse character in IMAGE string. 
This pointer should be suved past the character 
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Which caused the poil. 
Fois used to jump (see OTE) 
P= 0: junp to Nxtfid 
1: jurp ta ChDlnt+ ($3 nust=1) 
2: junp to INGx1 
Bther tields in R registers should be untouched, 
ursess the poll handier has specific reasons 
to change then. 
Status bits should be untouched, unless the poll 
handler has specific reasons to change then. 


Nornal exit conditions from handler if not handled (ST, RAM, 
registers, etc.): 

Cerry clear (POLL only). 

HEX node. 

X21. 

R registers untouched. 

(If not handled by any LEX file, IMAGE routines issue 

an "Invalid IMAGE” error.) 


Available subroutine levels: 
5 


NOTE: 
IMAGE parsing and execution are very involved. 
Study the USING routine header and pIMbck, pIMcpi, 
pINXCH and pINxQT poll docurientation to learn 
nore about the process. The USING routine header 
describes the meaning and values cf the INAGE 
tokens. 


The IMAGE string and BIdING token strean 1s kept 
in available nerory, below AvMenEnd. The BIdING 
tohen strean is built backwards (toward address 0) 
fron the boundary of the IMAGE string: 


BidING tokens IMAGE string AvNenEnd 


| } unrecognized char 
pointer im RO(A) pointer in RICA} 


Just because a character was encountered that your 
LEX file sail accept, don’t accept it blindly. 

For instance, don’t accept a digit specifier ina 
literal fzeld, For cases like this, you have to 
back up through the 81dING tokens to the field 
delimiter to see uhat type of field 1s being 
processed. Tf tne syntax of the new character 
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doesn't meet your requirenents, let the poll go 
cn ith KM=i ("not handled"). 


Any strange characters put into the BIdING stream 
by a poll handler uhich require special processing 
should be preceded by a uIMXCK token to alert the 
TARGE execution routines that the poll handler will 
execute it. Similarly, any strange characters 
which will adversely affect the backward searching 
during parse should be "protected" by a uJMPst token 
(which jurps over 74 nibbles), or a uIMbck token 
{uhich causes a pIMbch poll so that the poll handler 
can do the backup). Bachuard searching during parse 
is pertarned for tio reasons: 
1) to search for an open parenthesis (either to 
natch a clesing paren, of at the end of the 
DMHLE string to verify no unnatched parens}. 
2} to search for delisiter {to initialize an out- 
put field, or to fell an the nurber of digits 
im a nunerac freld). 


See the ,..Mbck poil docurentation for appropriate 
use of the ulfbck token. See the pIMXCH poll docu- 
mentation for examples of "protecting’ the tokens. 


Upon return com the pIMCHR poll, the poll handler 
can select three locations to junp to: 

Wxtrid -- This routine intializes a new field, 
avd will eccept only the nornal start-of- 
field characters (such as D,X,Z,A,S,etc.) 
If a normal start-of-fseld character 4s not 
found, another pIMCHR poll will be issued. 
hy tfid should be used if the unrecognized 
character 28, Say, a new type of digit 
specifier, a new editing symbol, or a new 
deliniter. However, if the new character 
initiates an output field, you should junp 
to IMGxq!. 

Ckliint -- This routine checks for editing 
characters, then accepts only a standard 
delimiter (conma,"/","@",etc.). If a 
delinater 1s not found, another pIMCHR poll 
will be x1ssued. Ini order to junp ta CkDIne, 
33 must be set=t !  Chdlne should be used 
at the unrecognized character, say, ternin- 
ates a field, or describes an entire non- 
output field (such as a new symbol which 
sounds the beener). 

TMGrq) -- This routine executes all pending 
IMRGE fields. "his should be done any tine 
a neu output field is initiated. If the 
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unrecognized character initiates a new out- 
put field, a uRESTP (restart IMAGE parse) 
token should be written into the BldING 
strean, and execution begun by junping to 
IMGxq1. A good exarple is the conplex 
field, which intercepts the pINCHR poll 

and causes a junp to IMGxqi upon return. 


What registers/RAM nay be used if handled?: 
A,B,C,D,00,D1,P 
R registers only to adjust values for specific reasons 


What registers/RAM nay be used if not handled?: 
A,B,C, O[15-5}, DO, D1, P 
Don’t change AVMENE pointer, or write to available 
nenory below AvMenEnd. 


Special nenory/pointer considerations (are pointers funny?): 
The IMAGE string 1s stored just below AvMenEnd. The 
BIdING token strean is stored below that. All this 
resides in available nenory, so it 1s volatile (in the 
sense that soneone can inadvertantly write over it, if 
they aren’t careful). 


Envisioned application(s): 
Well.... 
1) Complex IMAGE fields 
2) A symbol uhich causes a one-tine parsing of 

the IMAGE string (and stores it in an I/0 buffer) 

for subsequent execution. This would be much 

faster than parsing it each tine. 

3) Allowing the "%" symbol to generate digit output. 

) Specifying the "!" syrbol, say, to generate a 
beep during IMAGE execution. 

5) Using square brackets to allow nultiple-character 
replication. £.9., “5{3DC)" would be equivalent 
to "3DC3DC 3DC 3DC 30C" 

6) ... and soon... 


History: 


Date Progranner Modification 


12/08/82 MB Inplerented, docunented. 
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17.18 pImMbck - Backward search, IMAGE parse 
Category: POLL File: MB&INnG:: MS 


Nane:(S) pIMbck - Backward search, IMAGE parse 
Type: FPOLL 


Purpose: 
Allow LEX files to handle unknown tokens while 
perforning backward search during IMAGE parse. 


Should poll be "Handled" (return with XM=0)?: 
Yes. 


Meaning of "Handling" Poll (hat does code do if handled?): 
Backward search over unknown tokens was perforned 
properly. One of tuo actions was perforned: 

1) unknown field was closed 
2) unknown field was verified to be closed 
during final parentheses natch. 


Entry conditions for handler (registers, ST, RAM, etc. ): 

Carry set. 

B[A] = Poll nunber. 

HEX node. 

P=0. 

R1(R)=address of synbol which caused backward 
search (either a right parenthesis, or the 
end-of -inage). 

R2(R)=address (in BldING strear) of the ulMbck 
token uhich caused the poll. 


RO(A)=current position in BIdING token strean. 
Next token to be entered must be written below 
this address. 

RO(9-S)=address to start next IMAGE execution 

R1(9-5)=length of IMAGE string (#nibbles) 

R1(S)=counter for 2 complex nuneric fields. 

R3(A}=Progran Counter 

R3(9-S)=address of start of IMAGE string. 


Normal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 

HEX node. 

XNM=0. 
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D(R)=AvMenst 

Dl=current position in BIGING (taken from RO(A), 
adjusted if necessary) 

Other R register fields unchanged 

See NOTE below for changes to BidING strean. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX triode, 

XM=1. 

R registers untouched. 

BIdING token strean untouched. 

If not handled by any LEX file, IMRGE routines will 

issued an "Invalid IMAGE" error. 


Available subroutine levels: 
4 


NOTE: 
The plMbck poll is issued only when a ulMbck token 
1s encountered during backward search in IMAGE parse. 
The only way a ulMbck token could have been entered 
into the token strean is for a LEX file to have in- 
serted 1t during a pINCHR poll. 


Backward searching during IMAGE parse is perforned 
for tuo reasons: 

1) To search for an open parenthesis: either to 
natch a closing parenthesis (S5=0), or at the 
end-of-inage to verify no unnatched parentheses 
(S5=1). Use SS to distinguish the two cases. 

2) To search for a field delimiter: to initiatiate 
an output field, or to fill in the nunber of 
digits in a nuneric field. 

The pINbck poll 1s issued only for case nunber 1 !! 
(The ulMbck token is ignored during backward search 
for a deliniter.) 


This poll can be used by any new IMAGE syntax which 
uses parentheses to enclose a field (such as conplex 
fields), or by an application which needs to know 
when the end-of-inage has occurred (whether to check 
its oun tokenization, or whatever). 


Once this poll is issued, the backward search tern- 
inates -- if handled, parsing continues at the point 
here the backward search was caused; if not handled 
by any LEX file, "Invalid IMAGE” is reported. 
Typically, a LEX file sould expect to handle this 
poll only once -- to close the pending field (such 
as to close a complex field), or, failing to close 


17-49 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


What 


What 


it, to trap the error ("field not closed", such as 
unnatched parentheses) at end-of-inage. When it is 
handled properly (1.e., when the pending field is 
closed), the uIMbck token should be overuritten with 
another token so that the pIMbck poll is not issued 
again. For instance, the MATH ROM, when handling the 
pINCHR poll for a conplex field, inserts the following 
tokens in the BiIdING strean: 
ul uC u? ...fexisting BIdING tokens) 
C3} 6270) 
where 


ul =ulMbck token 
uC =uCPLXC token 
u? =flag to indicate whether multiplied field. 
uX =uIMXCH token (below) 
Later, when the closing parenthesis 1s found to close 
the complex field, the backward search will poll at 
token (3). The MATH ROM will overurite this token 
with a uIMXCH: 
uX uC u? ...(existing BldING tokens) 
(3) (2) (1) 
Since the corplex field was properly closed, a pIMbck 
poll need not be issued again. Note that if the 
closing parenthesis had not been found, the pIMbck 
token would still be there at end-of-inage. End-of- 
inage also perforns a backward search to detect un- 
matched parentheses; during this pIfibck poll, the MATH 
ROM would find S$S=1, 1assuing an “Invalid IMAGE" error. 


If an application handles the poll and wishes the 
backward search to continue, 1t should either perforn 
its oun backward search (see "BACK2(" routine), or 
"erase" its ulMbck token fron the BIdING strean and 
reposition D1 and DO so that the backward search 

1s performed once again by the IMAGE routines. That 
is, subtract 2 fron R1(R) (so that it will point to 
the synbol which causes the backward search), and 
restore D1 from RO(R) (the current position in the 
BldING strean). Or if the poll handler wants to be 
polled more than once, 1t can, each tine, nove its 
ulINock token out the search area (urite it below the 
current BldING address), and reposition Dt and DO 

as above to regenerate the backuard search. 


reqisters/RAMN may be used if handled?: 
A,B,C,0,D0,01,P,RO(R),R2,R4 eas 
Other fields in R registers may be adjusted as 
necessary. 
B1dING tokens tay be adjusted as necessary. 


} 
registers/RAM tay be used if not handled?: At 
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A,8,C,0[15-5],00,D1.P,R4 
Do net write below AvMenEnd (contains BIdING tokens) 


Special renory/painter considerations (are pointers funny?): 
The BidING strean resides in Avfen, belou AvhenEnd. 


Envisironed application(s): 

1) The MATH ROM uses the pINbck poll to close conplex 
inage fields. At that tine, 2% checks whether 
2 fand only 2) nuneric fields were included, and 
whether the fisla had a multiplier. It also 
generates « ulMXCX taken to execute the corplex 
field, ana another one to output a right paren- 
thesis. 

2) Say a LEY file inplenents an IMAGE synbol “=" 
which causes pre-parsing of the lriage string 
istoring the tokens in an 1/0 buffer). The 
syntax might be that it must be the first char- 
acter in the image string (ever before a "R"). 

RA pINCHR poll would be issued for the "="; the 
poll hancler would insert a ulMbch tchen as the 
first token in BidING strean. When the poll 
handler intercepts the pIMbck poll with S$5=1, 
Lt Would know that the entire inage string had 
been warsed, and was ready to store anay. 


History: 
Date Progranrer Modification 
12/08/82 MB Inplenerted, docunented. 
17.19 pImMcpi - Initializing IMHGE field in conplex 
Category: POLL File: MS&TAG:2 M5 


Narie:(S) pIMcpi - Inatializing IMAGE field in complex 
Type: FPOLL 


Purpose: 
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Rlert MATH ROM that a field is being raitiel:zed while 
a complex field is pending. Alert other LEX files that 
an output field is about to be initialized. 


Should poll be “Handled (return with XM=0)?; 
Yes. 


Meaning of ‘Handling’ Poll (uhat does code do if handied?): 
New field was verified to be numeric; total nurber 
of numeric fields in the complex field does not yet 
exceed 2. 
Entry conditions for handler (registers. ST, RAM, ete. j: 
Carry set. 
BLA} = Poll nunber 
HEX ode. 
P=0, 
Ri(Aj=address of character in sage string which 
initialized Freld (an output character such 
as D,Z,*,A,K) 
ee =current position in BidING token stream 
B): =proposed initializing token (identifies 
ype of field) 
S}=0 (flag for IMAGE routines; don’? change) 
)=counter for 2 conplex nuner:c fields 


-S)=address to start next IMAGE execution 
Y=length of IMAGE strina (nibbles) 

} Progra Counter 

-S)=address of start of IMAGE string, 


tac OA 


Normal exit corditions fran handler if handled (ST, RAN, 
registers, etc.): 
HEX node. 
P=0 
XM=O, 
R2(B)=synbol ubich caused inttralization (nust be 
in upper case; fetched fron sddress an RI(A)) 
A(X }=conients of FofX) frou entry te poll handler 
Diszcurrent position in BldIN® strean (from RO(R)) 
$420 ("do not execute yet’) 
DLA) =AvMenst 


Noraal exit condstions fron handler if not handled (ST, RAM, 
registers, etc.;: 

HEX sode. 

MEL, 

R registers untouched. 


Avazrlakle subroutine levels: 
4 
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NOTE: 


This 1s a specialized poll for the MATH ROM to handle 
corplex image fields. With sone creative coding, the 
pifco: poll can be used by other LEX files. 


The plfice. poll is only issued af $?=1 ("complex field 
berng parsed’) during 1nage parse; and only when a 

neu cutput field is being initialized in the BIdING 
token strearn, 


There are tuo classes of poil handlers for piIncp.. 
1) MATH ROM -- used to process nuneric fields 
ina conplex field. 
In a previous pINCHR poll {issued at the ‘C(" 
symbol), the poll handler nust have: 
a) set S7=1 
bj set R1(S)=2 


2) Other LEX files desiring to detect the init- 
alization of any field. 
In a previous pINCHR poll (issued at the 
point a new unrecognized synbol uas found), 
the poll handler must have: 

a} set S7=1 

b) set R1(S)=O (the MATH ROM will stall 
intercept the pIMNcp: poll, but if R1(S) 
is=0, it will exit “not handled") 

c) $7? must be set=O before execution of the 
IMAGE tokens begins. {S7=1 during execu- 
tion will always invoke the MATH RON; 
see pINcpw poll docunentation. ) 


Note that the pINcpi poll was designed as a special 
poll far the MATH ROM. Its use by any other ROM 
uilil conflict with complex fields. In particular, 
a new synbol can use this poll as long as it and 
coiplex fields are syntactically mutually exclusive. 

-- If $? has been set=1 by another LEX file 
then the MATH ROM will not handle the pINCHR 
poll for a subsequent "C(" synbol. In other 
words, setting S$7=1 will cause an “Invalid 
IMRGE" when a conplex field is found. 

-- Any application handling this poll cannot 
allow its new symbol within a complex field, 
since the MATH ROM, 1f 1t antercepts the poll 
First, will try to process it. The counter 
in RI(S) wall cause a conflict. 


(Netuithstanding the above rule, there 1s probably 


ausy for a pltcpi poll handler to manage the use 
of RICS) te allow conpiex fields within its oun 
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detail 


nei field. See the MATH ROM code for conplete 
3.) 


reqisters/RAM nay be used if handled?: 
A,B,C,1,00,D1,F,R4, $4, $7 

R registers say be adjusted as necessary 
Tokens in BlaING stream adjusted as necessary 





What registers /RAM ray be used 1f not handled?: 
A,B,C, 0(18-5],00.01,P,R4 
Other R registers untouched 
Don’t urite to AvMen below AvMenEnd (stores BIdING) 


Special 


vencory/pointer considerations (are pointers funriy?): 


Bld ING tebhens are stcred in AvMern below BIdING. 


Enavaisioned sopliceiion(s): 


4) 
be 


RO 
we 


MHin KOA uses pIMcpi poil to pracess corplex image 
fieide. Checks that faeld is nmuneric, verifies 
that mo more than 2 nuneriac faelds are within the 
covolex field, 


j Say a LEX file inplerents a nuneric field descrip- 


tor which encloses negative nunbers in parentheses. 
The syntex might be, say, "-DDO.D", where a leading 
"-" yould identify this type of descriptor. £.g., 
DISP USING "~30.2D"; -36.25 
displays "( 36.25)". 
It would cause a pINCHR soll for the "-" synbol. 
At that time, the LEX frie could set S7=1, R1(S)=0. 
When the nurneric field as initialized, the pIMcp. 
poll should be handled ta 1) check to make sure 


~it 1S a nuneric fieig, 2) put appropriate execution 


History: 


tohens in the B1ldiNG stream to effect the right 
output, and 3) set S7=9. Note that this new de- 
scriptor would not be allowed with complex fields, 
either imbedded inside then, or vice versa (unless 
sore very creative code was written). 


Pragranrier Modification 


12/08/82 AB Inplenented, dacurented. 
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17.20 pIMXQT - Begin IMAGE execution 


Category: POLL File: MB&USG:: MS 


Nane:(S) pIMKQT - Begin IMAGE execution 
Type: FPOLL 


Purpose: 
To alert LEX files that IMAGE fields are about to 
begin executing. 


Should poll be "Handled" (return with XM=0)?: 
No. The IMAGE routines do not check if poll handled. 


Meaning of "Handling" Poll (what does code do if handled’): 
None. 


Entry conditions for handler (registers, ST, RAM, etc.): 

Carry set. 

B[A] = Poll nuriber. 

HEX tiode. 

P=0, 

RO(9-5)=address of token in BIdING strean uhere 
execution 1s to start. 

R1(A)=address of last character to be parsed in 
IMAGE string. 

R3(A)=Progran Counter (original DO as passed to 
the USING routine, updated as expressions are 
executed). 

RAN usage as shown below, in NOTE. 


Nornial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX node. 

XM=0. 

see NOTE, below. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX triode. 

KN=1, 

See NOTE, belon. 


Avarlable subroutine levels: 
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NOTE: 


IMAGE parsing and execution are very involved. 
“Study the USING routine header and plIMbck, pIMcpi, 
pIMXCH and pINCHR poll docunentation to learn 
nore about the process. The USING routine header 
describes the meaning and values of the IMAGE 
tokens. 


During parsing, the IMAGE string and BIdIMG token 
streati is kept in available nenory, below AvMenEnd, 
The BIdING token strean is built backuwads (toward 
address 0) fron the boundary of the IMAGE string. 

At the tine of the pINXQT poll neriory looks like this: 


(Old AvMenEnd) 


cont’d below | ’x’= last character parsed 
xqt address in RO(9-5) points to execution token 


ee me a me me ee we ww mm ewe ew ee we ee we mew we eee we 


ee ee ee we ee ew me ew ee ee me ee ee eee ee 


| | | length of IMAGE string 


AvMenEnd | status bits | offset to ’x’ above 


offset to start of IMAGE string 
5 zeros (stores offset 
to xqt address when necessary) 


IMAGE execution begins every tine a new output field 
1s parsed, or when the end of the IMAGE string is 
found. By the tine this poll occurs, all set-up 

for execution has been perforned (all pointers and 
offsets have been stored away in AvMen). R1(A) 
contains the address of the IMAGE character which 
Caused execution to start (a specifier for a neu 
field, or a ulMend token). 


What the poll handler does with the pINXQT poll is 
up to it. The mainframe IMAGE execution routines 
should serve for any type of output (DISP USING, 
PRINT USING, OUTPUT USING, etc.), unless sone 

LEX file wants to output to sone non-standard 
device. If so, it would pick up the IMAGE execution 
at the pINXQT poll and perforn its own execution. 


The nost useful iriplenentation of a pINXQT poll 
handler 1s for ENTER USING (found in the HPIL ROM). 
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What 


What 
If 


If 


The ENTER USING execution routines are vastly 
different from the output routines, but use the 
sane IMAGE token streans. Therefore, the ENTER 
USING code intercepts the pINXQT poll and perforns 
its own execution. 


How the poll handler returns 1s also up to it. 

In the case of ENTER USING, the poll handler junps 
directly back to entry point USGrst (restart parse), 
without exiting through the poll code. A poll 
handler nay exit through the poll code after 
“handling the poll, but it would want to adjust 
pointers in RO and possibly in RAN, also. 


If exiting through USGrst: 
-- RAN pointers, offsets and ST storage unchanged 
~~ R3(R)=Progran Counter 
-- other R registers unimportant 

If exiting through poll code (xM=0): 
-- RAM pointers, offsets and ST storage unchanged 
~- R3(A)=Progran Counter 
~- RO(9-5)=xqt address, pointing to a uRESTP token 


registers/RAN tray be used if handled?: 
A,B8,C,0,00,01,P,R1,R2 

RO (to adjust address of execution token) 
R3 (to adjust Progran Counter) 


registers/RAN tay be used if not handled?: 
truly “not handled": 

A,B,C,0[15-5],P,R2 

handled, but leaving XM=1: 
A,B,C,D[15-5),P,R2 


Special nenory/pointer considerations (are pointers funny?): 


None. AvMen is avarlable for writing to; this will 
not disturb the IMAGE routines. 


Envisioned application(s): 


1) ENTER USING routines use the pINXQT poll to override 
the mainfrane output code, instead executing code 
which inputs variables using the BIdING token strean. 

2) A LEX file nay “pre-parse" an IMAGE string (and 
store it in an I/0 buffer) for faster execution, 
eliminating the need to parse the IMAGE string 
every tire the staterent 1s executed. It could 
invoke the IMAGE parse routines and trap the 
pINXUT poll before execution starts. 
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History: 
Date Prograriner Modification 
12/08/82 MB Docunentation 


17.21 pINXCH - Unrecognized synbol in IMAGE execution 
Category: POLL File: MB&USG::MS 


Nane:(S) pINXCH - Unrecognized symbol in IMAGE execution 
Type: FPOLL 


Purpose: 
Allow LEX files to execute unrecognized IMAGE tokens. 


Should poll be "Handled" (return with XM=0)?: 
Yes. If the poll 1s not handled by any LEX file, 
the IMAGE routines issue an “Invalid USING" error. 


Meaning of "Handling" Poll (what does code do if handled?): 
The symbol was executed by a LEX file, generating 
the appropriate output. 


Entry conditions for handler (registers, ST, RAM, etc.): 

Carry set. 
B[A]} = Poll number. 
HEX node. 
P=0, 
RO(RA)=address of uIMXCH token which caused poll. 
If within a numeric field: 

RO(9-5)= counter for #zeroes in field 

RO(S)= flag to identify last nuneric synbol: 


O= * 
fe 2 
‘$= D0 
R3(A)=Progran Counter 
Normal exit conditions fron handler if handled (ST, RAN, ij 
registers, etc.): a 
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BEX node. 

xMEO, 

RO(A)= addresst+? of next token to execute 
in BIdING strean 

$5=0 

R3I(A}=Progran Counter 

RAM storage above AyNenEnd untouched. 


Nornai exit condition: fron handler af not handled (ST, RAN, 
registers, etc.): 

HEX node 

anet, 

RO,R3 and RAM storage xzbove SvienEnd untouched. 


Availatle subroutine ‘evels: 


ww 


NOTE: 
see NOTE under pINKQT poll for RAN storace description. 


The pinxCh poll 1s assued only when a vINXCH iohen 

1$ encountered when executing the BldING tokens. 

The ulMsCa token can only be placed by a poll handler 
Which previcusly handled a plMCHR poll: their combined 
purpose is te allow "strange" characters to be parsed 
and executed in a IMAGE string. 


The uINXCH teken in the BidING stream should be 
actoupanied by other towens (ar ASCIT bytes) which 
the poll nandler will use for identification and 
execution, 


Yhe pINXCK poll is handied by the MATH ROM wher, 
executing cornplex IMHGE fields. The uIMXCH tuken as 
inserted in tie BidING stream in tuo places: 1) at 
start of the conplex field, so that the connlex exp- 
ression i$ evaluated, and a ieft parerthesis 1s sut- 
put, and 2) at the end cf the field, te close out the 
field and display a right parenthesis. In the first 
Case a Speciai token accoripanies the uTMXfH token to 
identify it te the MATH ROM as a comalex field. In 
the second case, only an ASCII ")" accorpanies the 
UIMXCH token, which is al) that 1s neered to signal 
that the right parenthesis need be displayed. 

For the tuo cases of coriplex fieids using the 

uINXCH token, the partial tohenjzation iooks 

like this (it’s buslt backwards towards address 


zero): 
case 1} 
uX uC u? ...fexisting BIdINS tokens) 
(3) (2) (1) 
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case 2) 
ux =)... (existing BIdING tokens) 
(5) (4) 


uz = ulfaCh token 
u€ = ufPLKC token 
° = flag byte indicating “nultiplied freld" 


=) = RSCIT ")" 


The code in the MATH RGM looks for the appropriate 
byte values preceding the uIMXCH token to indicate 
the appropriate action. 


If a ulMXCH teken has been inserted within a nureric 
field, sane extra stens have to be taken to insere 
the float-check (for D synbols), and the ship-check 
(for NaNs, Infs and overfious) are perforred properly 


The float-checr is performed to count the nurber af 
positions that editing symbols ar sign symbols must 
Float over leading zeroes (hence only performed for 
the D fields}. The skip-chech 15 perforned to count 
the number of positions to fill with spaces (for 
NaN or INF) or *’s (for overflow). If the new symbol 
needs to be counted fu. either reason, you rust 
follow the uIMXCH token with a "D" or "S" or something 
appropriate to cause the count to be increnented. 
This extra "OD" or "S" should be protected from the 
execution routine; that is, the ulNkC¥ poll hendler 
should position ihe execution pointer (passed back 
in RO(A)) past this extra character. In the other 
nand, ta make the neu synbal terminate either check, 
insert an EndNun token as an extra character. 
Both checks do not poll for uINKCH; only the token 
executor issues a poll. Thus at the uIMNKCH token 
anvolves pointers uhich might look like any of the 
synbols Z 

DSXM. C 2F R uMULT, uSTRET or a byterES 
you will have to protect yt iith uSTRPT (uhich 
skips over 14 nibbles? cr a uMULT (which skips 
over 10 nibbles). 


For anstance, say the new character “I’ is allowed 
anywhere in an output freld, havina the sane effect 
as the "parent" synbais (the rest of the sycbols 
which define the type cf Field), except that the 
character in that position is displayed in inverse 
video. for isnstance, “ARIR" 35 equivalent to "AQHA", 
except that the third character is displayed in 
anvercse video. camilarily, “ODID’ is equivalent to 
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What 


“GODBD", with an inverse video digit in the third 
position, Since "I" should be counted in the float- 
check and skip-check (since at is allowed in a nuneric 
Field), the (partial) token stream should logkh like 
this (it’s built backwards touacds address 0), using 
using "DOLE as an exanple: 


Whe CF 

= = ASCII "op" 

=) = ASCII] "I" 

us =ulNXCH token to cause pINXCH poll. 
Token (3) uuuld be inserted by the poll handler for 
a pIMCiiR poll. Then, during execution, the float- 
coeck routine will count (4), and the pIMXCH poll 
handler will execute (9) uhen the poll 1s issued 
at (3). ther returning fron the pINXCH poll, the 
execution pointer im RO{R) should be at (6). 


Now say that the synbol "I«f,d>" causes a beep of 
frequency f, duratsen d; the new syntol can be 
inserted in any output field. Then "DD! <800,.5>D" 
iwvuld be tokenized as follows: 
=P uJ pe pi uS =! ux =D =D 
(9) (8) (7) (6) (5) (49-43), (20.019 

uJ sujhest (jurps 14 nibs on backward search) 

pe =5 nibble pointer to beep duration 

pt =5 nibble pointer to beep frequency 

uo suSTRET (jurips 14 nibs in float-check) 

uX =ulMXCH token, to cause pIMXCH poll 

=D =ROLIT "Dp" 

al SRGCLE Ee 
Then, during a float-check, (5) will cause a junp 
over the pointers pl and p2, to token (9); otherwise 
these pointers might be interpreted as executing 
tekens. Token (8) 1s included for backward 
Searching during parse; 1t causes a jurip over 
pointers pl and p2 for the sane reason. Token 
(4) will be executed by the poll handler uhen the 


pIMACK coll 1s issued at (3). 


(6 


reqisters/PAM nay be used if handled?: 
Ay BC, DOL? 

RO (io adjust pointer or counter) 

K1 {io adjust counter) 

R3 (to adjust Program Counter) 
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What registess/RAM nay be used if not handled?: 
R,B,C.D(15-5], DO, 61, P 
RO, R3 untouched, 
RAN storage above AvMenEnd untouched. 
Expression stored in AvMen below AvMerEnd untouched. 


Special nencry/pointer considerations (are pointers funny?): 
Tf the pIMXCH poll 1s issued uhile an output field is 
pending (that is, the expression has already been 
executed, but output not completed), the nenury belou 
RAwNenEnd contains the expression, and may not he 
altered. 


Envisioned appiacation(s): 
Couple» IMAGE fields. 
sone more are .asted in NOTE, above 


History: 
Date Frogranner Modification 
12/08/82 MB Docunertation 


17.22 pIficpy - Working on complex image field 


Category: POLL File: MB&USG: MS 
Nane:(S} plMcpa - Working on complex image field 
Type: rPOLL 
Purpose: 


Alert MATH ROW to work on complex freld. 


Should poll be “Handled” (return with XN=O)?: 
No, 


Meaning of "Handling" Poll (uhat does code do if handled?): 
Conples expression was evaluated, real or imaginary 
part pas been put un stack, ready for formatted out- 
put. 
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Entry conditions for handler (registers, ST, RAN, etc.): 


Carry set. 

B[A) = Poll nunber. 
HEX node. 

P=0. 


RO(A)=address of numeric delimiter (in BIdING token 
strear) uhich caused the poll. 
R3(A)=Progran Counter 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
This poll can cnly be handled by the MATH ROM. It 
cannot exit through the poll routines with XM=0; 
it can only exit by junping to USnrdO5. 
HEX node. 
A(W)=nuneric expression (either the real or imaginary 
part, aS appropriate) 
D1 points to AvMenEnd-16. 
R registers untouched. 


Norrtial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX rode. 

KN=1. 

R registers untouched. 


Available subroutine levels: 
7 (junk the tuo poll levels, and junp to USnW0S) 


NOTE: 
This poll can only be handled by the MATH ROM, as 
part of complex inage field execution. 


What registers/RANM ray be used if handled?: 
A,B,C,D, DO, D1,P,RO(15-5),R1,R2,R3(9-5),R4 
RO(A) should not be used 
R3(A) should not be used 


What registers/RAM may be used if not handled?: 
A,B,C, D[ 15-5], D0,D1,P,R1,R2,R4 

Special nenory/pointer considerations (are pointers funny?): 
At the tine of the poll, AvMen 1s not used to store 
anything. If the poll 1s handled properly, the 
expression for output resides at AvMenEnd-16. 


Envisioned application(s): 
MARTH ROM corplex field output. Only. 


History: 


17-63 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


Date Progranner Modification 


01/01/83 NB Inplenented, docunented. 


17.23 pWCRD8 - Poll To Write Copycode 8 File To Card 
~ Category: POLL File: MN&CD::NS 


Nane:(S) pWCRD8 - Poll To Write Copycode 8 File To Card 


Type: POLL 

Purpose: 
Allow handler to copy a file with copycode of 8 out to 
card. 


Should poll be "Handled" (return with XM=0)?: 
Yes, if you do the copy. 


Meaning of "Handling" Poll (shat does code do if handled?): 
The copy has been perforned. The WHOLE thing... 
pronpting, writing, verifying, etc. The copy code 
will perform a normal exit. If poll is not handled, 
copy code perforns an eror exit. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set on entry. 
B[A]} = Poll nunber. 
HEX rode. 
P=0, 
Card header buffer (ID=bCARD) has been allocated and 
set up (as per FILCRD header) with: 
Nare 
Filetype 
Creation date 
Subforrat and track#. 
R1{A] points at start of file header. 
R2(R} points at card header I/Obuffer (past header). 
A[3-0] contains filetype. 


Normal exit conditions fron handler if handled (ST, RAN, 
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registers, etc.): 
HEX rode. 
xM=0, 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX rode. 

XM=1. 


Available subroutine levels: 
5 


What registers/RAM may be used if handled?: 
R-D, DO, D1, P, RO-R4, all scratch RAN. 


What registers/RAMN nay be used if not handled?: 
R-D, DO, D1, P, RO-R4, all scratch RAN. 


Envisioned application(s): 
Sonebody’s got to know how to copy out a file with a 
Crazy copycode like 8. 


History: 
Date Prograriner Modification 

08/01/83 = NN Added docunentation 
24 = pWCRD) = - Ss Card Write Poll 

Category: POLL File: MN&CD:: NS 
Nare:(S) pWCRD - Card Write Poll 
Type: FPOLL 
Purpose: 


Rllow processing before writing out a card track. 


Should poll be "Handled" (return mith XM=0)?: 
If polling should terninate, then poll should be 


17-65 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


handled. 


Meaning of "Handling" Poll (what does code do if handled?): 
Code does nothing different 1f poll is handled. 
Handling merely terninates polling, uhich 1s probably 
the desired result. 


Entry conditions for handler (registers, ST, RAN, etc.): 
We are about to prompt for a card. 
Carry set on entry. 
BLA] = Poll number. 
HEX rode. 
P=0, 
R1-R2 set up as FILCRD docunentation explains. 
The bCRRD buffer contains the card header. 


Norital exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX rode. 

XM=0, 

Card header nodified as desired. 


Nornal exit conditions from handler if not handled (ST, RAM, 
registers, etc.): 

HEX node. 

XM=1. 

Card header modified if desired. 


Available subroutine levels: 
2 


NOTE: 
If you modify the card header, you must reconpute the 
card header checksun, or you will never be able to 
read back the card you have uritten. 


What registers/RAN may be used if handled’: 
A-D, DO, D1, P, RO, R3, R4, all scratch RAN. 


What registers/RAM may be used 1f not handled?: 
A-C, D[5-15], DO, D1, P, RO, R3, R4, all scratch RAM. 


Envisironed application(s): 
Setting up card header for partial card recovery. 
It 1s highly doubtful whether partial card recovery 
can be dune, but this 1s the hook which allows you to ee 
try it. The docunentation for FNDPRT explains the 
meaning of the partial card recovery information 
fields. Good luck. 


History: ‘ eC 
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Date Prograrner Modification 
08/01/83 NM Added docunentation 
17.25 pRCRD - Poll After Reading Card. 
Category: POLL File: MN&CD::MS 
Narie:(S) pRCRD - Poil After Reading Card. 
Type: FPOLL 
Purpose: 


Poll after each card track is read. 


Should poll be “Handled” (return with XM=0)?: 
If it 1s desired to terminate polling, yes. 


Meaning of "Handling" Poll (what does code do if handled?): 
Code doesn’t do anything different if poll is handled. 
Handling sinply stops polling, which may be desirable. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set on entry. 
B[A}] = Poll nunber. 
HEX node. 
P=0, 
Ri, R2 as defined in CRDFIL header. 
bCARD buffer contains header of card just read in. 
Code has just read a track and 1s about put up a 
"trk <nnn> done” nessage- 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX node. 

XN=0. 


Nornal exit conditions fron handler af not handled (ST, RAN, 
registers, etc.): 

HEX node. 

KM=1. 
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Available subroutine levels: 
3 


What registers/RAN ray be used if handled?: 
A-D, DO, BI, P, RO, R3, R4. 
All scratch RAM. 


What registers/RAM nay be used 1f not handled?: 
A-C, C{5-15], DO, D1, P, RO, R3, RA. 
All scratch RAN. 


Special rienory/pointer considerations (are pointers funny?): 
There is no available nenory. 


Envisioned application(s): 
This is supposed to be the hook to allow partial card 
recovery. I an skeptical, but I’ll keep it to nyself. 
If the card was written by sanebody tho knows how to 
do partial card recovery, the header will contain data 
necessary to perforn recovery. Thas poll is an 
opportunity to take the data and stuff it sonewhere 
useful. One recovery schene which worked very well 
is the past was storing the data in the space to be 
occupied by adjacent tracks IF the adjacent track has 
not been read yet. The flaw in this 1s what happens if 
that data 1s munched by an unsuccessful read in the 
adjacent track. The data is lost. So what to do? 
Maybe create an 1/0 buffer to hold the data. Of course 
that buffer had better be around before the read is 
initiated, since the read code sucks up all available 
Henory to make roon for the biggest card set possible. 


Good luck. 
History: 
Date Progranner Modification 
08/01/83 NH Added documentation = 


17.26 pCRDAB - ABORT Card Read Poll 
Category: POLL File: MN&CD::AS 
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Nane:(S) pCRDAB - ABORT Card Read Poll 
Type: FPOLL 


Purpose: 
Poll upon ATTN-key or titeout abort of card read 
operation. 


Should poll be “Handled” (return with XM=0)?: 
Yes, if... 


Meaning of “Handling” Poll (what does code do if handled”): 
. handler has cleanly terninated card read operation, 
This means collapsing the file to the proper size 
(which nay be zero). If poll is handled, card reader 
code does not collapse file. 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set on entry. 
B[A} = Poll nuriber. 
HEX node. 
P=0, 
R1 and R2 have neaning as explained in CRDFIL header. 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX node. 

XM=0, 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XM=1. 


Available subroutine levels: 
What registers/RAN may be used if handled?: 
A-D, DO, Bi, P, RO-R4, all scratch RAN. 


What registers/RAM nay be used if not handled’: 
A-C, D[15-5] DO, D1, P, RO, R3, R4, all scratch RAN. 


Special renory/pointer considerations (are pointers funny?): 
There 1s no available nerory. 


Envisioned application(s): 
This 1s a chance to do partial card recovery with all 
that neat inforriation saved during the pRCRD poll. 
See that docunentation for appropriate caveats. 
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History: 
Date Progranrer Modification 
08/01/83 = NM Added docunentation 


17.27 pCONFG - Configuration Poll 


Category: POLL File: MAN&CNF: 3 MS 


Nane:(S) pCONFG - Configuration Poll 
Type: FPOLL 


Purpose: 
Poll at termination of configuration to allou: 
1) Claiming of I/0 buffers. 
2) Changing configuration of machine. 


Should poll be "Handled" (return with XM=0)?: 
Yes, but ONLY IF reconfiguration is desired. 


Meaning of “Handling” Poll (uhat does code do if handled”): 
Calling code jumps to beginning of configuration code 
and reconfigures the systen. 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set. 
B[A}] = Poll nuriber. 
HEX mode. 
P=0. 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX node. 

XN=0, 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX mode. 

Xfl=1. 
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Available subroutine levels: 
--FPOLL handler is tuo levels deeper than caller-- 
LEXBUF (fron where pCONF 1s invoked) saves 3 stack 
levels. A responder nay use UP T0 3 levels 


NOTE: 
"Handling" the poll (returning with XM=0) 1s very 
serious business. It neans that you want the machine 
reconfigured. Lazy writers of poll handlers who fail 
to RINSXM when they should can hang the machine in 
CONFIGURATION forever. 


--SCRATCH RAM TO CONSIDER BELOW: -- 
--STMT/FN Scratch, SCRTCH, SNAPBF, TRFMBF, LDCSPC, -- 
~-LEXPTR, -- 


What registers/RAM tray be used if handled?: 
Ali CPU registers. 
All scratch RAM (I think). 


What registers/RAM tay be used if not handled?: 
All CPU registers except D[A]. 
All scratch RAM (I think). 


Special neriory/pointer considerations (are pointers funny?): 
Nay be in CALC node. 


Envisioned application(s): 
Three main ones: 1) claiming I/0 buffers, 2) creating 
1/0 buffers, and 3) changing configuration. 


1) Clainaing: This 1s the tine to reclain I/0 buffers to 
keep then from being deleted. Just before this 
poll, all I/0 buffers are narked for deletion. To 
keep your I/O buffers fron being deleted, you need 
to perforn an I/ORES on those you want to keep. 
[Narking/unnarking for deletion consists of 

clearing/setting (respectively) the upper bit of 
the buffer ID number. Until the buffer is restored 
(unrrarked), 1t will not be found with 1/0FND 
because 1t will have a different nurber. J 


2) Creating: This may be the tine to create needed 
1/0 buffers. Or you may have done it at wakeup 
tine. Or maybe sone other tine. But tiaybe here. 


3) Changing: There are certain ways software can change 
the configuration of the machine; specifically by 
doing FREE or CLAIM port. Sanple situation: a 
plug-in tay contain a ROM with a RAM intended only 
for the ROM’s use. When polled at configuration 
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tine, the ROM exanines the RAM table and deternines 
that the RAM living in the sane plug-in is 
configured as systen RAN. The ROM then performs all 
the trappings of FREEPORT except the configuration. 
It then indicates that the poll has been handled, 
and the code reconfigures the systen. When this 
poll happens again (as it inevitably will), the RON 
Hill see that its companion RAM 1s configured as 
IRAN, and will not repeat this monkey business. 


History: 

Date Progranner Modification 
05/11/83 NM Added docunentation = 
07/05/83 JP Added stack level usage 

17.28 pWTKY - Poll When Waiting For Key 
Category: POLL File: MN&ED::nS 
f 

Nane:(S) pWTKY - Poll When Waiting For Key 
Type: FPOLL 
Purpose: 


Allow LEXFILE to circunvent waiting for and fetching 
ket# in KEYRD. 


Should poll be "Handled" (return with XM=0)?: 
Yes, 1f LEXFILE wishes to "press" a key. 


Meaning of "Handling" Poll (uhat does code do if handled?): 
Lexfile 1s "press"1ing a key. If poll is handled, j 
KEYRD goes on to process key returned by this poll. 


If poll 1s not handled, KEYRD 111 look for repeating 
keys. Seeing none, KEYRD will pop,the next key# fron |. mS 
the keybuffer or, if buffer is-enpty, wait untal a key ore 
is hit and then process it. 
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Entry conditions for handler (registers, ST, RAM, etc.): 


Carry set. 

B[A] = Poll number. 
HEX ode. 

P=0, 


Norrial exit conditions fron handler if handled (ST, RAN, 

registers, etc.): 
HEX rode. 
Xf=0. Se 
RO[B] contains key# (physical keycode). 


Norrial exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

HEX wode. 

KM=1. 


Available subroutine levels: 
2 


NOTE: 
We are just entering KEYRD when this poll occurs. 


This 1s the tine to press a key. The tine to provide 
a definition for a pressed key is the pKYDF poll. 


What registers/RAM nay be used 1f handled?: 
A-D, DO, BI, P, RO, R3. 
SCRICH RAM. 


What registers/RAN may be used if not handled?: 
A-C, D[15-5] DO, D1, P, RO, R3. 
SCRICH RAN. 


Special nenory/pointer considerations (are pointers funny?): 
May be in CALC node. 


Envisioned application(s): 
External keyboard controller or renote keyboard. 
The poll handler may take over waiting for a key to 
go down 1f appropriate. 


History: 


Date Progranner Modification 


05/19/83 NM Added docunentation 
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17.29 pkYDF - Poll To Define Key 
Category: POLL File: MN&ED::MS 
Nanie:(S) pkKYDF - Poll To Define Key 
Type: FPOLL 
Purpose: 


Allow LEXFILE to define action/definition of a key. 


Should poll be "Handled" (return with XM=0)?: 
Yes, 1f you want to define or act on the key. 


Meaning of "Handling" Poll (what does code do if handled?): 
LEXFILE 1s either defining or otherwise acting on key. 
Defining (returning with SO=1) neans that the LEXFILE 

1s returning a definition to whonever called KEYRD 
(CHEDIT, CALC ode editor, or whoever). 

Acting on (returning with SO=0) means that the LEXFILE 
1s using the key in sone way (such as toggling a 
flag or ignoring) and KEYRD should not return a 
definition to the caller, but should instead get the 
next key to process. 


Entry conditions for handler (registers, ST, RAN, etc.): 


Carry set. 

B[A}] = Poll nunber. 
HEX node. 

P=0, 


RO[A]}=keycode (fron keycode map), 
RO[9-5]=key# (physical keycode). 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
HEX tode. 
KM=0. 
If handled but not returning a definition ("acting on" 

a key): SO=0. 

If returning a definition: 
- SO=1, 

Definition pointer in DEFADR (in RAM) as follows: 
DEFADR: Length of string 1m bytes (2 nibs). 
DEFADR+2: Key type (1 nib). 

0 = Single ASCII character. Includes 


17-74 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


control chars 0-31, which may cause 
sone action by caller. 
1 = ASCII control char + #40. This is 
a character in the range 0-31 which 
1s to be interpreted strictly as a 
character, not as special action keys 
(cursor-right, etc.). To return 
char #01, DEFADR should point at #41 
byte, etc. 
= User defined key--terninating. 
= User defined key--non-terninating. 
= User defined key--inned execute. 
-F = LEX table entry, with lower 3 bits 
as follous: 
0: Parentheses needed. 
1: Trailing space needed. 
2: Leading space needed. 
DEFADR+3: Address of text. 


CON BN 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XMN=1, 


Available subroutine levels: 
2 

What registers/RAN nay be used if handled?: 
R-D, DO, D1, P, RO, R3. 
SCRTCH RAM. 

What registers/RAN nay be used if not handled?: 
A-C, B[15-5] DO, D1, P, R3. 
SCRTCH RAN. 


Special nenory/pointer considerations (are pointers funny?): 
May be in CALC node. 


Envisioned application(s): 
Redefine keyboard. 


One interesting application: Stuff funny key# in 
keybuffer (perhaps at pSREQ) and define it here. 


History: 


Date Progranner Modification 


05/19/83 = NM Rdded docunentation 
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17.0 pCLOST - Coldstart poll 
Category: POLL File: SB&DVR::MS 


Nane:(S) pCLDST - Coldstart poll 
Type: FPOLL 


Purpose: 
Allows module to gain control at Coldstart 


Should poll be "Handled" (return with XM=0)?: No 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A} = Poll nunber. 
HEX rode, 
P=0, 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XN=1, 


Available subroutine levels: 5 


What registers/RAN nay be used if not handled?: 
Nothing matters except D(A) 


Envisioned application(s): 
Operating systen take overs. 
Initialization of buffers, RAN, etc. 


History: 
Date Progranner Modification 
07/15/82 B.S. Added docunentation 
10/17/83 B.S Updated docunentation 
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17.31 pMNLP = - Poll on entry to main loop 
Category: POLL File: SB&DVR::MS 
Narie:(S) pMNLP - Poll on entry to main loop 
Type: FPOLL 
Purpose: 


Poll on entry to main loop. 


Should poll be “Handled” (return with KM=0)?: 
NO'! NEVER!! Take over, yes. Handle, no. 


Meaning of "Handling" Poll (what does code do if handled?): 
N/A 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set. 
B[A} = Poll nurber = pMNLP. 
HEX node. 
P=0, 


Nornal exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 
N/A 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX mode. 

XM=1, 


Available subroutine levels: 


NOTE: 
Machine 1s entering an idle state. This is a good tine 
to take over. This poll is one of the very first 
things done on entry to main loop. We have not done 
display scrolling, auto line#, collapsing stnt buffer, 
checking for CALC rode, etc. 


What registers/RAM nay be used if handled?: 
N/R 


What registers/RAN may be used if not handled?: 
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All CPU registers except D[A]. 
Rll scratch RAN. 


Special nweriory/pointer considerations (are pointers funny?): 
May be in CALC node. The routine fCALC? will RTNSC 
if we are in CALC wode without using D[A}. 


Envisioned application(s): 
Taking over, maybe? 


History: 
Date Progranner Modification 
03/23/83 = NM Added docunentation 


17.32  pPWROF - Poll uhen powering off 
Category: POLL File: SB&DVR::MS 


Nane:(S) pPWROF - Poll when powering off 
Type: FPOLL 


Purpose: 
Poll on entry to deep sleep. 


Should poll be "Handled" (return with XM=0)?: 


No. 

Meaning of "Handling" Poll (what does code do if handled?): 
N/R 

Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set. 
B[A} = Poll nurber = pPWROF 
HEX node. 
P=0, 


fIPHDN set iff deepsleep was called fron PHROFF. 


Normal exit conditions from handler if handled (ST, RAN, 


17-78 


sry 


ie 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


registers, etc.): 
N/A 


Norttal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX mode. 

XI=1. 


Available subroutine levels: 3 


NOTE: 
The flag flPWDN indicates that the machine was called 
fron PWROFF, as opposed to CALC mode, programmatic BYE, 
or sonebody else. 


This 18 a good tine to take over. 


What registers/RAN ray be used if handled?: 
N/A 


What registers/RAM may be used if not handled’: 
All CPU registers except D[A]. 
All scratch RAM. 


Special neriory/pointer considerations (are pointers funny?): 
Nay be in CALC node. 


Envisioned application(s): 
Sone sort of takeover on shutdown. 


Pocket secretary processing alarns at shutdown. 
Suggested method 1f an alarn is due and you want to 
process it at power-off: 
Schedule innediate wakeup through external alarn. 
Create external command buffer at wakeup poll using 
the pocket secretary’s handy ACKNOWLEDGE keyword. 


History: 
Date Programier Modification 
03/24/83 NM Added docunentation 
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17.33 pDSWNK - Poll to awake machine u/o key 
Category: POLL File: SB&DVR::MS 


Nane:(S) pDSWNK - Poll to awake machine u/o key 
Type: FPOLL 


Purpose: 
Poll 1f machine awoke without ATTN being hit or 
ON-TINER going off. 


Should poll be "Handled" (return mith XM=0)?: 
No. I don’t think so. 


Meaning of "Handling" Poll (ihat does code do if handled’): 
N/A 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set. 
B[A] = Poll nunber. 
HEX triode. 
P=0, 


Nortial exit conditions fron handler if handled (SJ, RAN, 
registers, etc.): 
N/A 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XM=1. 

If flTNOF is cleared during this poll, the machine will 
wake up AND will carcunvent password processing 
(asking for password if one exists). If you wish to 
wake up the machine this way but not give control to 
the user, setting fIMKOF will force machine back to 
Sleep as soon as 1t hits the main loop. This is a 
Way to wake up to process alarns and then return to 
sleep. 

If ATNFLG 1s set during this poll, the machine will 
continue as though RTTN had been hit... wake up, 
perform password processing, etc. 


Avatlable subroutine levels: 3 
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NOTE: 


What 


What 


The flag fIPWDON indicates that the machine was called 
frort PHROFF, as opposed to CALC node, progrannatic BYE, 
or sonebody else. The importance of this 1s that on 
return fron DSLEEP, PWROFF will recognize and process 
an external conmand buffer. Nobody else will. So if 
you Wish to create a connand buffer to be executed, 
f1PWDN indicates whether or not 1t will be ignored. 


The external conmand buffer was deallocated before the 
wakeup polls, If it currently exists, 1t means that a 
poll handler has created it. Think real hard about 
how badly you tiant to wipe out sonebody else’s connand. 
On the other hand, sore externally inplernented sort of 
STARTUP may grab this buffer every time. Such are the 
dangers in this zoo. I guess this teans not to assune 
that creating this buffer guarantees that it 11] be 
used, 


registers/RAN may be used if handled?: 
N/A 


registers/RANM riay be used if not handled?: 
All registers except D[A]. 
All scratch RAN, 


Special renory/pointer considerations (are pointers funny?): 


May be in CALC node. 


Envisioned application(s): 


Allowing non-RTTN, non-ON-TIMER to awake machine. 


History: 
Date Progranner Modification 
03/24/83 = NM Added docurientation 
17.34 pDSWKY - Poll if machine wants to wake up 


Category: POLL File: SB&DVR::MS 
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Narie:(S) pDSWKY - Poll if machine wants to wake up 
Type: FPOLL 


Purpose: 
Poll 1f we are going to wake up because: 
ATTN key was hit. 
ON TIMER went off. 
Responder to pDSUNK told us to wake up. 


Should poll be “Handled" (return with XM=0)?: 


No. 

Meaning of "Handling" Poll (what does code do if handled’): 
N/R 

Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set. 
BIA] = Poll nurber. 
HEX rode. 
P=0, 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
N/A 


Noriwal exit conditions fron handler 1f not handled (ST, RAM, 
registers, etc.): 
HEX rode. 
KM=1. 
If fLINOF cleared, we will wake up without password 
processing. 


Available subroutine levels: 3 


NOTE: 
Rt this point, we are cornmitted to trying to wake up 
machine. If, however, fFLINOF 1s set on termination of 
this poll (it may or may not be set before poll), we 
Will go through password processing... soliciting a 
passiiord fron the user 1f the machine has been locked. 


The f1ALRM flag (ALARM annunciator) was cleared just 
before the poll. This is the tine to set the flag if 
that annunciator should be on. 


The flag flPWDN indicates that the machine was called 

fron PWROFF, as opposed to CALC node, programmatic BYE, 

or sonebody else. The importance of this 1s that on 

return fron DSLEEP, PWROFF 11] recognize and process 

an external cormand buffer. Nobody else will. So if oO 
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What 


What 


you wish to create a connand buffer to be executed, 
FIPUDN indicates whether or not it will be ignored. 


The external corimand buffer was deallocated before the 
wakeup polls. If it currently exists, it means that a 
poll handler has created it. Think real hard about 
hiow badly you want to wipe out sonebody else’s connand. 
On the other hand, sone externally implemented sort of 
STARTUP may grab this buffer every tine. Such are the 
dangers in this zoo. I guess this neans not to assune 
that creating this buffer guarantees that it will be 
used. 


registers/RAM nay be used if handled?: 
N/R 


registers/RAN nay be used 1f not handled?: 
All CPU registers except D{A]. 
All scratch RAN. 


Special nenory/pointer considerations (are pointers funny?): 


May be in CALC node. 


Envisioned application(s): 


Takeover ROM at powerup. 


Alarn processing. 


History: 
Date Prograrner Modification 
10/25/83 = NA Updated docunentation 
17.35 pSREQ - Service Request poll 
Category: POLL File: SB&DVR::MS 
Narie:(S) pSREQ - Service Request poll 
Type: FPOLL 
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Purpose: 
Allow LEXFILE processing when a hardware service 
request is exerted. 


Should poll be "Handled" (return with XM=0)?: 
NO!! NEVER!!! 


Meaning of "Handling" Poll (what does code do if handled?): 
N/A 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set. 
B[A] = pSREQ. 
HEX node. e 
P=0. / 
f1DORN flag is set 1f machine is in main loop 
(dereant 


Normal exit conditions fron handler if handled (ST, RAM, 
registers, etc.) 
N/A 


Nornal exit conditions fron handler if not handled (ST, RAM, 
registers, etc.):. 

HEX node. 

xN=1. 


Available subroutine levels: 


2 


NOTE: 
D[A], and RO-R4 nust be preserved. 


A copy of the user’s status bits as they existed on 
entry te CKSREQ exists at DSPSTA (the 3 nibbles used 
by display routines to save status bits). Do not 
destroy this copy; 1t 1s needed. so ST can be-restored 
after the poll. 


The available scratch RAM 1s, conveniently, just enough 
to use the clock system safely. You can save RO and RI 
at SCRICH, D[A] at SCREX0, and subroutine levels in 
SCREX1, SCREX2, SCREX3. 


This poll IS NOT a tine to take over the machine. It 
may occur during display delay, program execution, 
character editing, wait, etc. This poll IS a tine for 
handling service requests non-disruptively (such as 
scheduling an alarn, doing a beep, setting the 
exception flag, or anything else which does not disrupt 
the flou of whatever was going on when you generated 
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your service request) and for setting up to take over 
the machine (such as setting a flag which tells you to 
grab the exception poll or the deepsleep poll). 


What registers/RAM nay be used if handled?: 
N/A 


What registers/RAN nay be used if not handled?: 
A-C, D[15-5], DO, DI, P, ST. 
First 32 nibbles at SCRICH. 
SCREXO, SCREX1, SCREX2, SCREX3. 


Special neriory/pointer considerations (are pointers funny?): 
We could be in CALC node. 


Envisioned application(s): 
Scheduling external alarms though the clock systen 1s 
one very inportant application. If a few sinple rules 
are followed when dealing with the clock systen, 
everything should work just fine: 


Rule #1: If the current external alarn is past due 
(before current tine), you nay schedule an 
external alarn. 

Rule #2: If the current external alarn is not past 
due, you nay only schedule an external alarn 
if a) your alarn is not past due, and b) it 
occurs before the currently scheduled 
external alarn. 

Rule #3: You can tell if one of your alarns is 
pending by conparing it to the current tine. 
Do not count on the current value in the 
external alarn slot being yours... sonebody 
nay have followed rule #2 and jumped in 
ahead of you. 


Another application: Renote Keyboard. Presumably your 
code 1s associated with sone hardware (an HPIL mailbox, 
maybe) uhich has exerted a service request because of a 
renote keyboard. Take this poll as an opportunity to 
stuff a key# in the keybuffer. If it 1s not a key# 
which can be understood by the machine, you can define 
it by handling the hey definition poll. 


History: 
Date Progranner Modification 
03/23/83 = NM Added docunentation 
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17.36 pVER$ - VER$ Statenent Extension Poll 


Category: POLL File: SB&FCN::MS 


Nare:(S) pVER$ - VER$ Statement Extension Poll 
Type: FPOLL 
Purpose: 


Allows a lex file to show its presence and revision 
code. 





Should poll be “Handled" (return with XM=0)?: 
No! ti 


Meaning of "Handling" Poll (what does code do if handled?): 
Not applicable 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A} = Poll nunber. 
R2=(AVMENS) 
R3=Stack pointer 
HEX node. 
P=, 
Normal exit conditions from handler if handled (ST, RAM, 
registers, etc.): 
7 Not applicable 


Nornal exit conditions fron handler. if not handled (ST, RAN, 
registers, etc.): 


HEX node. | choay! 
XA=1. EES 
R2=(AVMENS) . 

R3=New Stack pointer 


Error exit conditions fron handler (POLL only): 
Not applicable 


Available subroutine levels: 


\S5 
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What 


What 


What 


registers/RAN nay be used if handled?: 
Not applicable. 


registers/RAN nay be used if not handled?: 

A-C, B[15-5] DO, D1, P 

NOTE: D[A] is sacred in FPOLL!! 

R1 and R4. Function scratch 16 available in the 
unlikely event it 1t needed. 


registers/RAN nay be used if error exit (POLL only)?: 
Not applicable 


Special neriory/pointer considerations (are pointers funny”): 


This occurs during expression execute so keep in mind 
the rules of that gane. 


Envisioned application(s): 


The poll handler 1s expected to add onto the string 
being built on the stack. The stack pointer is kept 
in R3 and must be decremented to point to the new 

end of the string. Available menory should be checked 
by comparing against the AVMENS (which resides in R2). 


The string added should have a leading blank followed 
by a short (“3-5 characters) nane describing the lex 
file and optionally followed by a colon and a revision 
code. The revision code will usually be just a digit 
but a nore complicated code nay be required for a 
nulti-chip ROM. 


History: 
Date Progranter Modification 
06/08/83 B.S. Added docunentation. 
17.37 pPRTIS - PRINTER IS handler poll 


Category: POLL File: SB&I0::NS 


Nane:(S) pPRTIS - PRINTER IS handler poll 
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Type: POLL 


Purpose: 
Set up for the PRINT statement and return the address 
of a handler for the print items. 


Should poll be "Handled" (return with XM=0)?: 
YES 


Meaning of "Handling" Poll (what does code do if handled?): 
A handler for the PRINT statenent has been provided and 
its address returned. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry clear 
B[R] = Poll number. 
HEX node. 
P=0, 


Nortial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

ACA) 1s the address of the PRINT handler 

HEX rode. 

XN=0, 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear (POLL only). 

HEX rode. 

XM=1. 


Error exit conditions fron handler (POLL only): 
Not applicable 


Available subroutine levels: 
4 


NOTE: . 
This poll 1s issued in the CKINFQ routine which as in 
the process of setting up statenent scratch to handle 
a PRINT/PLIST statements output. 


What registers/RAN tiay be used if handled?: 
Must not alter D1 or any status bits or any R registers 
Function scratch 1s available 


What registers/RAMN nay be used 1f not handled?: 
A-D, DO, DI, P 


What registers/RAM may be used if error exit (POLL only)?: 
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Not applicable 


Special nenory/pointer considerations (are pointers funny?): 
Normal rienory configuration 


Envisioned application(s): 
Extend PRINT/PLIST commands to handle unknown 
destination devices (specifically HPIL devices) 


History: 
Date Progranner Modification 
11/09/82 Rdded docunentation 


N 
10/17/83 8B. Updated docurientation 


17.38  pPRICL - PRINT class statenent handler poll 
Category: POLL File: SB&I0::MNS 


Narie:(S) pPRTICL - PRINT class statenent handler poll 
Type: POLL 


Purpose: 
Set up a handler for a statenent type not recognized 
by the nainfrane. 


Should poll be "Handled" (return with XM=0)?: 
Yes : 


Meaning of "Handling" Poll (what does code do if handled?): 
The statenent type has been recognized and statenent 
scratch has been set up in accordance with CKINFO 
specifications for the specified type of statenent. 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry clear 
B[A}] = Poll number. 
HEX rode. 
First nib of STMTRO is statenent type 
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P=0, 


Norrial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX rode. 

KM=0. 

STNTRO,STMTR1 set according to CKINFO specifications 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX triode. 

KN=1. 


Error exit conditions from handler (POLL only): 
Not applicable 


Rvailable subroutine levels: 
4 


NOTE: 
Function scratch is available 
SCRTCH, SNAPBF, TRFMBF, LDCSPC 


What registers/RAN nay be used if handled?: 
Statenent scratch should be set by poll handler 
A-D, OO, P 


What registers/RAN nay be used if not handled?: 
A-0, DO, D1, P 


What registers/RAN nay be used if error exit?: 
Not applicable 


Special nenory/pointer considerations (are pointers funny?): 
No special conciderations 


Envisioned application(s): 
Allows adding new keywords in the sane class as DISP 
and PRINT. 


History: 


Date Progranner Modification 


11/09/82 N27. Added docunentation 
10/18/83 B.S. Updated docurentation 
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17.39 pRDNBF - Write Current Sector, Read Next Sector 


Category: POLL File: SC&DAT::NS 
Nane:(S) pRDNBF - Write Current Sector, Read Next Sector 
Type: FPOLL 
Purpose: 


Using the FIB, write current file I/O buffer to 
where 1t cane from in a mass nenory device, and read in 
next sector to the file I/0 buffer. 


There are total of 3 polls can be used to read/urite a 

sector betueen a nass renory device and 1/0 buffer: 

1. pRONBF - Writes buffer out to current sector and read 
in next sector. If buffer content has not 
been altered, Just read in next sector. 

2. pRDCBF - Reads in current sector fron mass nenory 
device to the I/0 buffer. This poll does 
not care about the content currently in the 
1/0 buffer. 

3. pWRCBF - Writes I/0 buffer to current sector in the 
Nass menory device. 


Should poll be “Handled” (return with XN=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
As specified above. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B{A] = Poll nunber. 
HEX node. 
P=0. 
STMTD1 contains the FIB entry address of the file 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Carry clear. 
HEX rode. 
xn=0. 
Current position in FIB is set to start of next sector. 
File access nib in FIB 1s set to zero. 
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This poll handler always call the routine SNAPRS to 
restore A,0,D0,D1 fron the snap save RAN before return. 
So 1f the polling routine calls the SNAPSV before issuing 
this poll, 1t can consider A,D,00,D1 will not be change 

by this pol] handler. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

xM=t. 


Error exit conditions fron handler: 
Won’t return to calling routine if error occur, direct 
exit to BSERR routine. 
Available subroutine levels: 3 
What registers/RAN may be used 1f handled?: 
R-D, pO , D1, P, ST[0-4] 
(B,C,P,ST[O-4] if SNAPSV been called) 


What registers/RAN nay be used if not handled?: 


C, DO 
History: 
Date Progranner Modification 
04/20/83 SC Docunent 


17.40  pREADM - READH on File of Copycode = 8 


Category: POLL File: SC&DAT::NS 
Narie:(S) pREADH - READH on File of,Copycode = 8 
Type: POLL 


Purpose: 
Execution of READ # statenent uhen the copy code of the 
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file is 8. 
Should poll be “Handled” (return with KM=0)?: Yes 


Meaning of "Handling" Poll (what does code do 1f handled’): 
Conplete the execution of READ # statenent. 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A} = Poll nuriber. 
HEX node. 


D[S] = Copy code of the file. 

D(A} = # of bytes to end of file 

RO(A)= Current position (absolute address) 

RO(15:14) = Relative position in buffer if external 

Ri = Record length in bytes 

CHNHSV = Channel # specified in the statennt. 

STMNTD1 = FIB entry address of the file. 
(All the file related information can be found in the 
FIB entry of the file) 

STNTDO = Progran counter points at the senricolon of the 

Statenent. 


S9 = O1f serial access (record # not specified) 
= 1 If randon access 
$10 = 0 if file 1s in mainfrane RAN/RONM 
= 11f file is in external mass memory deivce 
S11.= 0 1f file is not 1n Independent RAN 
= 11f file is in Independent RAN 


At the tine when this poll 1s issued, the READ# 

already process the channel nunber and the record nunber 
-1f specified. 

If the record nunber has been specified, the pSREC# poll 
should been issued earlier so the file pointer (in the 
FIB) should already pointing at the start of the record. 


Nornal exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 
If the poll is handled, the handler should handle the 
staterient conpletely. So the handler should directly 
exit to NXTSTM. The handler doesn’t need to worry 
about the math stack used by the POLL routine, 1t will 
be taken cared by the run loop. 


Nornal exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX node. 

xXM=1. 


Error exit conditions fron handler: 
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Carry set. 
HEX node. 
C{O-3] = Error nunber. 


Available subroutine levels: 6 


What registers/RAM may be used if handled?: 
All CPU registers, scratch RAN, S$11-0 


What registers/RAM may be used if not handled?: 
A, C DO, Dt 


What registers/RAN nay be used if error exit ?: 
All CPU registers, scratch RAN, $11 


History: 
Date Progranner Modification 
04/20/83 = SC Docunent 
-41  pEOFIL - Poll at End-of-File 


Category: POLL File: SC&DAT::NS 


Name: (S) pEOFIL - Poll at End-of-File 
Type: FPOLL 


Purpose: 
“When end of file has been reached in a READ # statenent, 
poll to give a LEX file a chance to act before the READH 
Statenent would otherwise exit to error. 
One possible thing an LEX file can do 1s to inplenent 
the "ON EOF GOTO/GOSUB <label>” nechanisn. 


Should poll be “Handled” (return with XN=0)?: Yes 


Meaning of Handling” Poll (what does code do if handled”): 
The end-of-file error has been intercepted. | g Y 
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Entry conditions for handler (registers, ST, RAN, etc.): 
Carry set. 
B[A] = Poll nunber. 
HEX node. 
P=0, 
STNTO1 contains the FIB entry address of the file. 
The file pointer in FIB 1s pointing at: 
TEXT fale : End-of-file nark (FFFFS. 
SDATA file: Past the last data iten of the file. 
DATA file : Pointing at an end-of-file mark or past the 

end of the file. 


Norrial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
If handle, the handler should never return to the polling 
routine. If 1t ever returns to the polling routine, an 
“End of File" will be generated. 
This poll is just provide a hook for an LEX file 
to intercept the end-of-file error. The possible thing 
an LEX file can do to answer this poll is to ainplenent 
a "ON EOF GOTO/GOSUB <label>" type of trap. 


Nornal exit conditions from handler if not handled: 
HEX rode. 
P = 0 


Error exit conditions fron handler (POLL only): 
HEX node. 
P= 0 

Available subroutine levels: 6 


What registers/RAN tiay be used if handled?: 
All CPU registers, scratch RAM, ST11-0. 


What registers/RAM nay be used if not handled?: 
All CPU registers, scratch RAN, ST11-0. 


History: 
Date Progranrer Modification 
04/20/83 SC Docunent 
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17.42  pPRINH - PRINT# on File of Copycode = 8 


Category: POLL File: SC&DAT::MS 


Nane:(S) pPRIN@ - PRINT# on File of Copycode = 8 

Type: POLL 

Purpose: 
Execution of PRINT # statement when the copy code of the 
file is 8. 

Should poll be "Handled" (return with KM=0)?: Yes 


Meaning of “Handling” Poll (what does code do if handled?): 
Coriplete the execution of PRINT # statenent. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A] = Poll nunber. 


HEX node. 
P=0, 
D[S}] = Copy code of the file. 


D(A) = # of bytes to end of file 

RO(A)= Current position (absolute address) 

RO(15:14) = Relative position in buffer if external 

R1 = Record length in bytes 

CHNESV = Channel # specified in the statennt. 

STMTD1 = FIB entry address of the file. 
(All the file related information can be found in the 
FIB entry of the file) 

STMTDO = Progran counter points at the sennicolon of the 

Staterent. 


S39 = 0 if serial access (record # not specified) 
= 1 If randon access 
S10 = 0 af file 1s in nainfrane RAN/ROM 
= 1 aif file is in external mass nenory deivce 
S11. = 0 if file is not in Independent RAN 
= 1 if file is in Independent RAN 


At the tine when this poll is issued, the READH 

already process the channel nurber and the record nunber 
-1f specified, 

If the record number has been specified, the pSREC# poll 
should been issued earlier so the file pointer({in the 
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FIB) should already pointing at the start of the record. 





Normal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 
If handled, the handler should conplete the PRINT# 
Statenent and directly exit to NXTSTM. The nath stack 
will be cleared by the run loop autonatically. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX triode. 

XN=1. 


Error exit conditions fron handler: 
Carry set. 
HEX rode. 
C(0-3] = Error nunber. 


Available subroutine levels: 6 


What registers/RAN may be used if handled?: 
Rll CPU registers, scratch RAN, ST11-0 


What registers/RAN may be used if not handled?: 
B,C, OO, D1 


What registers/RAM may be used if error exit ?: 
All CPU registers, scratch RAN, ST11-0 


History: 
Date Progranier Modification 
04/20/83 SC Docunent 


17.43 pFTYPE - Search for file type table entry 
Category: POLL File: SC&FIL::MS 
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Nane:(S) pFTYPE - Search for file type table entry 
Type: POLL 


Purpose: 
Search file type table in LEX file for a given file type 
number. 


Should poll be "Handled" (return with XM=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Returns with D1 pointing to the file type table entry 
that contains the file type. 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A] = Poll nurber. 
HEX node. 
P=0, 
A[A] = file type 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX rode. 

XN=0, 

01 pts to start of the file type entry in the table 

A(S) = Position of file type number within entry 

(1 = first file type, etc.) 
ALA} = As entry condition 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX rode. 

KMN=1. 


Error exit conditions fron handler: 
Carry set. : 
Hex rode. 
Error can only happen when there 1s not enough nenory to 
do the poll at all. 


Available subroutine levels: 4 


What registers/RAM may be used if handled?: 
R-C, Di, P eee 


What registers/RAM may be used 1f not handled?: 
A-C, DI, P 


What registers/KAN ray be used if error exit (POLL only)?: 
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A-C, D1, P 
History: 
Date Progranner Modification 
04/20/83 SC Docunent 


17.44 pFRSCH - Search for File Type by Nane 
Category: POLL File: SC&FIL::MS 


Nane:(S) pFASCH - Search for File Type by Nane 
Type: POLL 


Purpose: 
Search file type table in LEX file for a given file 
type nane. 


Should poll be "Handled" (return wath XM=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled’): 
Returns the file type nunber for the unprotected forn 
of the file type. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A}] = Poll number. 
HEX node. 
P=0. 
A[9-O]= File type in ASCII, right justified with 
leading blanks(first character 1n A(B)). 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

XM=0. 

A[3-0] = File type nunber 


Normal exit conditions fron handler if not handled (ST, RAM, 
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registers, etc.): 
Carry clear 
HEX node. 
KM=1. 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX node. 
Error can only happen when there is not enough nenory to 
do the poll at all. 
Available subroutine levels: 4 


What registers/RAM may be used if handled?: 
, AC 015? 


What registers/RAM may be used if not handled?: 
A-C, Di, P 


What registers/RAN may be used if error exit: 
A-C, D1, P 
History: 
Date Progranner Modification 


oe ewe eee wee wee ee ee wwe ee ee et ew ee ee eee wen eee eee 


04/20/83 = SC Docunent 


17.45 pSRECH - Position to Rec# of File u/Copycode 8 
Category: POLL File: SC&FIL:: MS 


Nane:(S) pSRECH ~- Position to Rect of File u/Copycode 8 
Type: POLL 


Purpose: 
Set file pointer to a given record # of a file whose 
copy code 1s >= 8. 
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Should poll be "Handled" (return with XM=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled’): 
Set the file pointer in FIB to a given record # in the 
file. 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[R] = Poll nunber. 
HEX node. 
P=0. 
Als] = copy code of the file 
A[4-0] = FIB entry address of the file 
STMTD1 = FIB entry address of the file 
Ri = Record # (first record of the file is record 0) 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Carry clear. 
HEX node. 
KN=0. 
Following field in FIB of the file 1s updated: 
.Current position set to start of the given record. 
.H of bytes left in current is set to equal to record 
length. 
.If the file is in external device, the file 1/0 
buffer should contain the current sector. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear (POLL only). 

HEX node. 

XM=1, 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX node. 

Rvailable subroutine levels: 

What registers/RAM nay be used if handled?: 
Rll CPU registers 
Don’t use STMTDO & STNTD1 

What registers/RAM may be used 1f not handled?: 
All CPU registers 
Don’t use STMTDO, STMTD1, R1 


What registers/RAM nay be used if error exit ?: 
Rll CPU registers 


History: 
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Date Progranner Modification 


04/20/83 SC Docunent 


17.46 pRDCBF - Read Current Sector Fron Mass Nenory 


Category: POLL File: SC&FIL::MS 
Nane:(S) pROCBF - Read Current Sector Fron Mass Menory 
Type: FPOLL 
Purpose: 


Using the FIB, read the current sector of a file in 
the mass nenory device into the I/0 buffer that 1s 
associated with the file. 


There are total of 3 polls can be used to read/urite a 

sector between a mass memory device and I/0 buffer: 

1. pRONBF - Write buffer out to current sector and read 
in next sector. If buffer content has not been 
altered, just read in next sector. 

2. pRDCBF - Read in current sector fron mass neriory device 
to the 1/0 buffer. This poll does not care 
about the content currently in the 1/0 buffer. 

3. pWRCBF - Write 1/0 buffer to current sector in the nass 

nenory device. 


Should poll be “Handled” (return with XM=0)?: Yes 
Meaning of "Handling" Poll (what does code do if handled’): 
Read the current sector fron the nass menory device into 


the I/0 buffer of the file. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B{A] = Poll nunber. 


HEX node. 

P=0, a 
STHTD1 contains the FIB entry address of the file 

(SNAPEF contains A, D, DO and D1 to restore on exit) 
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Nornial exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 

Carry clear 

HEX riode. 

xM=0. 

File access nib in FIB is set to zero. 

A,D,00,01 restored to values fron SNAPBF. 


This poll handler must always call the routine SNAPRS to 
restore A,D,D0,D1 fron the snap save RAN before return. 

So if the polling routine calls the SNAPSV before 
issuing this poll, it can consider R,D0,D0,D1 will not 
be changed by this poll handler. 


Normal exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

HEX ttode. 

XM=1, 


Error exit conditions fron handler (POLL only): 
Won’t return to calling routine if error occur, direct 
exit to BSERR routine. 


Available subroutine levels: 
3 


What registers/RANM may be used if handled?: 
A-D, DO, D1, P, ST[0-4] 
(B,C,P,ST[O-4] if SNAPSV uas called) 


What registers/RAN nay be used 1f not handled?: 
B, C, 0 
(SNAPRS is not called) 


History: 


Date Progranner Modification 


04/20/83 SC Docurnent 
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17.47 pWRCBF - Write I/0 Buffer to Mass Menory Device 
Category: POLL File: SC&FIL:: NS 


Nane:(S) pWRCBF - Write 1/0 Buffer to Mass Meriory Device 
Type: FPOLL 


Purpose: 
Using the FIB, write the file I/0 buffer to 
the sector it cane fron in a mass nerory device. Buffer 
content, Current position and record address are not 
changed by this operation. 


There are total of 3 polls can be used to read/urite a 

sector betiween a mass nenory device and 1/0 buffer: 

1. pRONBF - Write buffer out to current sector and read 
in next sector. If buffer content has not been 
altered, just read in next sector. 

2. pRDCBF - Read in current sector fron mass neriory device 
to the 1/0 buffer. This poll does not care 
about the content currently in the I/0 buffer. 

3. pWRCBF - Write 1/0 buffer to current sector in the nass 
nenory device. 


Should poll be "Handled" (return with XN=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Write the file I/0 buffer to the sector it cane fron ina 
mass nenory device. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A]) = Poll-nuriber. 
HEX mode. 
P=0. 
STNTQ1 contains the FIB entry address of the file 
(SNAPBF contains A,D1,D0 and D1 to restore on exit) 


Norrial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear (POLL only). 

HEX rode. 

xM=0. 

File access nib in FIB is set to zero. 

A,D,D0,D1 restored to value fron SANPBF. 
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This poll handler nust aluays call the routine SNAPRS to 
restore R,D,00,01 fron the snap save RAM before return. 

So if the polling routine calls the SNAPSV before 
issuing this poll, at can consider A,D,D0,01 will not 
be changed by this poll handler. 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX rode. 

XM=1. 


Error exit conditions fron handler: 
Won’t return to calling routine if error occurs, direct 
exit to BSERR routine. 


Available subroutine levels: 
3 


What registers/RAM nay be used if handled?: 
A-D, DO, D1, P, ST[O-4] 
(B,C,P,ST{0-4] af SNAPSV been called) 


What registers/RAN tay be used if not handled?: 
B, C, & 
(SNAPRS is not called) 


History: 
Date Progranner Modification 
04/20/83 SC Docunent 


17.48 pCREAT - Create File in External Device 


Category: POLL File: SC&FIL::MS 


Narie:(S) pCREAT - Create File in External Device 


Type: POLL 
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Purpose: 
Create a file in an external device 
This poll handles files of all copy codes except 
copy code 8. 


Should poll be “Handled” (return with XM=0)?: Yes 


Meaning of “Handling" Poll (what does code do if handled?): 
Create a file in an external mass menory device 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A} = Poll number. 
HEX rode. 
P=0, 


D(X) = Device address 

D(S) = Device type 

STMTRO = First 8 chars of the file nane 

STNTR1(3,0) = Last 2 chars of the file nane 
STNTR1(6,5) = Offset to data (fron file type table) 
STMTR1(9,7) = Device address 

STMTR1(13,10) = File type 

STNTRI(14) = Create code {can not be 8) 


ee ee ee ee ee Ce ew me mee eee eee 


Create Forriat Meaning of this paraneter 
code Inplied 

0 Executable Data length in nibs 

1 DATA(fix length) Nunber of records 

2 SDATA(41C data) Nunber of registers 

4 LIF1 type File length in bytes 


(vbl len record) 


R3(A) = Second parameter for CREATE: 
Create Fornat Meaning of this paraneter 
code Inplied 

0 Executable (ignored) 

1 DATA( fix length) Record length in bytes 

2 SDATA(41C data) (ignored) 

4 LIF1 type(vb] len) (ignored) 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Carry clear (POLL only). 


HEX triode. 
XN=0, loC 
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Normal exit conditions fron handler if not handled (ST, RAM, 
registers, etc.): 

Carry clear (POLL only). 

HEX node. 

xM=1. 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX node. 
C{[0-3] = Error nunber. 


Available subroutine levels: 6 


What registers/RAN may be used if handled?: 
A-D, DO, D1, P ,RO-R4, SO-S11, SCRICH RAM 


What registers/RAN nay be used if not handled?: 
A-D, DO, D1, P 


What registers/RAN may be used if error exit (POLL only)?: 
Rnything 


NOTE: 
No future changes to this interface should cause the 
handler to alter statenent scratch!!! 


History: 
Date Programmer Modification 
04/19/83 = SC Docunent 


17.49 pCRT=8 - Create File u/Create Code = 8 
Category: POLL File: SC&FIL:: MS 


Narie:(S) pCRT=8 - Create File u/Create Code = 8 
Type: POLL 
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Purpose: 
Create a file whose create code is 8. The file can be 
in internal neriory or external mass memory device. 
The poll handler must handle all HPIL access. 


Should poll be "Handled" (return with XM=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Create the file. 


Entry conditions for handler (registers, ST, RAM, etc.): 
BLA} = Poll nunber. 
HEX node. 
P=0. 


D(X) = Device address 
D(S) = Device type 
STMTRO = First 8 chars of the file nane 


STNTR1(3,0) = Last 2 chars of the file nane 
STMTR1(6,5) = Offset to data (fron file type table) 
STMTR1(9,7) = Device address 

STNTRI(13,10) = File type 

STNTRI(14) = Create code (can not be 8) 


Ow Owe me ww ee Ome mew mw ww ow a eee ee me wee we wee wwe 


Create Fornat Meaning of this parameter 
code Inplied 

0 Executable Data length in nibs 

1 DATA(fix length) Nuriber of records 

2 SDRTAC41C data) Nuriber of registers 

4 LIF1 type File length in bytes 


(vbl len record) 


R3(A) = Second paraneter for CREATE: 


ew ee ww em we wm ew we mew we ewe = ee eee we ee ew eee 


0 Executable {1gnored) 
1 DATA( fix length) Record length in bytes 
2 SDATA(41C data) (ignored) 
4 LIF1 type(vbl len) (ignored) 


‘Wornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Carry clear 
HEX node. 
KM=0, 
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Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

xM=1. 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX node. 
C{O-3] = Error number. 


Available subroutine levels: 6 


What registers/RAM nay be used if handled?: 
A-D, DO, D1, P ,RO-R4, ST, SCRTCH RAN 


What registers/RAM may be used if not handled?: 
A-D, DO, Di, P 


What registers/RAN may be used if error exit (POLL only)?: 
Any thing 


NOTE: 
No future changes to this interface should cause the 
poll handler to alter Staterient Scratch! 


History: 
Date Progranner Modification 
04/19/83 SC Docunent 
50 pFINDF - Find External File 


Category: POLL File: SC&FIL::MS 


Nane:(S) pFINDF - Find External File 
Type: POLL 


Purpose: 
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Find a given file in a given mass nenory device 
Should poll be "Handled" (return with XM=0)7?:Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Return file information about the file. 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A] = Poll nunber. 
HEX node. 
P=0, 
RO = First 8 chars of file nane 
R1 = Last 2 chars of file nane 
D(X) = Device address 
D(S) = Device type 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Carry clear 


HEX wode. 
KM=0,. 
RO(O,3) = Starting record # 
RO(4,6) = Device address 
RO(7,10)= 0000 
RO(11,14)= File type 
RO(15) = 
R1(0) = Entry # in the record containing directory 
R1(1,4) = Record # of directory entry 
R1i(5) = 
R1(6,9) = # of sectors of file length 


Nornal exit conditions from handler if not handled (ST, RAM, 
registers, etc.): 

Carry clear 

HEX node. 

XM=1, 


Error exit conditions fron handler: 
Carry set. 
HEX node. 
C[O-3} = Error nunber. 


Available subroutine levels: 6 - 


\lol 


What registers/RAM may be used if handled?: 
R,B,C€,0(15,5),D1,RO,R1, P 
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What registers/RAM ay be used if not handled?: 
A,B,C ,D{15-5),01,RO,R1,P 


What registers/RAN may be used if error exit: 
A,8,C,0[15-5], P 


History: 
Date Progranner Modification 
04/20/83 SC Docunent 


17.51 pDIDST - Poll for Device ID Storage 
Category: POLL File: SC8&FIL:: MS 


Nane:(S) pDIDST - Poll for Device ID Storage 
Type: FPOLL 


Purpose: 
Handler for device ID storage (D1 @ destination point) 


Should poll be "Handled" (return with XN=0)?:Yes 


Meaning of “Handling” Poll (shat does code do if handled?): 
Save the device ID in FIB for the file 


Entry conditions for handler (registers, ST, RAN, etc.): 
B(R] = Poll nunber. 
HEX rode. 
P=0, 


R2 contains C[W] fron SETUP 
(R2[14] is the device code fron FILSPx) 
R3 contains the device ID/volune label 


Norrial exit conditions from handler if handled (ST, RAN, 
registers, etc.): 
HEX node. 
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17. 


KM=0. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX rode. 

XI=1, 


Available subroutine levels: 4 


What registers/RANM ray be used if handled?: 
A-D, DO, DI, P R2-R3 


What registers/RAN nay be used if not handled?: 
A-D, DO, DI, P, R2, R3 


History: 
Date Progranrer Modification 
04/20/83 SC Docunent 


52. pDATLN - Compute File Len u/Create Code = 8 
Category: POLL File: SC&FIL:: MS 


Nane:(S) pDRTLN - Compute File Len u/Create Code = 8 
Type: POLL 
Purpose: 
Compute the file length of an external file whose 
Create code is 8. 


Should poll be "Handled" (return with XM=O0)?: Yes 


Meaning of “Handling” Poll (uhat does code do if handled’): 
Return the file length of the external file 


Entry conditions for handler (registers, ST, RAM, etc.): 


B[A} = Poll number. 
HEX rode. 
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P=0, 

D[S] = copy code of the file, but already been shifted 
left once(top bit lost). 

The directory entery of the file is copied from the mass 

nenory into SCRICH RAM (64 nibs) 


Normal exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 

Carry clear (POLL only). 

HEX trode. 

KN=0. 

ACA) = File length of the file in nibbles. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

XM=1. 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX triode. 
C{O-3] = Error number. 

Available subroutine levels: 6 

What registers/RAM ray be used if handled?: 
A-D, DO, P 


What registers/RAN nay be used if not handled?: 
A-D, 00, DI, P 


What registers/RAM may be used if error exit (POLL only)?: 
A-D, DO, D1, P 
History: 
Date Progranner Modification 


04/20/83 SC Docunent 
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17.53  pREN - Renunber an XWORD line reference 
Category: POLL File: SC&REN::MS 


Nane:(S) pREN - Renurber an XWORD line# reference 

Type: POLL 

Purpose: 
Renuriber a XWORD staterent if it has line number as its 
argurients. 


Should poll be "Handled" (return with XM=0)?:Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Return D1 points to where the line number is. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[R}] = Poll nunber. 
HEX rode, 
P=0, 
A{4-0] = LEX file ID and fen # 
D1 past the XWORD tokens. 





Nortial exit conditions from handler if handled (ST, RAM, 
registers, etc.): 

Carry clear (POLL only). 

HEX triode. 

KN=0, 

D1 @ the line nunber token(tLINE# or tLITRL) 

$3 = 1, 1f there are nore than one line nunbers followed. 


Nornal exit conditions fron handler if not handled (ST, RAM, 
registers, etc.): 

Carry clear. 

HEX node. 

KNM=1. 


Error exit conditions fron handler (POLL only): 
Carry set. 3 
HEX node. aaa 
Will exit to MEMERR( Insufficient Menory). 

Available subroutine levels: 5 


= 
What registers/RAN tiay be used if handled?: Oe 
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R-D, DO, P 


What registers/RAN nay be used if not handled?: 
R-D, DO, P 


What registers/RAM may be used if error exit (POLL only)?: 


A-D, DO, P 
“ History: 
Date Progranner Modification 
04/20/83 SC Docuent 


17.54  pCALS¥Y - Poll to save local environnent on CALL 
Category: POLL File: SC&SUB::MS 


Narie:(S) pCALSV - Poll to save local environment on CALL 
Type: POLL 


Purpose: 
Give any LEX file a chance to save its local environnent 
when CALL 1s executed. 


Should poll be "Handled" (return with XM=0)?: 
Since this poll 1s intended to reach every LEX file, so 
XM should always set to 1 on return. 


Meaning of “Handling” Poll (what does code do 1f handled): 
A LEX file can put a block of its local environment on 
top of the stack. When the ENDSUB 1s executed later on, 
the LEX file can use this block to restore its local 
environnent. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A] = Poll nunber. 
HEX node. 
P=0. 
AVNENE(available menory end) 1s pointing at current top 
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of stack. 


Normal exit conditions from handler if handled (ST, RAM, 
registers, etc.): 
Carry clear (POLL only). 
HEX node. 
XM=1, 
Update the AVMNENE to point at the top of the block which 
Just been put on to the top of the satck. 


Norrial exit conditions fron handler 1f not handled (ST, RAN, 
registers, etc.): 

Carry clear (POLL only). 

HEX node. 

xM=1, 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX node. 
C{3,0] = Error code 


Available subroutine levels: 
5 


NOTE: 
Definition of the save block: (starting fron lower addr. ) 


Nibs Meaning 


mee eee ee a a a ee ee a eee ee ee eee eee 


12 LEX file ID 

3-5 Block length in nibs(not include the 1st 5 nibs) 
6 # of update addresses following 

7-n Update addresses 5 nibs each 

n-n Anything else 


What registers/RAM nay be used if handled?: 
A-D, DO, D1, P ,RO-R3, ST, scratch RAM 


What registers/RAM may be used if not handled?: 
A-D, DO, D1, P ,RO-R3, ST, scratch RAN 


What registers/RAN may be used if error exit (POLL only)?: 
A-D, DO, D1, P, RO-R3, ST, scratch RAN 


Special menory/pointer considerations (are pointers funny?): 
None. 


Envisioned application(s): 
Allous a LEX file to stack and unstack local data that 
is not stored in a systen buffer. This may be useful 
to applications which can be called recursively, since 
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systen buffers are global and are not allocated recur- 


sively. 
History: 
Date Progranner Modification 
04/18/83 SC Docunent 
17.55 pCALRS - Poll to restore local environnent 
Category: POLL File: SC&SUB::MS 
Name: (S) pCALRS - Poll to restore local environrent 
Type: POLL 
Purpose: 


Give any LEX file a chance to restore its local 
environnent when ENDSUB 1s executed. 


Should poll be "Handled" (return with XM=0)?: 
Since this poll 1s intended to reach every LEX file, so 
XM should always set to 1 on return. 


Meaning of "Handling" Poll (what does code do if handled?): 
A LEX file can restore its local environment saved at 
CALL tine (by respond to pCALSV poll) 


Entry conditions for handler (registers, ST, RAN, etc.): 


B[A] = Poll nuriber. 3 
HEX node. 
P=0, 


CRLSTK 1s pointing at the first of all the save blpcks. 


Nornal exit canditions fron handler if handled (ST, RAM, 
registers, etc.): 

Carry clear (POLL only). 

HEX node. 

XM=1. 
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Normal exit conditions fron handler 1f not handled (ST, RAN, 
registers, etc.): 

Carry clear (POLL only). 

HEX node. 

xM=1. 


Error exit conditions from handler (POLL only): 
Carry set. 
HEX node. 
C{3,0] = Error code 


Available subroutine levels: 
3 


NOTE: 
How to find the save block of your oun : 


Starting fron the CALSTK, look for first 2 nibbles of 
each bloch for your LEX IG. All the save blochs are 
link listed. When your bloch 1s found, just use the 
infortiation to restore your local environnent, don’t 
collapse the block. All the update addresses in the 
block are justified if menory had been noved. 


What registers/RAM nay be used if handled?: 
A-D, DO, BI, P ,RO-R3, ST, scratch RAM 


What registers/RAN nay be used 1f not handled?: 
A-D, DO, BI, P ,RO-R3, ST, scratch RAN 


What registers/RAM may be used if error exit (POLL only)?: 
A-D, DO, D1, P, RO-R3, ST, scratch RAN 


History: 
Date Progranner Modification 
04/18/83 SC Docunent 
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17.56 pFNIN  - Poll at start of tultiline U.D.F. 
Category: POLL File: SC&SUB::NS 
Nane:(S) pFNIN - Poll at start of multiline U.D.F. 
Type: FPOLL 
Purpose: 
Poll before start execution of a nultiline user-defined 
function. 


Should poll be "Handled" (return with XN=0)?: 
If handled set XM=1 on return. 


Meaning of "Handling" Poll (what does code do if handled?): 
This poll give everybody a chance to do something, so 
the poller doesn’t care 1t will be handled or not. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set on entry. 
BLA] = Poll nunber. 
HEX triode. 
P=0. 


Norrial exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 

HEX rode. 

XM=1. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XN=1. 


Available subroutine levels: 4 


What registers/RAM ray be used if handled?: 
Everything but the R1 


What registers/RAM may be used if not handled?: 
A-C, D[15-5] DO, D1, P 
--NOTE: D[A] 1s sacred 
R1-R4, ST, scratch RAM 
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History: 
Date Prograntier Modification 
05/10/83 SC Docunent 


17.57 pFNOUT - Poll at end of multiline U.D.F. 


Category: POLL File: SC&SUB::NS 


Nane:(S) pFNOUT - Poll at end of multiline U.D.F. 
Type: FPOLL 


Purpose: ° e 
Pol] before exiting a nultiline user-defined 
function. 


Should poll be "Handled" (return mith XM=0)?: 
If handled set XM=1 on return. 


Meaning of “Handling” Poll (uhat does code do if handled?): 
This poll give everybody a chance to do sonething, so 
the poller doesn’t care it will be handled or not. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set on entry. 
B[R} = Poll “nuriber. 
HEX node. 
P=0, 


Normal exit conditions fron handler if handled (ST, RAN, 

registers, etc.): 
HEX rode. 
XM=1. 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX rode. 

XM=1. 
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Available subroutine levels: 4 


What registers/RAM may be used if handled?: 
Everything but the RO 


What registers/RAM nay be used if not handled?: 
A-C, D[15-5] DO, D1, P 
--NOTE: D[A] 1s sacred 
R1-R4, ST, scratch RAM 


History: 
Date Prograrmer Modification 
05/10/83 SC Docurient 


17.58  pRINTp - Poll on Special Return type 
Category: POLL File: SG&EXC::NS 


Nane:(S) pRTNTp ~- Poll on Special Return type 
Type: FPOLL 


Purpose: 
Poll for Special Return type 
Allow for future extension of Special Return types on 
the GOSUB stack. When the RETURN is encountered, 
a LEX file may handled to do sonething before the 
RETURN (ex: Reactavate a Tiner) 


Return types: 9-E are reserved for future inplenentation 
The GOTO+ entry point allows the special Return type to 
be passed on entry in K3(S) 


Should poll be "Handled" (return with XM=0)?: | 
No - if this poll is handled, it 1s a take over pollxxx 


Meaning of “Handling” Poll (uhat does code do if handled?): 
Do the appropriate “special” return processing 
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Pop address of GOQSUB stack 
Perforn the RETURN or POP 


Entry conditions for handler (registers, ST, RAM, etc.): 
--Carry set on entry iff fastpoll-- 
B[A} = Poll number (pRINTp) 
HEX node. 
P=0, 
R2(S) = Return type (Range = 9-E) 
R2(A) = Return address 
SRETRN (SO) = 1 af RETURN 
= 0 if POP 
The address is NOT popped off the stack 


DO NOT destroy SO or R2 while deternining if handling 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
HEX trode. 
Perform the “special” processing 
Pop the address off stack (GOSBVL =POPGSB) 
If POP 
GOVLNG NXTSTA 
If RETURN 
If Return to Progran (type nust indicate this) 
Set PgnRun 
Save return address in R2 
Set DO @ return address 


If TRACE needed (TRFLCK) 
TRACE TO (TRTO+) 

Set DO @ Return address (R2) 

go execute “Return stnt" (govlng RUNRT1) 

If Return to Keyboard 

If tracing (TRFLCK) 
Send CR/LF (CRLFSD) 

If Keyboard buffer to return to (KBRTCK) 
Set DO @ Return address (R2) 


go execute "Return stnt" (govlng RUNRT1) 


Sanple code: 


GOSBVL  =POPGSB Pop addr off stack 

C=D A 

R2=A Save Return addres 

?$T=0 SRETRN POP? —— 
GOYES RTN40 

*ST=1 SRTNKY Return to Keyboard ? 

GOYES- = RTN20 

ST=1 PgnRun Set Pgn Running flag 

A=R2 Return address ‘ 


17-122 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


DO=A 
GOSBVL  =TRFLCK Tracing ? 
GOC RTN10 No 
GOSBVL  =TRTO+ TRACE 10 
RTN10 R=R2 
DO=A DO @ Return address 
GOVLNG  =RUNRT1 Execute Return stnt 


* Return to keyboard 


RTN2O GOSBVL  =TRFLCK Tracing ? 
GOC RTN3O 
GOSBVL  =CRLFSD Send CR/LF 
RTN3O GOSBVL = =KBRTCK Keyboard buffer? 
GO10 RTNIO Yes, go execute 
k 
* POP 
k 


RTN40 GOVLNG = ===NXTSTN 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 


HEX node. 
KM=1. 
SRETRN (SO) and R2 must be be preserved-- 


Available subroutine levels: 7 


NOTE: 


What 


What 


~-FPOLL handler is tuo levels deeper than caller-- 
RETURN/POP 1s statenent execute: all levels available 


See GOTO+ entry for pushing special return type on 
GOSUB stack 

The return type nust NOT conflict mith other 
GOSUB/RETURN extended statenents 

The return type or sorewhere else --- nust reflect 
af return to PROGRAM or KEYBOARD. This is 
deternined at GOSUB tine fron PgriRun flag 


registers/RAN nay be used if handled?: 
--R-D, DO, D1, P aluays available-- 
--Statenent execute usage 


registers/RAN nay be used if not handled’: 

~-A-C, D[15-5] DO, DI, P aluays available (FPOLL only)-- 
--NOTE: D[A] as sacred in FPOLLII-- 

~-RO,R1,R3, R4 


Envisioned application(s): 


Special GOSUB statenent: 
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ON INTERUPT GOSUB.... 
ON ALARN GOSUB.... 
ON... GOSUB.... 


where "sorething” nust be done before the actual 
return is exeucte. For exanple, schedule an ALARM 


History: 
Date Prograriner Modification 
05/02/83 J.P. Changed to Fast Poll 


17.59 pFILXQ - Poll for device to return device ID 


Category: POLL File: SG&FXQ::MS 


Narie:(S) pFILXQ - Poll for device to return device ID 
Type: POLL 


Purpose: 
Polls for dedicated device to intervene tc return its id 


Should poll be "Handled" (return with KM=0)?: 
Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Reads device specifier (either as an executed string 
expression off stach or as a literal) and if their 
device is referenced, return device ID in D(S) & D(x) 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry clear 
B(A] = Poll number. 
HEX node. 
P=0, 
RO contains file nane (if any) - <=8 characters 
DO may be restored prior to filespec, using STNTDO 
(this 1s generally not useful) 
IF S?=0 
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Device specifier is a literal 

DO poirits past tCQLON (Poll handler nust check 
to ensure that DO points to tLITRL - if it doesn’t 
poll should NOT be handled. 

IF S$?=1 

Device specifier 1s a string cn the stack 
(string header pointed to by AVMENE) 

DO points past the entire file specifier 

A colon was found on the stack, in the appropriate 

position. 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX mode. 

XM=0. 

File Nawe in A (Retrieve fron RO before exit) 

D(S),D(X) set appropriately mith device ad 

DO past file specifier 

RAODITIGNALLY: 

IF S?=1 on entry, then [1 rust point past the string 
on the stack and AVMEME must reflect this. 


Normal exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

XM= 1, 

RO rust be unaltered fron entry. 


Error exit conditions from handler (POLL only): 
NO ERROR - Instead DON’T HANDLE 


Available subroutine levels: 
6 


NOTE: 

What registers/RAM may be used if handled?: 
A-D,D1,00,R1,STMTR1 (all of it), $1,82 

What registers/RAMN nay be used if not handled?: 
A-D, OO, Gt, P 
R1,STMTR1 (all of it), S$1,S2 


What registers/RAM nay be used if error exit (POLL only)?: 
NO error exit 


Envisioned application(s}: 
So a dedicated device nay be referenced analogous to an 
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HPIL device, eg > INITIALIZE :HP145xx 


History: 
Modification 


O4f/21/83 S.W. Rdded POLL & docunentation 





17.60 pFSP{x - File Spec Execution poll 


Category: POLL File:  SG&FXQ::MS 


Nane:(S) pFSPCx - File Spec Execution poll 
Type: POLL 


Purpose: 
POLL for file specification execution 


Should poll be “Handled” (return with XM=0)?: 
Yes 


Meaning of “Handling” Poll (what does code do 1f handled”): 
Returns ist 8 chars of file nane in A 
and last tso characters in RO 
D(S)=Device type; D(X)= Device address 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry clear 
BLA] = Poll number. 


HEX node. 

P=0, 

Low 2 bytes of RO are blank-filled 
S7=1 = > String expressian on stack 


Top of stack pointed to by RVMENE 
Dh) past string expression 
O => Literal 
DO nay be restored from STMTDO to interpret 
file specifier 


n 


Nornal exit conditions fron handler 1f handled (ST, RAN, 
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registers, etc.): 
Carry clear 
HEX node. 
KM=0. 
A contains file nane (blank-filled) 
If > 8 characters, last 9 & 10 in RO 
If no file nane specified, A=0 
D(S) = Device type 
D(X) = Device address 
past file specifier 
S?7 intact fron entry 
If S$? set on entry (string), D1 must point past file 
specifier on stack; eg D1 must reflect new top of stk 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

KMN=1. 


Error exit conditions fron handler: 
Carry set. 
HEX node. 
C{O-3] = Error nunber. 


Rvailable subroutine levels: 
7 


NOTE: 
If not handled, error generated is eF SPEC 


What registers/RAN nay be used if handled?: 


R-D, DO, DI, P 
RO,R1, S-R1-O thru S-R1-3, STNTDO, STNTD1, 
$1, S2 


What registers/RAN tay be used if not handled?: 
A-D, DO, D1, P 
Sane as if handled (See above) 
S? must renain intact 


What registers/RAM nay be used if error exit: 
A-D, DO, D1, P 
Sane as 1f handled (See above) 


Special meriory/pointer considerations (are pointers funny?): 
No 


Envisioned application(s): 
PURGE A: TAPE 
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Note: 
If not handled, error generated 1s eF SPEC. 
History: 
Date Progranner Modification 
02/08/83 S$. Added docunentation = 


17.61 pPURGE - Poll to PURGE file on external device 


Category: POLL File: SG&FXQ::MS 


Nane:(S) pPURGE - Poll to PURGE file on external device 
Type: POLL 


Purpose: 
Polls to PURGE a file on non-nainfrarie device 


Should poll be “Handled" (return wath XM=0)?: 
Yes 


Meaning of “Handling” Poll (what does code do if handled”): 
Purges the file 
The mainframe will handle purging any associated FIB 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry clear 
BIA} = Poll number. 
HEX node. 
P=0, 
1 past file specifier 
D(S) & D(X) contains device info 
Blanh-filled file nane in A{W) & RO; RO contains chars 
9&8 10; If no file nane given, A=0 


Norrial exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX rode. 
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KM=0, 
S8=0 (indicates current file was not purged) 





Noriial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX rode. 

KN=1. 


Error exit conditions fron handler (POLL only): 
Carry set. 
HEX rode. 
C{O0-3} = Error nunber. 


Available subroutine levels: 
7 


NOTE: 
If not handled, error generated 1s eF SPEC 


--SCRATCH RAM TO CONSIDER BELOW: -- 
--STMT/FN Scratch, SCRTCH, SNAPBF, TRFNBF, LDCSPC,-~ 
=o LEXPTR oo 


What registers/RAN nay be used 1f handled?: 
A-D, DO, DI, P 
. Anything available to statenents 
STNT/FN scratch, RO-R4, SO-S11 


What registers/RAN tay be used if not handled?: 
A-D, DO, D1, P 
Sane as if handled, except don’t use RO ! 


What registers/RAM nay be used 1f error exit: 
A-D, 06, D1, P 
Sane as if handled 


Special nenory/pointer considerations (are pointers funny?): 
No 


Envisioned application(s): 
PURGE A: TAPE 
PURGE :PORT(2) |! PURGE ALL on a plug-in EPROM perhaps 


Note: 
If not handled, error generated is eFSPEC. 
Histery: 
Date Prograrner Modification 
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06/29/82 = S.N. Added docunentation 


17.62  pPRGPR - Poll to PURGE file on non-RAM device 


Category: POLL File: SG&FXQ:: 4S 


Nare:(S) pPRGPR - Poll to PURGE file on non-RAN device 
Type: POLL 


Purpose: 
Polls for PURGE of file on non-RAN nenory device 


Should poll be "Handled" (return with XN=0)?: 
Yes 


Meaning of "Handling" Poll (what does code do if handled?): 

Checks File Protection. 

If current file, ensure there’s a workfile in nainfrane 
or room to create one - See Note below. 

If not secure, purge the file. 

Call RFAD-I with begin source in RO, offset in B(A) 

and D1 pointing to S-RO-1 (which contains old enf of 
file chain) 

Have S10 set on exit iff a LEX file was purged. 

S3 should be set on return iff current file purged 


Mainframe will handle: 7 

Deleting any associated FIB. 

If current file purged (S9=1), SUSP annun. will be 
Cleared & new workfile created. 

If LEX file purged (S10=1), will call LEXBF+ 

If current running file purged, S7 will be set. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry clear 
B[A} = Poll number. 
HEX node. 
P=0,. 
D1 at file header of file to purge 
D(S) contains device type 
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2 => RON 
3 => EPROM 
D(B) contains port info 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX node. 

XM=0. 

PCADDR intact 

S93 set iff current file purged 

S10 set af LEX file purged 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HE xX node, 

xM=1, 


Error exit conditions fron handler 
Carry set. 
HEX node. 
C{O-3] = Error nunber. 
Possible errors are: 
eFPROT (file 1s SECURE) 
eMEM (file is current, there’s no workfile, and no 
roon to create one) 


Available subroutine levels: 


NOTE: 
If file to purge is current file, consult mainframe code 
betueen PROFCS & PROF35 to verify there’s a workfile 
or roon to create one. 


~-SCRATCH RAN TO CONSIDER BELOW: -- 
--STMT/FN Scratch, SCRTCH, SNAPBF, TRFNBF, LDCSPC,-- 
--LEXPTR. -- 


What registers/RAM nay be used if handled?: 
A-D, DO, D1, P 
RO,R1,R2,R3,S-RO-0, S-RO-1, SO-S7,S9-S114 


What registers/RAM nay be used if not handled?: 
R-D, DO, D1, P 
Sane as if handled (see above) 


What registers/RAM nay be used if error exit: 
A-D, DO, DI, P 
Sane as 1f handled (see above) 
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Special nenory/pointer considerations (are pointers funny?): 
No 
However, 1t 1S inportant to consider that PURGE of 
current file CAN and SHOULD generate an insufficient 
neriory error if there’s no workfile in the wainfrane & 
no room to create one. 


Envisioned application(s): 
PURGE A:PORT(2) |! where PORTH2 1s an EPROM 


Note: 
If no one responds, error generated is eFACCS 


History: 
Date Progranmer Modification 

06/29/82 SLU. Added docunentation 

12/16/82  S.W. Eliminated check to distinguish 
ROM fron other non-RAN devices 

12/16/82 S.W. Poll handler no longer requires 
entry point to PRGF40 

06/03/83 S.U. Replaced call to CLSUSP with ZERPGM 


17.63 pRNANE - Poll to RENANE file on unknown device 


Category: POLL File: SO&FXQ::NS 


Narre: (S) pRNANE - Poll to RENAME file on unknown device 
Type: POLL 
Purpose: 

Polls to RENAME file on external device or on non-RAN 


nenory device. 


Should poll be "Handled" (return with XM=0)?: 
Yes 


Neaning of "Handling" Poll (what does code do if handled?): 
Writes out new name to file header (or directory) 
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Should be ready to go on to NXTSTM 


Entry conditions for handler (registers, ST, RAM, etc.): 


Carry clear 

B[A] = Poll number. 

HEX node. 

P=0, 

BDO 1s past the file specifier 

Proposed new file mame 1s in the SAVSTK area 

(or at least uhat WAS the SAVSTK area before poll) 
The 10 character blank-filled new file nane is 112 
nibbles LOWER in meriory than where SAVSTK points 
(70 HEX). 


D(S) >= 7 => 

RENAME file on external device 

Nane of file to renane 1s blank-filled in A(W); 
Characters 9 & 10 in RO 

D(S),0(%) contain device id 

In higher nenory, adjacent to proposed file nane 
given above, 1s its corresponding 5 nibble 
device id (Do a shift right circular to restore 
to original forn). 

If poll isn’t handled, default error is eF SPEC 


D(S) «< 7?) => 
RENAME file on non-RAM rienory device 
D1 is at the file header 
3(S) contains nenory type info 
=> RON 
2 => EPROM 
D(B) contains port nunber/extender 
If poll isn’t handled, default error is eF ACCS 


Nornal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 


Carry clear 

HEX node. 

XM=0, 

Ready to go on to NXTSTN 


Normal exit conditions from handler if not handled (ST, RAM, 
registers, etc.): 


Carry clear 

HEX node. 

XM=1, 

RO intact fron entry. 


Error exit conditions fron handler: 





Carry set. 
HEX node, 
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C{O-3}] = Error number. 


Available subroutine levels: 
? 


NOTE: 
Error zf: 
1) No fale name 1s specified, 1e RENAME A TO :TAPE 
(eF SPEC) 
(This as default error given 1f D(S}>=7, else 
the handler MUST EXPLICITLY error) 
2) Proposed file nane is ‘keys’ 
(eF SPEC} 
3} File by that name already exists on the nediun 
(eFEXST) 


What reqisters/RAM may be used if handled?: 
A-0, (0, Of, P 
RO-R4, SO-S11, STMT/FN scratch 


What registers/RAM nay be used if not handled?: 
A-D, DO, DI, P 
R1-R3, SO-St11, STIMT/FN scratch 
Don’t alter SAVSTK | 


What registers/RAN nay be used if error exit: 
A=0;. DO. (DI, -P 
RO-R4, SO-S11, STMT/FN scratch 


Special rienory/pointer considerations (are pointers funny?): 
No 


Envisioned application(s): 
RENANE R:<external device> 10 B 


RENANE A: PORT(3) TO B (where A is on EPROM) 
History: 
Date Progranmner Modification 
12/16/82 = S.u. Conbined polls 
05/17/83 S. Wl. Added docunentation 
wry 
ee 
‘ oO 
4 
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17.64 pFPROT - [UN]SECURE or PRIVATE in non-RAM device 
Category: POLL File: SG&FXQ::MS 


Nane:(S) pFPROT - [UN]SECURE or PRIVATE in non-RAM device 
Type: POLL 


Purpose: 
Poll to SECURE/UNSECURE/PRIVATE file on external device 
or 1n non-RAN nerory device 


Should poll be "Handled" (return with KM=0)?: 
Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Change file protection; ready to go on to NXTSTH 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry clear, 
B{[R8} = Poll number. 


HEX triode. 
P=0, 
DO past file specification 
D(S) >= 7 => 
File on external device 
File nane blank-filled in A(W); 
characters 9 8 10 in low nibbles of RO 
D(S),D(X) contains device identifier 
If poll not handled, default error 1s eFSPEC 
D(S) « 7 => 


File in non-RAM nenory device 

D1 at file header 

D(S) contains nenory type info 

D(B) contains port extender/nunber 

If poll not handled, default error is eFACCS 


$11=1 => PRIVATE 
else 
$10=1 => UNSECURE 
O => SECURE 


Nortial exit conditions from handler if handled (ST, RAN, 
registers, etc.): 
Carry clear. 
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HEX rode. 
XM=0,. 
PCADDR intact (ready to go on to NXTSTM) 


Norrial exit conditions fron handler if not handled (ST, RAM, 
registers, etc.): 

Carry clear. 

HEX node. 

XM=1, 

$10,811 intact fron entry 

If D(S)>=7, RO must be intact fron entry 


Error exit conditions fron handler: 
Carry set. 
HEX node. 
C{O-3] = Error nunber. 
Only foreseen errors are for PRIVATE on a SECURE or non- 
executable file, which generates eFPROT, eF TYPE 
respectively. 


Available subroutine levels: 
7 


NOTE: 
For no file name specified, ie SECURE :<device> 
if D(S)>=?, the default error for "not handled’ will 
be eFSPEC. But if D(S)<7, the handler MUST EXPLICITLY 
error on this. 


What registers/RAN may be used if handled?: 
R-D, DO, Di, P,RO-R4 
STMT/FN Scratch, SO-S114 


What registers/RAM may be used if not handled?: 
A-D, DO, D1, P 
R1-R3, SO-S9, STMT/FN Scratch 
RO if D(S)<? 


What registers/RAN may be used if error exit : 
A-D, DO, BI, P 
RO-R4, SO-S11, STMT/FN scratch 


Envisioned application(s): 
SECURE A: TAPE 


PRIVATE A:PORT(3) where PORTH3 1s EPROM 
History: 
Date Progranner Modification 
06/0/82 SM Added docunentation 
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12/16/82 S.W. Conbined polls 


See 


17.65 pEDIT - Poll to position at non-BASIC file 





Category: POLL File: SG&FXQ: AMS 


Nare:(S) pEDIT - Poll to position at non-BASIC file 
Type: POLL 


Purpose: 
Just gives the ’0K’ to position at non-BASIC file 


Should poll be "Handled" (return with XM=0)?: 
Yes 


Meaning of "Handling" Poll (uhat does code do if handled?): 
Clears XM 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A] = Poll number. 
HEX node, 
P=0. 
D1 points at file header 
ACA) contains file type# 


Norrial exit conditions from handler if handled 
Carry clear (POLL only). 
HEX riode, 
xM=0. 
D1 at file header 
S11 preserved fron entry (flags whether to CATalog) 
P=0 


Nortial exit conditions from handler if not handled (ST, RAH, 
registers, etc.): 

Carry clear (POLL only). 

HEX ode. 

XM=1. 

S11 preserved fron entry 

P=0 
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Error exit conditions fron handler (POLL only): 
Carry set=> Must be MENERR 
HEX rode. 
C{O-3) = Error nunber. 


Available subroutine levels: 


NOTE: 
If handled or not, $11 & D1 must be preserved 


What registers/RAN may be used if handled?: 
R-D, DO, RO-R3, S6 


What registers/RAM may be used if not handled?: 
B,C,D, DO, RO-R3, S6 


What registers/RAN may be used if error exit (POLL only)?: 


Special nenory/pointer considerations (are pointers funny?): 
N/A 


Envisioned application(s): 
To designate non-BASIC file as current, so cursor keys 
could be used to ’scroll’ through the file contents. 


Also possibly to be used in conjunction with the parse 
take-over poll, 1e position at a non-BASIC file and 
enter lines. 


History: 
Date Progranner Modification 
03/04/83 S.W. Added poll 


- 


17.66 pFILDC - Polls for File Deconpile 
Category: POLL File: SG&LOC:: NS 
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Narie:(S) pFILDC - Polls for File Deconpile 
Type: POLL 


Purpose: 
Polls for handler for device deconpile 


Should poll be "Handled" (return uith XM=0)?: 
Yes 


Neaning of “Handling” Poll (what does code do if handled?): 
Deconpiled device specifier output & DO updated. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry clear 
BLA} = Poll number. 
HEX node. 
P=0, 
D1 at tCOLON 
A(B) contains tCOLON 
DO past last deconpiled character 
D(A) contains the end of available nenory 


Normal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 

P=0 

Carry clear 

HEX node. 

XM=0. 

D1 past the file/device specifier 

File specifier output & DO updated 

D(R) preserved 


Normal exit conditions fron handler if not handled (ST, RAM, 
registers, etc.): 

P=0 

Carry clear 

HEX node. 

xM=1. 


Error exit conditions fron handler: 
(Only happens with insufficient nenory) 
P=0 
Carry set. 
HEX node. 


Available subroutine levels: 
6 


NOTE: 
When D(A) is passed to the poll handler, it reflects what 
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the end of available nenory WILL be once we get to the 
handler. 


What registers/RAN nay be used if handled?: 
A-0, DO, D1, P always available 
$8, S89 
+Anything EXPRDC uses (RO,R1,R2,S0,$3,S10,S811) 


What registers/RAM nay be used if not handled?: 
A-D, WO, D1, P 
Sane as if handled (see above) 


What registers/RAN may be used if error exit: 
A=), D0, 01. P 
Sane as if handled (see above) 


Special menory/pointer considerations (are pointers funny?): 
No 


Envisioned application(s): 
Deconpile non-mainfrane device 


History: 
Date Progratiner Modification 
07/08/82 S.W. Added docunentation 
.67  — pCAT - Poll for CAT on external device 
Category: POLL File: SG&SYS: 2 MS 
Nane:(S) pCAT - Poll for CAT on external device 
Type: POLL 
Purpose: 


Handles CAT for files not 1n MAIN, plug-in menory, 
Independent RAN, or CARD 


Should poll be "Handled" (return with XM=0)?: 
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Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Takes over connand; exits ready to go to next statenent 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry clear 
B[A} = Poll number. 
HEX node. 
P=0, 
File nane (if any) in A(W) & RO 
If no file narie, then A(W)=0 
Device Specifier in 0(S),D(X) 


Normal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

XM=0. 

PCRDOR intact 


Nornal exit conditions from handler if rot handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

XM=1. 


Error exit conditions fron handler 
Carry set. 
HEX node, 
C{O-3]} = Error nunber. 


Available subroutine levels: 
7 


NOTE: 


--SNAPBF, TRFNBF, LDCSPC 
--LEXPTR. -- 


What registers/RAM nay be used if handled?: 
BED DO Dt? 
RO-R4, All of STNT/FN Scratch 
Anything 1s available which 1s normally available to 
statenents, 
SO-S11 


What registers/RAM may be used if not handled?: 
Satie as if handled, except can’t use RO (see above) 


What registers/RAM nay be used if error exit 
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17. 


R-D, DO, Bi, P 
Sane as if handled (See above) 


Special menory/pointer considerations (are pointers funny?): 
None 


Envisioned application(s): 
CRT on TAPE, etc 


Note: 
If no one responds to POLL, error given 1s ef SPEC. 


See pCAT$ for related poll 


History: 

Date Progranner Modification 
05/10/83 S.W. Added new docunentation header 
68 pCAT$ - Poll for CAT$ on external device 

Category: POLL File: SG&SYS::nS 

Nane:(S) pCAT$ - Poll for CAT$ on external device 
Type: POLL 
Purpose: 


Creates buffer to execute CAT$ for external device 
(related to pCAT) 


Should poll be "Handled" (return with XM=0)?: 
Yes , qj 
j 
Meaning of “Handling” Poll (what does code do if handled’): \ © 
Pushes string on stack; AVMENE points to string header 
Entry conditions for handler (registers, ST, RAM, etc.): 


Carry clear 
B[A} = Poll nunber. 
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HEX node. 

P=0, 

SO set 

AVMENE points to string header on stack (string contains 
device nane) 

If the string 1s not null, it has already been reversed 
via REV$ (Characters in men in ascending order) 

PC (DO) saved in F-RO-O 


Norrial exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 
Carry clear 
HEX ttode. 
xN=0, 
String on stack, with AVMEME pointing to string header 
F-RO-O preserved fron entry 


Norrial exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX triode. 

xM=1. 


Error exit conditions fron handler: 
Carry set. 
HEX node. 
C{O-3] = Error nunber. 


Available subroutine levels: 


NOTE: 
If poll not handled, eFSPEC generated 


--SCRTICH, SNAPBF, TRFMBF, LOCSPC,-- 
-- LEXPTR. -- 


What registers/RAM nay be used if handled?: 
A-D, DO, DI, P 
RO-R4, S7-S11, FN Scratch except F-RO-0 


What registers/RAN may be used if not handled?: 
A-D, DO, DI, P 
Sane as if handled (see above) 


What registers/RAN may be used if error exit 
A-D, DO, Di, P 
Sane as 1f handled (see above) 


Special meriory/pointer considerations (are pointers funny?): 
No , 
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Envisioned application(s): 
To handle: CAT$(n,": TAPE") 


History: 


06/17/82 
07/07/82 
07/19/82 
10/20/82 


12/06/82 


12/13/82 


17.69 pLIST 


Progranrier 


S.W. 


S.u. 


Modification 
Inproved docurientation 
Modified code before calling BF2STK 
to reference AVMENE instead of TFORN 
Push null string on stack when 
positive nuneric argunent too large 
-- used to error. 
Replaced call to DDOSET (DO<=AVMENS) 
with call to LDCSET (D0<=OUTBS) 


Changed exit conditions for 
CAT poll as per N. Zelle 


Polls on unrecognized file spec 
Polls on file nane (nay be device 
nane without preceding colon) 


- Poll for LIST on an external device 


Category: POLL 


File: SG&SYS::MS 


Nane:(S) pLIST - Poll for LIST on an external device 
Type: POLL 
Purpose: 


LISTS a file on an external device 


Should poll be "Handled" (return with XM=0)?: 


Yes 


Meaning of "Handling" Poll (uhat does code do if handled?): 
Checks protection 
If file not PRIVATE, LISTS the file, ready to go on to 


NXTSTNM 
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Entry conditions for handler (registers, ST, RAN, etc.): 
B[A] = Poll nunber. 
HEX node. 
P=0. 
Blank-filed file nane in A(W); RO contains chars 9 & 10 
If no file nane specified, A=0 
D(S) contains device id; D(X) contains device address 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX rode. 

XM=0. 

PCRDDR intact 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX triode. 

XM=1. 


Error exit conditions fron handler 
Carry set. 
HEX riode. 
C{O-3] = Error nunber. 


Available subroutine levels: 
7 


NOTE: 
For no file nare specified, the default error nessage 
for *not handled’ will be eF SPEC. 


What registers/RAM may be used if handled?: 
A-D, DO, D1, P 
RO-R4, All Statuses except $13 
Scratch RAN? 


What registers/RAM nay be used if not handled?: 
R-D, DO, DI, P 
R1,R2,R3 
Scratch RAM? 
Statuses except $13 
NOTE: RO MAY NOT BE USED IF NOT HANDLED |!!! 


What registers/RAN tay be used if error exit (POLL only)?: 
R-D, DO, D1, P 
RO-R4, Statuses except $13, Scratch Ran 


Envisioned application(s): 
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Listing a file that resides on an external device. 


History: 
Date Progranner Modification 
01/01/83 S.W. Added docurentation header to poll 


17.70 pLIST2 - POLL to LIST non-BASIC/non-KEY file type 
Category: POLL File: SO&SYS::NS 


Narie:(S) pLIST2 - POLL to LIST non-BASIC/non-KEY file type 
Type: POLL 


Purpose: 
POLLS to LIST a mainframe file that isn’t BASIC or KEY 


Should poll be “Handled” (return with XM=0)?: 
Yes 


Meaning of “Handling” Poll (mhat does code do if handled?): 
LISTs the file on the display device 
Clears XN 
Ready to go to NXTSTN 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A] = Poll nunber. 
HEX node. 
P=0, 
D1 at file header start 
ACA) contains file type# 
DO past file specifier 


Nornal exit conditions from handler if handled (ST, RAN, ase 
registers, etc.): 

Carry clear 

HEX node. 

KN=0. 

Ready to go on to NXTSTM - PCADDR intact 7% 
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Nornal exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

xM=1. 


Error exit conditions fron handler 
Carry set. 
HEX node. 
C{0-3] = Error nunber. 


Available subroutine levels: 


STNT/FN Scratch, SCRTCH, SNAPBF, TRFMBF, LDCSPC, 
LEXPTR,. 


What registers/RAN nay be used if handled?: 
R-0, DO, 01, P always available 
RO-R4, ST, scratch RAN 


What registers/RAN nay be used if not handled?: 
{ R-D, DO, BI, P always available 
RO-R4, ST, scratch RAN 


What registers/RAN may be used if error exit (POLL only)?: 
A-D, DO, D1, P always available 
RO-R4, ST, scratch RAN 


Envisioned application(s): 
LISTing files of types other than BASIC and KEY, eg 
perhaps TEXT or DATR files. 


Default: 
If POLL not handled, error is Invalid File Type 
History: 
Date Prograriner Modification 


04/04/83 S.M. Docunented poll 
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17.71 pNERGE - Polls to MERGE non-nainfrane file 
Category: POLL File: SG&SYS::NS 


Narie:(S) pMERGE - Polls to MERGE non-nainfrane file 
Type: POLL 


Purpose: 
Polls to MERGE a non-nainfrane file 


Should poll be "Handled" (return with XM=0)?: 
Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Merges designated file into current file (if BASIC), 
into keys file (if KEY), or other if sone other file 
type and the connand has been extended to allow this. 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry clear 
B{A] = Poll nunber. 
HEX node. 
P=0, 
A(W) contains first 8 characters of file nane 
RO(3-0) contains characters 9 & 10 
DO past file specifier 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node, 

XN=0. 

PCRDDR intact, ready to go on to NXTSTN. 


Nortial exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX mode. 

XM=1. 

RO MUST be preserved fron entry. 


Error exit conditions fron handler: 
Carry set. 
HEX rode. 
C({0-3] = Error nunber. 
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Rvailable subroutine levels: 
7 


NOTE: 
For no file nane specified (MERGE :<device>) 
the default error message for ’not handled’ will 
be eFSPEC. 


What registers/RAN ray be used if handled?: 
A-D, DO, DI, P 
RO-R4, all statuses except $13 
Rll of STMT and FN scratch 


What registers/RAM tiay be used if not handled?: 
A-D, DO, D1, P 
R1,R2,R3; All statuses except $13 
RO can NOT be altered! 
Rll of STMT and FN scratch 


What registers/RAM nay be used if error exit (POLL only)?: 
R-D, DO, D1, P 
RO-R4, All statuses except $13 
All of STMT and FN scratch 


Envisioned application(s): 
Note that poll handler must check the following: 
1) file type of specified file 
2) Protection of source (can’t be PRIVATE), and 
of destination (can’t be SECURE or PRIVATE). 
3) Destination must be in RAN 
4) Sufficient nenory? 


History: 
Date Progranner Modification 
04/18/83 S.W. Updated docunentation 


17.72 pMRGE2 - Polls to MERGE non-BASIC,non-KEY file 
Category: POLL File: SG&SYS::MS 
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Nane:(S) pMRGE2 - Polls to MERGE non-BASIC,non-KEY file 
Type: POLL 


Purpose: 
Polls for handling of MERGE of non-BASIC,non-KEY 


Should poll be "Handled" (return with XM=0)?: 
Yes 


Meaning of “Handling" Poll (what does code do if handled?): 
Does appropriate MERGE, checking file protection, and 
nenory requirenents, exits ready to go on to NXTSIM. 


Entry conditions for handler (registers, ST, RAN, etc.): 
Carry clear 
B{A] = Poll nunber. 
HEX node. 
P=0, 
Bi at start of tainfrane (source) file header 
A(R)=File typet 
) past file specifier 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Carry clear. 
HEX node. 
XM=0, 
RFADJ has been called to update necessary pointers,etc 
Ready to go on to NXTSTN. 


Nornal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

xN=4. 
Error exit conditions fron handler (POLL only): 

Carry set. 

HEX node, 

C{O-3] = Error number. 


Available subroutine levels: 


NOTE: 


--STMT/FN Scratch, SCRTCH, SNAPBF, TRFNBF, LDCSPC, -- pm 
-- LEXPTR. -- 


What registers/RAM nay be used if handled?: 
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A-D, DO, DI, P 
RO-R4, Rll statuses except $13 
Rll of STMT and FN scratch. 


What registers/RAM may be used if not handled?: 
A-B, DO, DI, P 
RO-R4, Rll statuses except $13 
All of STMT and FN scratch. 


What registers/RAN nay be used if error exit (POLL only)?: 
A-D, DO, DI, P 
RO-R4, All statuses except $13 
Rll of STMT and FN scratch. 


Envisioned application(s): 
Perhaps merging TEXT or LEX files. 
Could inplenent by using the EDIT poll to position 
at the file, thereby naking it the current file. 


History: 
Date Progranner Modification 
04/18/83 SLU. Added docunentation 
17.73 pWARN - Warning poll 

Category: POLL File: TI&ERO:: nS 
Nane:(S) pWARN - Warning poll 
Type: POLL 
Purpose: 


Alert LEX files that a warning is about to go out. 


Should poll be "Handled" (return with XM=0)?: 
Only if you want the nessage to be entirely suppressed. 
Most applications will “handle” the poll without 
setting XM=0 (see below). 





HP-?71 Softuare IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


Meaning of “Handling” Poll (what does code do if XM=07): 
It’s up to you. For instance, a LEX file night want to 
intercept all warnings and errors to write then to a 
file; in this case, do your thing and return with XM=0 
so that the message 1s suppressed. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A] = Poll nunber. 
HEX node. 
P=0, 
ACA)=0 if Quiet (flag -1) is to be checked, 
else ACR)=FFFFF 1f Quiet is not to be checked. 


F EOC BAY 8B? 654321 «90 
Fe ea 
| | | | 
| control codes for text insertion | | 
+ Entry P value (see MFURN) | | 
LEX ID of rressage | 
nessage nunber 


Normal exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 

Carry clear. 

HEX node. 

XM=0. 

P=0, 

no other requirenents -- the message will be suppressed 


Norrial exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX rode. 

xN=1. 

P=0, 

RO can be changed as needed to adjust msg (see MFWRN) 


Error exit conditions fron handler: 
Carry set. 
HEX node. 
C{0-3] = Error nunber. 
P= value to select options in MFERR* 


Available subroutine levels: 
6 


What registers/RAN may be used if handled?: 


A,B,C,D,00,01,P,R0 
(Not available: R1,R2,R3,R4,ST, scratch RAM) 
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What registers/RAN nay be used if not handled?: 
A,B,C,D0,00,D1,P,RO (change RO only to affect nsg) 
(Not available: R1,R3,R4,ST, scratch RAN. 
R2 unavailable except for rare cases when insertion 
text 1s being passed to the msg routines. ) 


What registers/RAM nay be used if error exit (POLL only)?: 
A,B,C,D,D0,D1,P,RO 
(Not available: R1,R2,R3,R4,ST, scratch RAM) 


NOTE: 
The pWARN poll (and other nessage polls) are usually 
"handled" without setting XM=0. This 1s to allou 
all LEX files to get a chance to intercept the poll. 


A LEX file which intercepts the poll has essentially 
four choices: 

1) Abort the warning nessage, continue executing 
or whatever else it wants to do (including 
junping instead to the error routine). 

2) Change the values in RO to cause a different 
warning to be reported, or to cause different 
entry conditions as selected by the value in 
RO(S), or to cause different text insertion 
by changing the values in R2 (text insertion 
applies only to certain rare messages). Then 
allow the poll to return to the warning routine 
with XM=1. 

3) Sinply clear XM ("poll handled"). This causes 
the message to be suppressed; message driver 
returns inmediately (without setting ERRN, etc.) 

4) If error is generated by poll handler, set carry 
and load error number in C(3-0). This will 
cause a Jump to BSERR with the new error nunber. 


Envisioned application(s): 

R) Foreign Language Translators: if the warning message 
nuriber is fron the appropriate LEX file, the nessage 
nuriber in RO is adjusted to generate the translator’s 
nessage. (If a type {5} building block is included 
in the message, this will have to be adjusted through 
a nested pTRANS poll, too. See IDS volume I, chapter 
"Message Handling".) Set XM=1 and return. 

B) Say a LEX file intercepts all warnings, writes the 
ressage number (ERRN) and line nunber (ERRL) to a 
file, and suppresses the display of the warning. 

When intercepting this poll, it would do the 
necessary processing and return with XM=0. 

C) Say another operating systen will not allow any 
warnings to be 1ssued, only errors. It could 
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intercept the pWARN poll and junp directly to 

BSERR so that the warning 1s converted into an error. 
D) An autonated card puller ('?!7) night trap the 

appropriate card reader nessages and use then as 

prompts when to insert and pull cards. 


History: 
Date Progranner Modification 
10/05/82 NB Docunentation 
01/27/83 9B Added "poll handled" suppress 


17.74 pERROR - Error poll 
Category: POLL File: TI&ERD: MS 


Nane:(S) pERROR - Error poll 
Type: POLL 


Purpose: 
Alert LEX files that an error is about to go out. 


Should poll be "Handled" (return with XMN=0)?: 
Only if you want the message to be entirely suppressed. 
Most applications will “handle” the poll without 
setting XN=0 (see below). 


Meaning of “Handling” Poll (what does code do if XN=07): 
It’s up to you. For instance, a LEX file might want to 
intercept all errors and warnings to write then to a 
file; in this case, do your thing and return with XN=0 
so that the message 1s suppressed. 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A]} = Poll number. 


HEX node. 
P=0, 
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FEODC8AS8B? 65 43210 
Roo} 1 | bot 
| | | | 
| control codes for text insertion | | 
+ Entry P value (see MFERR*) | | 

LEX ID of nessage | 
nessage number 





If parse error (identified by bit3 1m RO(S)=1xxx): 
Address in INBS points to input strean 
A(A)= address of error within input strean 


Normal exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 

Carry clear. 

HEX node. 

XN=0, 

no other requirerents -- the message will be suppressed 


Nornal exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX node. 

AM=1, 

RO can be changed as needed to adjust msg (see MFERR*) 


Error exit conditions from handler: 

Carry set. 

HEX node. 

C{0-3] = Error nunber. 

P= value to select options in MFERR* (caution: do not 
select a parse error in this manner -- A(A) cannot 
pass infornation back through the poll. i.e., do 
not set bit} in P. If such a thing 1s necessary, 
the appropriate action is to abort the poll and 
Jump directly to BSERR, MFERR or MFERR*. ) 


Rvailable subroutine levels: 
5 


What registers/RAN nay be used if handled?: 
R,B,C,D,D0,01,P, RO 
(Not available: R1,R2,R3,R4,ST, scratch RAN) 


What registers/RAM may be used if not handled?: 
A,B,0,0,D0,01,P,RO (change RO only to affect rsg) 
(Not available: R1,R3,R4,ST, scratch RAN. 
R2 unavailable except for rare cases uhen insertion 
text 1s being passed to the nsg routines.) 
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What 


NOTE: 


NOTE: If a parse error (bit3 in RO(S)=1xxx), 
then DO NOT call I/ORLL, IODALL -- DO 
NOT allocate, deallocate or adjust the 
length of any 1/0 buffer! DO NOT change 
the value in AVNENS or INBS! (1/0 buffer 
routines move I/0 buffer nenory and change 
AvMenSt.) These pointers may be changed 
if the error is NOT a parse error. 


registers/RAM nay be used if error exit (POLL only)?: 
A,B,C,D,00,D1,P,RO 
(Not available: R1,R2,R4,ST, scratch RAM. 
R3 1s unavailable unless the error 1s a parse error: 
1.e., 1f RO(S)=1xxx. ) 


The pERROR poll (and other message polls) are usually 
“handled” without setting xM=0. This 1s to allow 
all LEX files to get a chance to intercept the poll. 


Reneriber, 1f a parse error, do NOT change the values 
an AVMEMS or INBS! This prohibits any adjustment (or 
allocation/deallocation) of I/0 buffer length. 


A LEX file which intercepts the poll has essentially 
four choices: 

1) Abort the error nessage, continue executing 
or whatever else it wants to do (including 
jumping instead to the warning routine). 

2) Change the values in RO to change the fornat 
of the nessage: 

1) change RO(4-0) to generate a different 
nessage 

11) change RO(S) to select different options 
(see NFERR*). However, bit3 in RO(S) 
CANNOT be changed! Bit3 in RO(S) indicates 
a parse error; if you need to change this, 
the appropriate way 1s to junp directly to 
BSERR, MFERR or MFERR* with your oun entry 
conditions. 

111) change the values in R2 to change text 
insertion (text insertion applies only to 
certain rare messages), 

Then allow the poll to return to the error 
routine with XKM=1. 

3) Simply clear XM ("poll handled"). This causes 
the message to be suppressed; nessage driver 
returns innediately (without setting ERRN or 
ERRL, without checking ON ERROR!) 

4) If error 1s generated by poll handler, set carry 
and load error number in C€(3-0). This will 
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Cause the new error to be displayed. 
In addition, the poll handler nay perforn any 
housekeeping type functions, such as cleaning up 
pending operations. 


Envisioned application(s): 

A) Foreign Lariguage Translators: if the error ressage 
nunber is fron the appropriate LEX file, the nessage 
nunber 1n RO is adjusted to generate the translator’s 
message. (If a type {5} building block 1s included 
in the message, this will have to be adjusted through 
a nested pIRANS poll, too. See IDS volune I, chapter 
“Message Handling.) Set XM=1 and return. 

B) Say a LEX file intercepts all errors, writes the 
message nunber (ERRN} and line number (ERRL) to a 
file, and suppresses the display of the error. 

When intercepting this poll, 1t would do the 
necessary processing and return with XM=0. 

C) Say another operating syster prevents any error fron 
halting execution; instead it issues warmmings and 
recovers without user intervention. It could 
intercept the pERROR poll and jurp directly to 
MFURN so that the error is converted into a warning. 
NFWRN is a subroutine, so processing would return 
to this operating systen. 


History: 
Date Progranner Modification 
10/05/82 NB Docunentation 
01/27/83 MB Added "poll handled" suppress 
17.75 = pMEN - Menory error poll 
Category: POLL File: TIGERD::MS 
Nane:(S) phen - Mernory error poll 


Type: FPOLL 
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Purpose: 
Alert LEX files that an "Insufficient Menory" error 
is about to be reported. 


Should poll be "Handled" (return with XM=0)?: 
Only if you want the message to be entirely suppressed. 
Most applications will “handle” the poll without 
setting XM=0 (see belon). 


Meaning of “Handling” Poll (what does code do if XN=07): 
It’s up to you. For instance, a LEX file might want to 
intercept all errors and warnings to write then to a 
file; in this case, do your thing and return with XN=0 
so that the message 1s suppressed. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A} = Poll number. 


HEX node. 
P=0, 
FEDCBAQY 8 7 6 5 43210 
RO: | |0 OF | ba dl ee 
| | | | | 
| | error flag | { 
| insertion codes | | 
+ Entry P value (see MFWRN) | | 


LEX ID of nessage | 
message nunber 


Nornal exit conditions from handler if handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX node. 

KN=0, 

P=0. 

no other requirenents -- the message 11] be suppressed 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 
Carry clear. 
HEX node. 
XM=1, 
P=, 
RO can be changed as needed to adjust nsg (see NENER*) | ap 3 


Rvailable subroutine levels: 


What registers/RAM nay be used if handled?: 
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What 


NOTE: 


A,B,C,D,D0,01,P,R0 
(Not available: R1,R2,R3,R4,ST, scratch RAM) 


registers/RAM may be used if not handled?: 

A,B,C,0,D0,01,P 

RO: change RO(3-0) to nodify nessage 

RO: change RO(14-13) to allow text insertion 
(only 1f you’re the LEX file that originated 
the nessage, and know what you’re doing). 

(Not available: R1,R2,R3,R4,ST, scratch Ran. 


The pMEM poll (and other message polls) are usually 
“handled” without setting XM=0. This is to allow 
all LEX files to get a chance to intercept the poll. 


The message number is usually eMEM (18 hex, 24 dec). 
But any LEX file can call the MNENER* routine with its 
on nessage nurtber; the fact that it called NEMER* 
neans that 1t 18 reporting insufficient neriory. 


The MEMERR routine uses the leeway area in available 
nenory as a building buffer; there is only enough roon 
for about 80 characters, plus prefix. If a poll 
handler substitutes another message nunber, it cannot 
exceed an 80 character linit (a message should never 
be longer than about 25 characters, anyway). If it 
does, the computer would enter an infinite MEMERR loop. 


R LEX file which intercepts the poll has essentially 
four choices: 
1) Abort the error nessage, continue executing 
or whatever else it wants to do (including 
Jutiping instead to the warning routine). 
2) Change the values in RO to change the fornat 
of the nessage: 
1) change RO(4-0) to generate a different 
nessage 
11) change RO(S) to select different options 
(see MFERR*). However, bit3 in RO(S) 
CANNOT be changed! Bit3 in RO(S) indicates 
a parse error; if you need to change this, 
the appropriate way is to junp directly to 
BSERR, MFERR or MFERR* with your oun entry 
conditions. 
Then allow the poll to return to the error 
routine with xM=1. 
3) Sinply clear XM ("poll handled"). This causes 
the message to be suppressed; message driver 
returns innmediately (without setting ERRN or 


17-159 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Poll Interface Descriptions 


ERRL, without checking ON ERROR!) 
4) Replace the address in level 1 of the RSTK 
(counting from 0) with its oun address, so 
that after the message is displayed, processing 
returns to itself. 
In addition, the poll handler can perforn any 
housekeeping type functions (such as cleaning up 
pending operations). 


One other option deserving nention is that of 
generating a nenory error which calls for text 
insertion. For instance, say an external systen 
has 6 different files open, and is uriting to 
then randomly; 1t reaches insufficient menory 
while writing to FILE4, so wants to report: 
Write Linat: FILE4 
using a text insertion point to pass "FILE4". 
Before calling MEMER*, set up R2 for insertions. 
When handling the pMEN poll, verify that this is 
indeed your message, adjust RO(14-13) to contain 
the insertion codes, and return with XM=1. 


Envisioned application(s): 

A) Foreign Language Translators: if the error nessage 
nunber 1s fron the appropriate LEX file, the nessage 
nunber in RO is adjusted to generate the translator’s 
message. Set XM=1 and return. 

Say a LEX file intercepts all errors, writes the 
message nuriber (ERRN) and line nunber (ERRL) to a 
file, and suppresses the display of the error. 

When intercepting this poll, it would do the 
necessary processing and return sith XM=0. 

Say another operating systen prevents any error fron 
halting execution; instead 1t issues warnings and 
recovers without user intervention. It could 
intercept the pERROR poll and junp directly to 
MFWRN so that the error is converted into a warning. 
MFWRN is a subroutine, so processing would return 
to this operating systen. 


B 


— 


t 


—_ 


History: 


Date Progranner Modification 


wom een we Se wee te wm ewe we wet wee eee wet ee mem eee 


10/05/82 MB Docunentation 
01/27/83 MB Added "poll handled" suppress 
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17.76 pENTER - Poll to ENTER Data Fron HPIL Device 
Category: POLL File: TI&XTD: 3S 


Nanie:(S) pENTER - Poll to ENTER Data Fron HPIL Device 
NOTE: 
THIS POLL IS NOT ISSUED BY THE OPERATING SYSTEM. It is 


issued by the HP-71 HPIL Module and is fully docunented 
in the HP-71 HPIL Module Internal Design Specification. 


17.77, =pTEST - Test Poll for Timing Polls 
Category: POLL File: TI&XTD::MS 


Nane:(S) pTEST - Test Poll for Tining Polls 
Type: POLL or FPOLL 
Purpose: 
THIS POLL IS NOT ISSUED BY THE OPERATING SYSTEN. It 
1s a dunny poll uhich is used for timing the systen 
overhead in issuing a poll. It should NEVER be handled. 
Should poll be "Handled" (return with XN=0)?: 
NO. 


Meaning of "Handling" Poll (what does code do if handled?): 
None. 


Entry conditions for handler (registers, ST, RAM, etc.): 
B[A] = Poll nurber. 
HEX mode. 
P=0, 
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Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
None. 


Nortial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear (POLL only). 

HEX rode. 

XM=1. 


Error exit conditions from handler (POLL only): 
Carry set. 
HEX ode. 
C(0-3] = Error number (only Insufficient Menory) 


Available subroutine levels: 
1 


NOTE: 
This poll is for tining purposes only, and should 
never be handled. 


What registers/RAM nay be used if handled?: 
None. 


What registers/RAN may be used if not handled?: 
A-C, D[15-5], DO, D1, P 


What registers/RAN nay be used if error exit (POLL only)?: 
A-D, DO, DI, P 


Special nenory/pointer considerations (are pointers funny?): 
None. 


Envisioned application(s): 


None. 
History: 
Date Progranner Modification 
12/12/83 FH Created docunentation == 
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17.78 pTRANS - Poll to Translate a Message 
Category: POLL File: TI&XTD::MS 


Narie:(S) pTRANS - Poll to Translate a Message 
Type: FPOLL and POLL 


Purpose: 
THIS POLL IS NOT ISSUED BY THE OPERATING SYSTEM. It 
is only issued by the NSG$ keyword (in LEX file 
#82), and by language translator LEX files. It 
alerts a language translator LEX file that a ressage 
needs to be translated. 


Should poll be "Handled" (return with XM=0)?: 
Yes. 


Meaning of "Handling" Poll (what does code do if XM=07): 
A language translator has substituted a foreign 
language message for the English one (the nessage 
nunber has been changed to generate a translated 
equivalent to the English message). 


Entry conditions for handler (registers, ST, RAN, etc.): 
B[A} = Poll nurber. 
HEX node. 
P=0, 


FE DC BAGYB7? 654321 «0 
RO: | | | | 


| | 
these 12 nibbles nay contain needed | | 
inforration for nessage handler | | 
LEX ID of message | 

Nessage nuriber 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX node. 

xN=0. 

RO(3-0)= new message number (see below) 
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Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX node. 

XM=1, 

RO untouched. 


Available subroutine levels: 


What registers/RAN may be used if handled?: 
A,B, C,0(15-5),00,01,P 
The message nunber in RO(3-0) nay be changed. 
(Not available: R1,R2,R3,R4,ST, scratch RAM) 


What registers/RAN may be used if not handled?: 
A,B,C,0(15-5),00,01,P 
(Not available: R1,R2,R3,R4,ST, scratch RAM. 


NOTE: 
''! Because the pTRANS poll may be issued it 
{11 as a nested poll fron a pERROR poll, iy 
''! you CANNOT change the values in AVMENS my 
11! or INBS! This prohibits any change in it 
1!) length of an 1/0 buffer (including I/OALL, !!! 
‘1! TODALL), since 1/0 buffer routines nove it 
‘tt I/O buffer menory and adjust AvMenSt. ry 


Since the pTRANS poll is usually issued as a fast poll, 
the poll handler cannot do an error exit ("carry set"). 
However, the nainfrane poll routine can error out with 
Insufficient Menory while trying to issue a slow pTRANS 
poll, 


Language translators for nessage tables are the only 
LEX files which should handle the pTRANS poll. The 
schene behind nessage translation is as follows: 

-- rainfrane message nunbers (LEX ID 00) are 
replaced with (nessage nunber)+100hex. E.g., 
nessage nunber 002) idecinal 45 as expressed 
by ERRN) has the foreign language equivalent 
nunbered 012D (decimal 1045 as expressed by 
ERRN). 

-- other nessage nunbers (for LEX files numbered 
above 01) are replaced with (msg nunber)+80hex. 
E.g., tessage nunber FFIF (decimal 255031 as 
expressed by ERRN) has the foreign language 
equivalent nunbered FF9F (decinal 255159 as 
expressed by ERRN). 

See IDS volune I, chapter "Message Handling" for 
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nore details. 


A language translator should not handle the pTRANS 
poll unless the LEX ID nunber of the nessage (found 
in RO(3-2)) is the appropriate one for translating. 


The pTRANS poll 1s issued fron tuo locations: 

1) The NSG$ function (LEX file #82) issues a fast 
pTRANS poll to translate the desired message 
nuriber. For example, 

NSG$(45) 
issues a pIRANS poll which, if intercepted by 
a language translator for nainfrane messages, 
Causes message number 1045 to be returned. 

2) Language translators, in certain rare cases, 
may issue a slow pTRANS poll to translate a 
type{5} indirect message nunber. This is a 
nested poll, issued during a pWARN poll (for 
instance, nainfrane nessage #88 , "TFN WRN L:", 
contains a type{5}, and causes a nested pTRANS 
poll). A nested pTRANS poll nay also be issued 
during a pERROR poll, although no applications 
have yet been envisioned which night do this. 
A nested pIRANS poll should NEVER be issued 
fror a pMEN poll; this means that any local 
equivalent to "Insufficient Menory" should 
NEVER have a type{5} cell. 


A pTRANS poll should never be nested within 
another pTRANS poll. 


When handling a pTRANS poll, don’t change the 
contents of RO(15-4); these nibbles may contain 
information from a nested pWARN or pERROR poll. 


History: 
Date  Progranner Modification 


10/22/83 MB ASG$ written for LEX file #82 
10/23/83 MB Added pTRANS poll handling to translators 


17-165 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Pointer Utilities 
t--------------------------- +--+ +--+ ------ + 
| | 
| PTRUTL - Pointer Utilities | CHAPTER 18 | 
| | 
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$a ne ee en ee ee ee ee ee eee 


18.1 D=AVMS - Set D(A) to AVMENS or AVMENE 
Category: PTRUTL File: SB&EXC::N$ 


Nane:(S) D=AVNS - Set D(A) to RYMNEMS or AVMEME 
Nane:(S) D=AVME - Set D(A) to AVMENS or AVMENE 


Purpose: 
D=AVNS : Read AVMENS into D(A) 
D=AVME : Read AVMEME into D(A) 
Entry: 
Exit: 
D(A)=nenory location specified. 
C(A)=a copy of value in D1 at tine of call 


Calls: None 


Inclusive: C(A), D(A) 
Stk Ivls: 0 


History: 
Date Progranrier Modification 
10/19/82 B.S. Added docunentation 


17 
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18.2 GETAVA - Get Available neriory linits 
Category: PTRUTL File: SB&I0::MS 


Nane:(S) GETAVN - Get Available nenory linits 


Purpose: 
Reads (AVMEME) into C & D1 and (AVNEMS) into D(A) 


Entry: 
Exit: 
D(A) = (AVMENS) 
C(A),01 = (CAVMENE) 
Calls: D=AVNS 
Uses....... 


Inclusive: C(A),D(A),D1 


Stk lvls: 1 
History: 
Date Progranner Modification 
10/18/83 B.S. Updated docunentation = 


18.3. DISAVE - Set D1 to (AVMENE) 
Category: PTRUTL File: SB&I0::MS 


Nane:(S) DIZAVE - Set D1 to (AVMENE) 


Purpose: 
Reads (AVMEME) into D1 (and C(A)) 
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Entry: 
Exit: 

D1,C(A) = (RAVMENE) 
Calls: None 
Uses....... 


Inclusive: C(A),01 


Stk lvls: 9 
History: 
Date Progranner Modification 
10/18/83 B.S. Added Docunentation = 


18.4 AVE=D1 - Update AVMEME Fron D1 or C 
Category: PTRUTL File: SB&I0::NS 


Nane:(S) AVE=D1 - Update AVNENE Fron D1 or C 
Name:(S) AVE=C - Update AVNEME Fron D1 or C 


Purpose: 
Update AVMEME pointer to the value in D1 or C 


Entry: ; 
AVE=D1 : D1 = new value for AVMENE 
AVE=C : CCA) = new value for AVMENE 


Exit: 
C(A)=Di= Value stored into AVMEME 


Calls: None 


Inclusive: CA) 
Stk lvls: 0 
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History: 
Date Prograrner Modification 
10/12/82 «B.S. Added docunentation 


18.5 DO=FIB - Set DO,C(A) to value at STNTD1 
Category: PTRUTL File: SC&DAT::MS 


Nare:(S) DO=FIB - Set DO,C(A) to value at STNTD1 


Purpose: 
Set DO,C(A) to the value stored in STMTD1 


Entry: 
Exit: 
DO,C(R) = (STMTD1) 
Calls: None 
Uses ...ea. 


Inclusive: 00,C(A) 
Stk lvls: 90 
History: 


Date Programner Modification 


11/06/83 BS Added docunentation 
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18.6  RFAD-I 


- Adjust Refs when nen moves to lower addr 


Category: PTRUTL File: SO&FXQ: MS 


Nane:(S) RFAD-I - Adjust Refs when nen moves to lower addr 
Nane:(S) RFAD-- - Adjust Refs when ren moves to lower addr 


Purpose: 


Entry: 


Exit: 


Calls: 


Uses: 


Stack lvls: 2 (PCUPDT) 


Adjusts address references on the FOR/NEXT & GOSUB 
stacks, in FIBs, as well as RAM pointers 

(PCADDR -> TNRAD3) & (CURRST -> AVMENS), when 
appropriate; this is to be used when part of 
progran tenory moves to lower address space 

(hence a negative offset will be added to the 
references) 


RFAO-- entry is used to adjust pointers when the 
file chain in MAIN has noved. 


RFAD-I entry is used to adjust pointers when a 
file chain in an IRAM has moved. 


B(A) = Bgn destination - Bgn source (offset) 
RO contains Begin Source 
2 entry points: 
1) RFAD-- - End Source assuned to be (AVNEMS). 
2) RFAD-I - D1 points to a 5-nibble location 
containing the address of the file 
chain end. 


B(A)=of fset 

RO=Bgn Source 

R1=Bgn Destination 

Carry Clear 

RFAD-I entry point - D1 preserved 

All other entry pts - D1 pts to AVMENS ran loc. 


RFUPD-, RFADS8 
LXFND, CSRC10, CSLC5, FORUPD, RFADS7, BUFFIB, 
PRVADR, I/OFND, RFUPD+, RFAD86 


A, C, D, RO, R1, DO, Di 


70 
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Detail: Zeroes out references on the GOSUB & FOR-NEXT 
stacks uhich point into purged address space. 


Note: Nenory nust be moved BEFORE calling this routine! 
History: 
Date Progranner Modifications 
07/01/82 SM Added docunentation 
12/29/82 SW Updates CURRST -> AVMENS 


18.7 RFUPD+ - Updates a ptr when nen roves 
Category: PTRUTL File: SO&FXQ::NS 


Nane:(S) RFUPD+ - Updates a ptr when nen noves 


Purpose: 
Adds offset to given address reference, if tenory 
novenent to lower address space calls for such adjust- 
nent. Indicates 1f reference points to a part of 
nenory that has just been purged. 


Entry: 
D(S)=0 => menory expansion, else nenory contraction 
RO=Bgn Source for MOVEUN 
Ri=Bgn Destination for MOVEUN 
DO points to RAN location containing address to 
check/update 
D1 points to Ran location containing ptr to end source 
B(A)=offset (bgn destination)-(bgn source) 
This nuriber will be negative! 


Exit: 
B, D, RO-R3, DO & DI are as they were upon entry 
Carry set=> Reference into purged address space. 
A(A)=Bgn Destination 
clr=> Reference has been updated if needed. 
Correct reference in C(R) & in RAM pointed 
to by DO. 
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Calls: none 


Inclusive: A(A), CCA) 
Stk lvls: 0 


History: 
Date Progranner Modification 
07/01/82 S.W. Added docunentation 


18.8 FORUPD - FOR Stack Update 
Category: PTRUTL File: SG&FKQ::MS 


Nanie:(S) FORUPD - FOR Stack Update 


Purpose: 
Updates references on FOR-NEXT stack 


Entry: 
P = 0 
RO contains Begin Source 
D1 points to location, containing End Source 
If want appropriate references zeroed 
have D(S)#O and R1 containing Begin Destination 
B(A) containing offset (Bgn Source)-(Bgn Dest) 


Exit: 

P = 9 
Calls: RFUP++ 
Uses....... 


Inclusive: ACA), CCA), D(A), DO 
Stk lvls: 1 
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History: 


01/28/83 


18.9 RFADI+ 


Progranner Modification 


S.W. Added routine 


- Adjusts Refs When Men Moves=>Higher Rddr 


Category: PTRUTL File: SO&FXQ::MS 


Narie: 


RFADJ+ - Adjusts Refs When Men Moves=>Higher Addr 


Nane:(S) RFAD++ - Adjusts Refs When Men Moves=>Higher Addr 
Nane:(S) RFAD+I - Adjusts Refs When Men Moves=>Higher Addr 


Purpose: 


Entry: 


Exit: 


Calls: 


Uses: 


Adjust address references on the FOR/NEXT & GOSUB 
stacks, in the FIBs, as well as the RAM locations 
PCADDR -> THRAD3 & CURRST -> AVMENS, to reflect 
instances of prograti nenory eypanding into 

higher address space. 


B(RA)= Offset (End Dest. }-(End Source) 
This nunber will be positive! 
3 entry points: 

1) RFADJ+ - Bgn source in ACA). 

2) RFAD++ - Bgn source already in RO. 

3) RFAD+I - D1 pointing to RAN location 
containing pointer to end of 
file chain - entry pt for IRAMS. 
Bgn source already in RO. 


BC(R)=OF FSET; RO=BGN SOURCE; CARRY CLEAR 
C(S )=0 => Sone address on GOSUB or FOR-NEXT 
referenced block that noved 


RFADS8, RFUPD+, RFAD8S 
RFADS?, BUFFIB, LXFND, CSRC10, CSLC5S, FORUPD, 
I/OFND, PRVADR, RFAD86 


A, C, D, DO, DI, RO 
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Stk lvls: 2 (PCUPDT) 


Detail: Needed when progran men noves to higher address space 


Note: Neriory nust be noved BEFORE calling this routine! 
History: 
Date Progranrier Modifications 
07/01/82 Su Added documentation 
12/23/82 S.W Updates CURRST -> AYNENS 


18.10 LDOCSET - Set D=AVMENE; DO=OUTBS 
Category: PTRUTL File: SG&LOC::NS 


Nane:(S) LDCSET - Set D=AVNENE; DO=0UTBS 
Nane: DO=0BS - Set D=RAVNENE; DO=OQUTBS 


Purpose: 
Set D @ AVNEME, DO @ OUTBS 


Entry: 
2 entry points: 
1) LDCSET - Sets D(A) to AVMEME. Sets DO to OUTBS. 
2) DO=0BS - Sets DO to OUTBS. 


Exit: 
All entry points: 
C(A) = (QUTBS) 
DO @ (OUTBS) 
Carry = Entry state 
LDCSET only: 
B(A) = (AVNEME) 7 
Calls: D=AVME | } 
Uses....... 


Exclusive: C(A), DO, D(A) (LOCSET only) 
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Stk lvls: 1 (LOCSET), © (DO=OBS and DO=0UTB) 


Detail: 
The carry must be PRESERVED due to call from AUTO 
History: 
Date Progranner ‘Modification 
07/13/82 «J.P. Modified documentation = 


18.11 DO=AVS - Set DO=address in AVMENS 
Category: PTRUTL File: TI&ERD::MS 


Nane:(S) DO=AVS - Set DO=address in AVNENS 
Nane:(S) DO=PCR - Set DO=address in PCADDR 


Purpose: 
DO=AVS : Set DO=<AVMENS> (also set A(A)=<AVMENS>) 
DO=PCR : Set DO=<PCADDR> (also set A(A)=<PCADDR>) 


Entry: 
No necessary conditions 


Exit: 
DO=AVS : DO=A(R)=<RVMENS> 
DO=PCA : DO=A(A)=<PCADDR> 
Carry not affected. 

Calls: None 

Uses:...... DO, ACA) 

Stk lvls: none 


Detail: 


=DO=AVS DO=(5) =AVMEMS Set DO= start of avail nen. 
GOTO 0=DTO 

=DO=PCA DO=(5) =PCADOR Set DO= addr of xqtn line. 

DO=DTO A=DATO A Set DO= address in DATO. 
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DO=A 
RIN 
History: 
Date Progranrer Modification 
01/05/83 1B Documentation = 


18.12 MEMCKL - Check Avail Menory With, Without Leevay 
Category: PTRUTL File: TI8UTL::MS 


Nane:(S) MEMCKL - Check Avail Menory With, Without Leenay 
Nane: MENCK+ - Check Avail MNernory With, Without Leenay 
Nane: CHKSPC - Check Available Menory With Leenay 
Nane: CHKSPF - Check Available Nerory Without Leeway 
Nane:(S) CHKnen - Check Available Merory Without Leeway 


Purpose: 
See if requested menory anount [+ Leeway] is less than 
or equal to available nenory. Nonzero value of P on 
entry deternines whether leeway w11l be included in 
check for sone entry points. "Insufficient Menory" 
error code 1s returned with carry set if requested 
arlount exceeds the available nenory. 


Entry: 
MENCKL: 
C(A) = Absolute amount nenory to check 
P = 0 iff LEEWAY to be added to ant being checked 
MENCL#: 
B(R) = Absolute anount nenory to check 
P = 0 iff LEEWAY to be added to ant being checked 
CHKSPC: (LEEWAY ALWAYS added; B(A) not used) 
C(A) = Absolute anount menory to check 
P = 0 
CHKSPF: (LEEWAY NEVER added; B(A) not used) 
C(A} = Absolute amount memory to check 


D1 @ Available menory end pointer 
CHKren: (LEEWAY NEVER added; B(A) not used) 


18-11 


HP-71 Softis 
Pointer Uti 


Exit: 

Carry 
B(A 
A(A 
D1 
CCAR 
P 

Carry 
B(A 
C(A 
P 


Calls: 


Inclusi 
Stk lvls 
Algorith 


NEMCKL: 
MENCL+: 


CHKSPC: 


CHKSPF: 
Chknen: 


History: 


07/04/8 
09/11/8 
10/24/8 


are IDS - Entry Point and Poll Interfaces 
lities 


Available nenory end 
Absolute anount nenory to check 


om 


Clear: Enough nenor 
) = Anount to check (MENCKL, MEMCL+ only) 
) Available Menory start 


u Bui 


AVNENS 
) Available nenory MINUS requested anount 
(MINUS Leeway if also checked) 
= 0 
set: Not enough nenory 
) = Rrount to check (MENCKL, MENCL+ only) 
) = eMEN 
= 0 
None 


ve: A(A),C(A),D1,B(A) (MEMCKL, MENCL+ only) 
: 90 
nt 


B <-- Requested Arnount 
C <-- B 
If P=0 
C <-- Leeway 
Rrount = Req Anount + Leeuay 
If overflow ---> Error Return 
D1 <-- AVMENE 
A <-- Available Mertory End 
Subtract Req Anount fron Available Memory End 
If negative --> Error Return 
D1 <-- AVNENS 
A <-- Available Menory Start 
Subtract Avail Memory start fron subtracted anount 
If negative, then 
Error Return [ € <-- eMEn J 
else 
Return carry clear 


Progranner Modification 
2 JP Modified docurentation 
2 JP Added Leeway check code 
3 FH Updated docunentation 
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18.13 CLCOLL - 


Category: 
Nane: CLCOLL 
Nalte: SYCOLL 
Nane:(S) OBCOLL 
Narie: BBCOLL 
Narie: OBPRD 
Nare: OBLCMP 
Narie: INBS=C 
Narie: 01=IBS 
Nane:(S) DI@AVS 
Nane: AVS=00 
Narie: AVS=C 
Purpose: 


- Entry Point and Poll Interfaces 


Collapse Buffer Pointers to CLCSTK 
PTRUTL File: TI8UTL::MS 


- Collapse Buffer Pointers to CLCSTK 
- Collapse Buffer Pointers to SYSEN 
- Collapse Output Buffer 

- Collapse Input, Output Buffer Pointers 
- Read Output Buffer Pointers 

- Compute Output Buffer Length 

- Set INBS to the Value in C 

- Set D1 to Start of Input Buffer 

- Set D1 to Available Menory Start 

- Set AVMENS to Value in DO 

~ Set AVNENS to Value in C 


Manipulate buffer pointers. 


CLCOLL: 
Collapse SYSEN, OUTBS, and AVMEMS to CLCSTK. 


SYCOLL: 
Collapse OUTBS and AVMENS to SYSEN. 


OBCOLL: 
Collapse AVMEMS to OUTBS (collapse output buffer). 


BBCOLL: 
Collapse INBS, QUTBS, and AVNEMS to SYSEN (collapse 
both input and output buffers). 


OBPRD: 


Read output buffer pointers QUTBS and AVMEMS into C(A), 
ACA). 
OBLCMP: 
Conpute length of output buffer = (AVNEMS) - (QUTBS). 


INBS=C: 


Set INBS to the value in C. (72, 
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D1=IBS: 
Set D1 to start of input buffer. 


DI@AYS: 
Set D1 to AVMENS, ACA) to (RVMENS). 


AVS=DO: 
Set AVMENS to value of DO. 


AVS=C: 
Set AVMENS to the value in C(A). 


Entry: 
No entry conditions assured unless explicitly stated belou. 


INBS=C: 
C(A) = Value to store in INBS. 
AVS=C: 
C(A) = Value to store in AVMENS. 
Exit: 
CLCOLL: 
C(A) = (CLKSTK) 
D4 = § beyond AVMENS 
Carry = Clear 
SYCOLL: 
C(A) = (SYSEN) 
D1 = § beyond AVMENS 
Carry = Clear 
OBCOLL: 
C(A) = (QUTBS) 
D1 = § beyond AVNENS 
Carry = Clear 
BBCOLL: 
C(A) = (SYSEN) 
D1 = INBS 
Carry = Clear 
OBPRD: 
ACA) = (AYNENS) 
C(A) = (OUTBS) 
D1 @ AVNMENS 
Carry = Clear 
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OBLCHP: 
ACA) 
C(A) 
B14 
Carry 


INBS=C: 
C(A) 
D1 
Carry 


DI=IBS: 
D1 
C(A) 


(OUTBS) 
AVNENS 
Clear 


“BD is oe 


INBS 
Clear 


Length of output buffer -- (AVMEMS) - (QUTBS) 


Entry state 


@ Start of input buffer 


= INBS 


Carry preserved 


AVS=00: 
C(R) 
Carry 

AVS=C: 
C(R) 
DO 
Carry 


Calls: 


Inclusive: 


Stk lvls: 


History: 


09/16/82 
10/12/82 


62/10/83 


AVMNEMS 
Clear 


wat 


= RVMENS 


@ C(A) entry value 


= Clear 


INITPT (CLCOLL,SYCOLL,OBCOLL only) 


Oo 


(CLCOLL, SYCOLL, OBCOLL, BBCOLL, 
INBS=C,D1=IBS) 

(DI@AVS) 

(OBPRD, OBLCNP) 

(AVS=D0) 

(AVS=C) 


© (CLCOLL,SYCOLL, OBCOLL, OBPRD, INBS=C, 
DI=IBS, DI@AVS , AVS=DO, AVS=C) 


1 (OBLCNP} 
2 (BBCOLL) 


Progranner 


Modification 
Designed and coded. 
Added CLCOLL, SYCOLL, BBCOLL, INBS=C, 
D1=IBS, AVS=D0, AVS=C 
Renoved IBPRD, OBSKIP, OBBACK 


18-15 





HP-71 Software IDS - Entry Point and Poll Interfaces 
Pointer Utilities 


18-16 


HP-71 Software IDS 
Save Stack Utilities 


Entry Point and Poll Interfaces 


+-------~------------------- +--+ eee $-----+------------- + 
| | | 
| SAYVSTK - Save Stack Utilities |} CHAPTER 19 | 
| | 
t------------------- ++ ee eee $-------------- 22+ + 
19.1 SVINFO - Save/Read File Infornation 
Category: SAVSTK File: JP&EXC::nS 

Nane:(S) SVINFO - Save/Read File Infornation 

Narie:(S) SVINF+ - Save/Read File Infornation 

Nane:(S) RDINFQ - Read Source/Dest File Information 

Narie: RDINFS - Read Source File Info 

Nate: RDINFD - Read Dest File Info 

Purpose: 


These entry points are used by COPY, TRANSFORN, 
RUN, and CHRIN to save and access infornation on 
their source/destination files. The info is 
stored in an area on the SAVSTK, which nust be 
allocated using ALINFO beforehand. SVINFO and 
SVINF+ write the file info; RDINFO, RDINFS, and 
RDINFD read the info back. 


Entry: 
All: File Info save area allocated on SAVSTK 


SVINFQ: 

A 7 

RO( 3-0) 

D(A) 
D(0) 
0(4-1) 


$3 


WoO 


Filenane (first 8 chars) 

Last 2 chars of filenane 

Device infornation 

Device code 

Device spec (Port, extender#, etc) 


If PORT: 
D(1) = Extendert 
D(2) = PORTH 
If HPIL: 
D(3-1) = Device address 
0(4) = Device characterization 
=> Save info in source file position 
=> Save info in dest file position | 


SVINF+: Sane as SVINFO, except: 
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D(S) = Device code (position returned by FSPECx) 
D(3-0) = Device spec shifted right (in position 
returned by FPECx) 
RDINFO: 
$3 0 if Source file info to be read 


1 aif Dest file info to be read 


RDINFS, RDINFD: 


None. 
Exit: 
$4 = © (SVINFO, SVINF+) 
= 1  (RDINFO, RDINFS, RDINFD) 
$3 = 0 (RDINFS) 
= 1 (RDBINFD) 


Entry condition (RDINFO) 


SVINFO, SVINF+: Information saved in appropriate spot 
A = Entry Condition 

RO(3-O)= Entry Condition 

D(R) = Device information (see SVINFO entry) 


RDINFO: Info on selected file 


A = Filenane (first 8 chars) 

RO = Last 2 chars of filenane 

D(A) = Device information (see SVINFO entry) 
C(R) = D(A) 


RDINFS: Sane as RDINFO; Source infornation 
RDINFD: Same as RDINFO; Destination information 


Calls: None. 


Inclusive: sDEST(S3), sREADI(S4),A,C,RO,D1, 
DCA) (RDINFO, RDINFD, RDINFS), 
D (SVINF +) 


Stk lvls: 0 


Detail: 
Start addr Size Infornation 
SAVSTK-50 20 Destination Filenare 
SAVSTK-30 5 Destination Device Infornation 
. SAYSTK-25 20 Source Filenane 
SAVSTK- 5 5 Source Device Information 


History: 
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Date Progranner Modification 


07/04/82 IP Nodified docurnentation 


19.2 SALLOC - Allocate Arbitrary Save Stack Block 
Category: SAVSTK File: TI&UTL::MS 


Nane:(S) SALLOC - Allocate Arbitrary Save Stack Block 
Nane: ALINFO - Allocate File Info Save Stack Block 


Purpose; 
Rllocates a block of the specified size on the Save 
Stack (SAVSTK). SALLOC allocates an arbitrary size, 
and ALINFO allocates the ariount for the filespec info 
area used by COPY and TRANSFORM. Available merory is 
checked with or without LEEWAY, depending on the entry 
conditions. 


Entry: 
P = 0 if menory check to be perfortied with LEEWAY 
# 0 if menory check to be perforned without LEEWAY 


SALLOC: 

C(A) = Nurber of nibs to allocate 
Exit: 

P = 0 

B(A) = Nunber of nibs allocated 


Carry clear: 

Rilocation was successful 

AVMENE updated 

D1 @ Start of newly created Save Area 
C=00 on entry. 


Carry set: 
Allocation failed due to insufficient nenory 
C(3-0) = Error code (=eNEM) 


Calls: NENCKL, MOVEU3 
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Exclusive: A(A),B(A),C(A), 01 
Inclusive: A,  6(A),C(A),01 


Stk lvls: 2 


Detail: If sufficient nenory to allocate 
Save DO on stack 
Nove menory between SAVSTK --> AVNENE 
Update RVMENE 
Restore DO 
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to 2 - + non nnn nnn ne -eee----- ---- - -- $ -- + + + - + 


| 
| SAVUTL - Save Utilities CHAPTER 20 = | 


+-——— + 


ton nnn nen ne nen nn ne ne ee nn ne eon ee pe eee ee eee + 


20.1 STRIRS - Restore Status 
Category: SAVUTL File: FH&TFM: mS 


Narie:(S) STATRS - Restore Status 
Nane: STRTR+ - Restore Status 


Purpose: 
Restore status flags $11 - SO and S13 fron area saved 
by STATSV. STARTR+ nerges specified bits from current 
status setting with restored S11 - SO. 


Entry: 
D1 @ Save area written by STRTSV 
STATR+: 

C(X) = Bits corresponding to status flags to be pre- 
served fron current status setting during 
restore. 

Exit: 


$13, S11 - SO restored (merged u/input bits if STATR+) 
C(X) = Old S11 - SO 
Carry clear 


Calls: STRTR+ calis STATRS which has no calls 


Inclusive: C(R), $13, S11-SO, R(A) for STRTR+ only 
Stk lvis: © (STATRS), 1 (STATR+) 


History: 
Date Progranner Modification 
06/15/82 FH Designed and coded. 
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20.2 STATSV - Save Status $13, $11 - SO 
Category: SAVUTL File: FHATFMN:: mS 


Narie:(S) STATSV - Save Status $13, $11 - $0 


Purpose: 
Save status flags $13, S11 - SO in designated spot. 


Entry: 
D1 @ Start of 4-nib save area 


Exit: 
Save area written (see detail below) 
Carry clear 
Calls: None 
Exclusive: C(A) 
Inclusive: C(A) 


Stk lvls: 0 


Detail: 
Save area: Nibs Contents 
2-0 Status Si1 - SO 
3 0 is $13 clear, 1 if set 
History: 
Date Programmer Modification 


06/15/82 FH Designed and coded. 
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20.3. RSTK<R - Restore RSTK Level(s) Fron RSTKBF Buffer 
Category: SAVUTL File: TI8UTL:: NS 


Name:(S) RSTK<R - Restore RSTK Level(s) Fron RSTKBF Buffer 


Purpose: 
Restore Return Stack Level(s) fron circular buffer. 
Levels are saved and restored on a last-in-first-out 
(LIFO) basis (see R<RSTK for save routine). The buffer 
holds up to 16 levels. No nore than 6 levels should be 
saved or retored in one call, however, since the return 
to the caller of RSTK<R requires one level. 


Entry: 
Pp = n- 1, where nis nunber of levels to restore 
(not counting return to caller of R<RSTK) 
Exit: 
Carry = Clear 
P = Q 
DO @ RSTKBp RAM location 
Calls: RSTK>1 
Uses....... 


Inclusive: C(A), C(S), BCR), DO 
Stk lvls: nm (n levels are RODED to the stack on return) 


NOTE: 
The addresses stored in the buffer are NOT updated by 
RFADJ. 


Detail: 
The position in the circular buffer is indicated by 
the nibble =RSTKBp in Systen RAM, which points to the 
last position written. 


During the routine: 

C(S) = Level counter (fron P on entry) 

P = Circular buffer position (fron =RSTKBp) 
These counters are set up by routine RSTK>1, which is 
shared by RSTK<R and R<RSTK. 


History: 
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Date Progranner Modification 
09/14/82 FH Designed and coded 
02/24/83 FH Expanded buffer fron 8 to 16 levels 


20.4 R<RSTK - Save RSTK Level(s) Into RSTKBF Buffer 
Category: SAVUTL File: TI&UTL::M§ 


Nane:(S) R<RSTK - Save RSTK Level(s) Into RSTKBF Buffer 


Purpose: 
Save Return Stack Level(s) in circular buffer. Levels 
are saved and restored on a last-in-first-out (LIFO) 
basis (see RSTK<R for restore routine). The buffer nay 
hold up to 16 levels. No more than 6 levels should be 
saved or retored in one call, however, since the return 
to the caller of R<RSTK requires one level. 


Entry: 
P = n- 1, where n is nunber of levels to save 
(not counting return to caller of R<RSTK, 
which 1s not saved) 
Exit: 
Carry = Clear 
P = 0 
DO @ RSTKBp RAM location 
Calls: RSTK>1 
Uses....... 


Inclusive: BCA), CCA), C(S), DO (R<RSTK) 
Stk lvls: -n (n levels are REMOVED fron stack on return) 
NOTE: 
' ‘The addresses stored in the buffer are NOT updated by 
RFADJ. 


Detail: 
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The position in the circular buffer is indicated by the 
nibble =RSTKBp in Systen RAM, which points to the last 
position written, 


During the routine: 

C(S) = Level counter (from P on entry) 

Pp = Circular buffer position (fron =RSTKBp) 
These counters are set up by routine RSTK>1, which is 
shared by RSTK<R and R<RSTK, 


History: 

Date Progranner Modification 
03/14/82 FH Designed and coded. 
02/24/83 FH Expanded to 16 use levels 


20.5  SNAPRS - Restore CPU Snapshot Fron SNAPSV Buffer 


Nane: 
Nane: 


Category: SAVUTL File: TI8UTL::MS 


(S) SNAPRS - Restore CPU Snapshot From SNAPSV Buffer 
(S) SNAPR* - Restore CPU Snapshot From Any Buffer 


Purpose: 


Restore registers saved by SNAPSV (A, D, DO, D1) and 
return saved stack level for caller to push onto stack. 


Entry: 
SNAPRS: 
None. 
SNAPR*: 
01 @ Starting address of save buffer + 42 decinal 
Exit: 
DO = Value saved by last SNAPSV call. 
D1 = Value saved by last SNAPSYV call. 
A = Value saved by last SNAPSV call. o 
B(A) = Stack level saved by last SNAPSV call. ey 
C(A) = Stack level saved by last SNAPSV call. 
D = Value saved by last SNAPSV call. 
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Carry = Clear. 


Calls: None. 


Inclusive: A, B(R), C(A), D, DO, D1 
Stk lvls: 0 
Detail: 


SNAPSHOT SAVE BUFFER LAYOUT 


Offset 
into 
Buf fer Nibs Register 
0 16 A 
16 16 D 
32 5 D1 
37 5 DO 
42 5 Stack level 
History: 
Date Progranner Modification 
09/10/82 FH Designed and coded. 


20.6  SNAPSV - Save Snapshot of CPU in SNAPSV Buffer 
Category: SAVUTL File: TI&8UTL:: MS 


Nane:(S) SNAPSV - Save Snapshot of CPU in SNAPSV Buffer 
Nane; SNAPLC - Save Snapshot of CPU in Any Buffer 


Purpose: 
Save linited snapshot of CPU (1 stack level, A,D,DO,D1) 
to allow a routine to function without disturbing the 
registers of its caller. Useful for tight situations. 
Snapshot 1s saved in systen RAN, and is restored by the 
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routine SNAPRS. 


SNAPSV uses dedicated RAM locations for storage. 
SNAPLC uses a “local” RAM location for storage. 


Entry: 
SNAP SY 
C(A) = Stack level to be saved; popped by caller of 
SNAPSY. 
SNAPLC 
D1 @ Starting address of save buffer + 42 decinal 
C(A) = Anything you uant to save. 
Exit: 
B(A) = C{A) on entry 
C(A) @ Save area start address + 42 decinal 
Carry = Clear. 
Calls: None. 
Uses....... 


Inclusive: B(R), C(A) 
Stk lvls: 0 
Detail: 


SNAPSHOT SAVE BUFFER LAYOUT 


Offset 
into 
Buf fer Nibs Register 
0 16 A 
16 16 D 
32 5 D1 
a7 : 5 DO 
42 5 Stack level 
History: 
Date Progranner Modification 
03/10/82 FH Designed and coded. 
11/15/82 mB Added SNAPLC entry 
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SRLEAS - Release Arbitrary Block Fron Save Stack 





Category: SAVUTL File: TI8UTL::MS 


Nane:(S) SRLERS - Release Arbitrary Block Fron Save Stack 
Narie: RLINFO - Release File Info Block Fron Save Stack 


Purpose: 
Release block of specified size fron the Save Stack. 
SRLEAS releases a block of arbitrary size, while RLINFO 
releases a block the size of the filespec info area 
used by COPY and TRANSFORM. 


Entry: 
SRLERS: 
C(R) = Nunber of nibs to release. 
RLINFO: 
P = 0 
Exit: 
Pp = 0 
DO @ Old Av men end 
01 @ New Av nen end 
Carry = Clear 


Calls: NOVED3 (RLINFO falls into SRLEAS) 


Exclusive: A(A),B(A),C(A), 00, D1 
Inclusive: A,  B(A),C(R), 00,01 


Stk lvls: 0 


Detail: 





Move Merory Down paraneters: 


End Dest 
End Source 
Length 


(SAVSTK) (D1) 
(SAVSTK) - release (DO) 
((SAVSTK) - release) - (AVMENE) (3 
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$----- +--+ +--+ ++ ee eee 


+ 
| | 
| STOCNP - Statement Deconpile | CHAPTER 21 | 
| 
+ 


$e ee we wn en a ee eee eee 


21.1 DSTRDC - Deconpiles Variable Declarations 
Category: STDCMP File: SG&LOC::NS 


Nane:(S) DSTRDC - Deconpiles Variable Declarations 
Narie: DECDC - Deconpiles Variable Declarations 


Purpose: Deconpiles the following statenents: 
INTEGER, SHORT, REAL, DIN, DESTROY, NEXT 


Entry: 2 entry points: 
D(R) contains end of available nenory 
P= 0 
D1 points into token strean 
DO points into ascii output buffer 
1) DSTRDC - for statenents with a possible 
keyword, eg TRACE and DESTROY. 
2) NXTDC 
DECDC - For variable list, eg 
INTEGER, SHORT, REAL, DIN, NEXT 


Exit: A(B)=EQL TOKEN 
via OUTELA 


Calls: VARDC, ARYDC, OUTBYT, GTEXT+, EOLXC* 


Uses: A, C, $5,S86,S89, D1,D0 
A-C, RO-R2, SO0,S3,$8,S810,S11 -- EXPRDC 


Stk lvls: 6 
History: 

Date Progranner Modifications 
08/18/82 Su Added docunentation 
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21.2 = PRNTDC 


~ Expression List Deconpile 


Category: STDCMP File: SG&LOC::NS 


Narie:(S) PRNTDC - Expression List Deconpile 
Narie:(S) DISPDC - Expression List Deconpile 
Narie:(S) FIXDC - Expression List Deconpile 
Nane:(S) DROPDC - Expression List Deconpile 


Purpose: 


Entry: 


Calls: 


Uses; 


Detail: 


Decorpiles PRINT, DISP, POKE, FIX, SCI, ENG, FLAG, 
DELAY, WAIT, INPUT, READ, statenents 


P=0 
A(B) contains token pointed to by D1 
D(R) contains available nenory end (AVNEME) 
D1 = input pointer 
DO output pointer 
PRNTDC - Entry FOR PRINT, DISP 

Allows USING to precede expression list 
FIXDC - Entry FOR FIX, SCI, & ENG 

Must be at least 1 expression in list 
DROPDC - Entry for DROP, ADD 

Optional expression list (none necessary) 
INPTDC - Entry for INPUT 
READDC - Entry for READ, READY 
SFLGDC - Entry for SFLAG, CFLAG 

Deconpiles ALL, MATH, or expression list 


OUTITK, EXPRDC, GTEXT+, EQLXC*, LINHDC, -EXPR-, 
CONTST 


A-C, D1,D0, $9 
A~C, D1,00, RO-R2, S0,S83,S8,$10,S11 -- EXPRDC 


WILL WORK FOR ANY STATEMENT WHICH COMPILES TO A LIST 
OF EXPRESSIONS DELIMITED BY COMMA OR SEMI-COLON 
TOKENS. 
2 ENTRY POINTS: 
1) PRNTDC - FOR STATEMENTS WHICH OPTIONALLY ALLOW 
A NULL LIST. 
2) DLAYDC - OTHERWISE 


NOTE: tEND, tTAB, or \#\ MAY NOT BE USED AS A ’KLUDGE’ TOKEN 
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BY ANY ROUTINES THAT USE THIS ROUTINE. 


History: 


Stk lvls: 6 
Date Prograriner Modifications 
08/18/82 = S.W. Added docunentation 


ONDC - ON..GOTO,..GOSUB,..RESTORE Deconpile 
Category: STDCMP File: SG&LDC::nS 


Nare: ONDC ~ ON..GOTO,..GOSUB,..RESTORE Deconpile 
Nane:(S) GOTODC - GOTO Deconpile 
Narie:(S) ONDC20 - Keyword and Opt Line#/Label Deconpile 


Purpose: 


ONDC deconpiles ON..GOTO,.. GOSUB,..RESTORE statenents 


GOTODC entry deconpiles an optional list of line numbers/ 
labels. It 1s used by GOTO, GOSUB, and RESTORE deconpile 
in the nainfrane. 


ONDC20 entry deconpiles a keyword within leading and 
trailing blanks, then deconpiles an optional list of line 
nunbers/labels. 


Entry: 


D(A) contains available nenory end (AVNENE) 

Di = points into token strean 

Mh output pointer 

P= 0 

Entry points: 

QNDC = =- DT points to tERROR, tTIMER, or <expr> 

GOTODC - D1 points to start of optional list of 
line nunbers/labels. 

ONDC20 - D1 points at keyword token preceding 
optional list of line nunbers/labels 
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Exit: Through PRNTDC 
Calls: EXPRDC, LINADC, LABLDC , OUTBYT, GTXT++, ETMRDC 
USCS ele toed 


Exclusive: A-C, D1,00, $5,S9 (ONDC only) 
Inclusive: A-C, RO-R2, D1,D0, $0,S3,S8,S10,S11 - EXPRDC 


Stk lvls: 6 


Detail: 
ON ERROR (GOTO|GOSUB) (<lineno> | <label> ) 
ON TIMER #<tirier no>, <#secs> (GOTO|GOSUB) 
(<lineno> | <label>) 
ON <exp> GOTO <lineno>|<label> [,<lineno>|<label>] 


GOSUB 
RESTORE 
History: 
Date Prograntier Modification 
07/13/82 J.P Nodified docunentation 
08/29/83 SS. Updated docunentation 


21.4 RENMDC - PURGE, COPY Deconpile 
Category: STDCMP File: SG&LDC::MS 


Nane: RENMDC - PURGE, COPY Deconpile 
Nane:(S) PURGDC - PURGE, COPY Decorpile 
Narie: COPYDC - PURGE, COPY Deconpile 


Purpose: Decompiles RENAME, PURGE, PRIVATE, COPY 
Entry: P= 0 

D1 past begin BASIC token 

DO output file 

D(A) contains available nenory end (AVNENE) 


Exit: via OUTEL1 
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Calls: FILDC, GIEXT+, EOLXC*, BLNKCK 


Uses: A-C, D01,D0, R1,R2, $8,S9 
A-C, D1,D0, RO-R2, SO,S3,$8,810,S11 -- EXPRDC 


Stk lvls: 6 


Detail: NAME <file name> 
PURGE <file specifier>|ALL}keys 
RENAME [<file specifier>|keys] TO <file nane>| keys 
COPY [ <file spec> | KEYS | CARD | PCRD } [ TO 
{ <file spec> | KEYS | CARD | PCRD ] ] 


Note: The TO clause 1s OPTIONAL in a COPY statenent 
In RENANE, the TO 1s ALWAYS there 


<destination file> 1s optional in COPY 
This requires an EQL Check to be done after <file2> 
This does not affect RENAME Deconpile 


History: 
Date Progranner Modifications 
08/18/82 SLU. Added docunentation 
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$e nnn nen nn nn wn nen ne nn nn nn nn nnn ne nnn penn nn nnn rrr + 


| STEXEC - Statenent Execute CHAPTER 22 | 


-_—— — + 


on nnn nn nn ne nn nnn nn nn nn nn nnn enn nn en nnn nn tenn nner errr + 


22.1. RSNMNT - Perforn Variable Assignrient 
Category: STEXEC File: AB&ASN:: MS 


Nane:(S) ASNMNT - Perforn Variable Assignnent 
Nane: ASNSTO - Perforn Variable Assignnent 


Purpose: 
Evaluate expression and assign it to a variable. 
ASNNNT evaluates (i.e., locates) destination variable. 
ASNSTO does not (and requires proper entry conditions 
for DEST subroutine). 


Entry: 
ASNMNT - DO @ Destination Variable token. 
ASNSTO - DO 1 byte before start of expression, 
Entry conditions for DEST. 
$15 set if trace is desired. 
Exit: Top 16 nibbles of Mathstack in A, 
DO @ end of Statenent, 
01 @ top of Mathstack. 
Calls: DEST, EXPEX-, SVTRC. All STORE calls (belon) 
Uses: Everything. 
Stk lvls: 6 
History: SA and SC 


Date Progranier Modification 


05/26/82 SA Personnel change 
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22.2 STORE 


- Store Fron Stack To Variable 


Category: STEXEC File: AB&ASN::MS 


Nane:(S) STORE - Store Fron Stack To Variable 
Purpose: Store nunber or string in knoun register. 
Entry: Exit conditions of DEST 
D1 = (MTHSTK) = true top of Mathstack, 
Top 16 nibbles of Mathstack in A. 
Statenent scratch has information set up by 
DEST. 
S-R1-2= Address points at the variable nane 
This address is for TRACE to deconpile the 
variable nane. If the content of S-R1-2 1s 
zero, the assignent will not be traced. 
Exit: Preserves DO, 
D1 @ top of Nathstack, 
R3 contains value stored in variable location 
{as opposed to the value in the RES register) 
Calls: CPOLL, Create, INTGR, RESTOR, SHRT, STRASN. 
Uses: Everything. 
Stk lvls: 5 (TRACEA and CREATE) 
History: 
Date Progranner Modifications 
03/14/83 SW R3 contains value stored 


22-2 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Staterrent Execute 


22.3. ONERR - Execute branch of OW TIMER/ERROR 


Narte: 
Nane: 


Category: STEXEC File: JP&EXC::NS 


ONERR - Execute branch of ON TINER/ERROR 
(S) ONTIMR - Execute branch of ON TIMER/ERROR 


Purpose: 


Process ON TINER execution 
Process ON ERROR execution 


Indicates code needed to process any statenent with 
GOTO/GOSUB that interrupts progran execution and wants 
TRACE. This code must be duplicated 


The rain difference is sXWORD should be set before the 

call to GOTO+. This guarantees that all line# references 
will be searched for, incase the reference was never cleare?? 
due to the LEX file being missing when clearing references. 


Exariple statement: ON INTR GOTO|GOSUB <stnt id> 


Entry: 


Exit: 


C @ GOTO {| GOSUB of statenent 
For ONTINR: RSTK = Next Stnt Address 

sONTMR = 1 (S6) 

sQNERR = 0 (S4) 

A(S) = Tiner 4 
Duplicate this code for 
External Statenent u/GOTO or GOSUB with interupt 
Make sure sxWORD is set before junping to GOTO+ 
This code will TRACE properly 


Through GOTO+ to execute GOTO | GOSUB 

RSTK = Next Strut address 

sEXTGS = 1 

If ONTINER: sONTAR 
R3(S) 

If ONERROR: sONERR 


: 
Tinert 
1 


Calls: TRFCK-, TRFROM, UPDPC, TRTO*, RAC TMI, LNSKP- 
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sGOSUB 
sONTMR 
sEXTGS 
sONERR 
sXWORD 


RACTAI 
Stk lvls: 
Detail: 


ONERR: 


ONTINAR: 


ONGTGB: 


History: 


07/04/82 
09/28/82 
11/28/82 
12/08/82 
02/11/83 


$3 = GOSUB flag 


S6 = ON TIMER staterent 

$5 = External Entry flag for GOTO+ 

S4 = ON ERROR staterient 

S9 = XWORD flag for searching for GOT0s 

RSTK = Return Address 1f GOSUB & ON TIMER 

R2 = Position @ <lineno> | <label> in stut 
Saved 00 

R3(S)= Tiner# (af ON TIMER) 

A(S) = Tiner# (if ON TIMER) 


uses RO,R1,R3, 


<= 7? (statenent execute) 


Clear status 

Set ON ERROR flag 

Conpute next statenent return addr(LNSKP-) 
Save on stack 

Set External Entry flag (sEXTGS) 
Set DO = C (position within ON statenent) 
Read and skip over token 

Save DO in R2 

Save Tiner# in R3(S) 

Set GOSUB flag 


If GOTO 
Clear GOSUB flag 
If ON TIMER 
Reactivate tiner (RACTNI) 
Resave tiner# (R3(S)) 
If trace needed (TRFCK-) 
Trace FROM linet (TRFRON) 
Restore DO 
Update PC address to point to ON stnt 
If trace needed (TRFCK-) 
Trace TO line# (TRTO* ) 
Restore DO 
Clear XWORD flag (sXWORD) 


go execute GOTO | GOSUB of statenent 


Progranner Modification 

JP Modified docunentation 

JP Changed ON TIMER inplenentation 
JP Changed interface to GOT0/GOSUB 
JP Fixed Tiner# destroy by TRACE 
JP Clear sxWORD before GOTO+ junp 
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03/08/83 JP Rerioved sEXTGS set, clear @ ONERR 

03/31/83 IP Corpute Rtnadr for ON ERROR 

03/31/83 JP Aluays update PCADRR @ ON stnt 
22.4 END - END, END ALL, END SUB, END DEF Statenents 


Category: STEXEC File: JP&SYS::MS 


Narie: END - END, END ALL, END SUB, END DEF Statenents 
Nane:(S) ENDALL External Stnt entry to perform END ALL 
Narie:(S) ENDBIN End Binary Progran or Subprogran 


5 


Narie: ENDIO =- «STOP Statenent Execute 

Narie: END20 - END SUB reentry 

Narie: STOP - STOP Staternent Execute 

Narie: EXITRN - Clear status, return to BASIC loop 


Purpose: 
These entry points deal with terminating execution 
of in the current environnent due to an explicit 
conmand such as END or STOP, or a SST past the last 
statenent in the program. The running progran nay 
be BASIC or Binary. 


END checks for ALL token 
checks for ENDSUB/ENDDEF 
Returns to BASIC loop allowing exceptions to be 
checked 


S2 set will cause ending of execution so that: 
Exceptions not checked 
Progran not suspended, CNTADR not updated 


All entries but ENDALL collapse ONLY ONE level 
ENDALL collapses to one level 


Entry: 
END: DO past END token 
Checks for ALL token 
STOP: 
ENDBIN: 
END10: (Checks if END SUB or END DEF) 
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(BASIC Loop entry if @ program scope end) 
(SST @ Progran End entry) 


sSST (S2=1) if non-exception/nonprogran exit 
(Clears PgwRun ($13=0), Clears S0-S11) 
(Returns to BASIC loop without checking 
exceptions) 
(Prevents update of Cont Addr [CNTADR] 
and SUSPend of progran) 

Collapse stacks one level ONLY 


END SUB reentry 
sSST assuned cleared (S2=0) 
If S2=1 acts like END1O entry 


External Statenent entry 

Sets sSST (S2=1) to avoid CNTADR update and 
prograti suspension 

Avoids checking of exceptions in BASIC loop 

Clean-up for TRANSFORM current file 

Clean-up for PURGE current file 

Collapse stacks down to ONE level 


All entries, but ENDALL, collapse ONLY ONE level 


Exit: 
If END 


If END 
If END 


--~> sENDx (S1=1) for BASIC loop return 
Prevents SUSPend of progran 
Through NXTST1 to avoid sENDx clearing 
Returns to BASIC loop so exceptions 
are checked 
NoCont (S14=1) if within progran 
Causes BASIC loop execution to stop 
DEF or irplied END DEF 
---> Through ENDDEF 
SUB or inplied END SUB 
---> Through ENDSB- 


If SST @ PRGNEN or non exception check END desired 


If non 


Calls: 


Uses: R- 


---> Through BSCEXT with PgrRun (S13) clear 
Exceptions are not checked 
Prevents CNTADR update and prgn SUSPension 


BASIC progran 
---> Through EXITRN 
Clears SO-S11; exit BASIC loop (BSCEXT) 
Exceptions are not checked 
CNTADR not updated, progran not SUSPended 
CLRSTK, CLOSEA, CLPSTK, GETSTC, SUBCHK 


D,P, D1, DO, CNTADR, sENDx ($1), sSST (S2), 
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RO,R2,ALRM (+36), PNDALM (+1), STNTD1, FISUSP, PgnRun 
Stk lvls: 6 


Algorithn: 
If END ALL 
goto ENDRL1: 
ENDBIN: 
END1O: If END DEF | END SUB 
go process appropriate statenent 
END20: Clear addresses, one level of stacks (CLRSTK) 


END30: Close all open files (CLOSEA) 
If non BASIC file (GETSTC) 
go Clear status and Exit BASIC loop (BSCEXT) 

If non progrannatic END desired (sSST) 


Clear PgnRun to prevent SUSPend 
go Clear status and Exit BASIC loop (BSCEXT) 


else 
If prograr running 
Set Don’t Continue flag (NoCont) 
Set END Execute flag (sENDx ) 


Golong to end of BASIC loop through 
NXTST1 to avoid sENDx clearing 


ENDALL:Set sSST flag 
ENDAL1:Collaspe stacks to one level (CLPSTK) 
goto ENDX 


Note: 


The sENDx flag was originally used to distanquished END fron 
all other statenents/conditions that stop the BASIC loop exec. 
If a progran had been running, 

this flag alloed CURRL to be updated to the END statenent, 
but prevented the SUSP annunciator fron lighting and the 
CONTINUE address fron being updated. 


This sSST flag was used to avoid any checking of a progran 
running by returning to a different place in the BASIC loop, 
since CURRL could not be updated in situations like SST past 
the progran end. 


When the decision was nade to update CURRL only uhen 

SUSPending the use of tuo flags 1s not that different. 

A "normal" END statenent returns through NXTSTN to the BASIC 
loop. This causes exceptions to be checked before execution is 
stopped if a progran was running. If fron the keyboard, 
execution continues. If sSST 1s set (fron SST past 

the end of the progran or for TRANSFORMing the current file...) 
then the BASIC loop is reentered below the exception checking. 
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In either case, neither CNTADR 1s updated, nor SUSP lit. 


History: 
Date Progranner Modification 
03/08/83 JP STOP === END SUB, END DEF 
03/17/83 Jp Packed D1=(5) CALSTK 
04/25/83 JP CLRST thru EXITRN if sSST 
05/03/83 JP Clear PgnRun before EXITRN 
05/17/83 JP Check ENDSUB/DEF if SST 

at end of progran (PRGNEN) 
06/05/83 JP END10 1s Binary progran return 
06/05/83 JP If nonBASIC prgn---> EXITRN 
06/05/83 JP ENDBIN entry point added 

22.5 GOTO - Statenent Execution 


Category: STEXEC File: JP&SYS::MS 


Nane:(S) GOTO - Statenent Execution 
Name: (S) GOSUB - Statenent Execution 
Nane: RESTOR - Statenent Execution 
Purpose: 


Execution of GOTO | GOSUB 

Partial execution of ON, ON ERROR, ON TIMER 
Partial execution of RESTORE 

Partial execution of XWORD wath GOTO/GOSUB within 


Entry: 


GOSUB: DO past GOSUB token (Sets sGOSUB $3=1) 

GOTO: DO past GOTO token (Sets sGOSUB $3=0) 

RESTOR: DO past RESTORE token (Sets $10=1) 
All status must be clear 

GOTO+ : Entry for statenent containing: 
GOTO | GOSUB <lineno> | <label> : 
DO @ <lineno> | <label> token past GOTO | GOSUB { 
SEXTGS = 1 af External staterient entry 
If GOSUB within statenent 
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sGOSUB = 1 ($3) 


ON TIMER: sONTHR = 1 (S6) 

sEXTGS = 1 

R3(S)' = Tiner® 

RSTK = Return address 
ON ERROR: sONERR = 1 (S4) 

sEXTGS = 1 

RSTK = Return address 
ON RESTORE: sRESTR = 1 (S10) 
External Entry: (like ON INTRPT) 

sEXTGS = 1 

RSTK = Return address 

sGOSUB = 1 if GOSUB 


All other status MUST be clear!!!) 


sXWORD = 1 (S9) 
If XWORD with GOTO | GOSUB 
Statenent performing GOTO/GOSUB in a 
"sequential" fashion. EX: ON <exp> GOTO 


Guarantees always search for Line# referen 
Elinainates probler of Line# reference address 
that 1s invalid because 1t was not cleared 
during PEDIT because the Lex File was missing. 


External statenents with GOTO/GOSUB that 
interupt progran execute (ex:0N TIMER, ON INTR) 
hust duplicate ONTINR code (see JP&EXC) to 
guarantee proper TRACE of progran execution. 
sXWORD must be set before junping to GOTO+ 


R3(S) = Return type 
If “norral" GOSUB 


R3(S) = 0 
If GOSUB from Keyboard (PgmRun=0) 
R3(S) = 1 


If "special" GOSUB/RE TURN 
See pRINTp Poll in RETURN 
R3(S) = 9 through 15 


This allows special processing when 
RETURN of GOSUB is encountered 


Assunes External Entry staterents execute fron a 
Progran, i.e. PgnRun (S13) is set. 


Exit: 


to BSCX60 
Avoids exception checking until AFTER the branch 
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If 


If 


If 


If 


Calls: 


Exclusive: 


A 

$ 
Inclusive: A-D, 

S-R1 


Cleans up TRACE 


RESTORE | ON RESTORE (sRESTR (S10)) 
Jurip to execute RESTORE 
Return to Run Loop thru NXTSTA 


RESTORE # 
Jump to execute RESTORE # 


GOTO fron Keyboard 
Through NXTSTM after Setting CNTADR, CURRL 


Error (Label | Line# not found) 

If ON ERROR strt (sONERR (S7)) 
Zero out ON ERROR address 

If ON TIMER, ON ERROR or External Entry 
PCADDR has been updated to ON statenent 

If ON TIMER 
Appropriate Tiner# has be OF Fed 

Set up Error Message 

goto MFERR 


PFNDZL,FILXQT,FINDLB, PSHGSB,PRSCKB, 
TRFCK-, TRFROM, SNcrlf, TRTO+, CNTCUR, LNSKP-, 
SFGPGN, POPGSB, OFFTNR, CNTCK2, PSHUPD 


0,S3,S84,85,S6,S7,S88,S89, $10,813, $14, RO-R2, DO, 
0 (1 nib) 

0-510, $13,$14,RO-R4,00,01,al1 FUNCTION scrtch 
0 thru S-R1-3, STMTDO,S-RO-O (inib) 


0,8 
-RO- 

S 
-Ri- 


PRSCKB uses R2; but its called only when NOT running 
ON TIMER only active WHEN running 
RSTK = Return address (If ON TIMER) 
R1 = Saved 00 
R3(S) = Taner # (If sONTHR) 
R3(S) = Return type (If sxWORD) 
sGOSUB = GOSUB ($3) 
SONERR = ON ERROR entry (S4) 
sEXTGS = External statenent entry (S5) 
sONTHR = ON TINER entry (S6) 
sXWORD = XWORD entry for PFNDZL (S9) 
SRESTR = RESTORE statenent entry (S10) 
PgriRun = Progran running ($13) 
NoCont = Don’t Continue Run Loop (S14) 
S-RO-O0 = Tiner# 
Stk lvls: 7 


HP-71 Software IDS - Entry Point and Poll Interfaces 
Statenent Execute 


Detail: (GOTO | GOSUB) (<lineno> | <label>) 
RESTORE [ <laneno> | <label> ] 
RESTORE # <assign#> [ <lineno> | <label> ] 
ON <exp> GOTO | GOSUB (<lineno>|<label>....) 
ON ERROR GOTO | GOSUB <lineno> | <label> 
ON TINER # <exp>, <exp> GOTO | GOSUB <lineno>|<label> 


RESTOR: If next token = # 
go Execute RESTOREX  (RESTR#) 
RESTOR: Set RESTORE fla (sRESTR) 
If (no <line#> i <label>) 
Set C=O (Indicates start of file for DATPTR) 
go Execute RESTORE (RESTRX) 
goto GOTO+ 
GOSUB: Set GOSUB flag (sGOSUB) 
goto GOTO- 
GOTO: Clear GOSUB flag 
GOTO-: Clear RESTORE, ON ERROR, External Entry flag 


GOTO+: Save DO (R1) 
If not running 
Set program scope (PRSCKB) 
Check if trace needed CTRFCK, TRFEROM) 
Restore Tiner# to A(S) (R3(S)) 
If GOSUB 


Pop Return Address of Stack incase ON TIMER 
If not ON TIMER 
Calculate Return Address (LNSKP-) 
If XWORD 
go Push Return type/addr (goto 0) 
Set Return Type = 0 
If ON ERROR (sONERR) 
Save Return Address in ERRSUB to detect 
nesting of ON ERROR GOSUB statenents 
If Return to keyboard (not PgriRun) 
Push CNTRDR on GOSUB stack (PSHUPD) 
Return type = 1 
If ON TIMER 
Shift Tiner# to C(S) 
Return type = Tiner# + 1 


0: Push Return type/addr on stack(PSHGSB) 
Save Tiner# incase of Error {S-RO-0) 
Restore DO (R1) 

If Line# 
Find line# address (PFNDZL) 
If found 


Position to EOF before Line# 
Move Run address D1 -> C 


1: If RESTORE statenent (sRESTR) 
RESTRK: Set DATPTR to C 
golong NXTSTN 


eek 
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ERROR: 


History: 


02/04/83 
02/07/83 
03/08/83 
03/31/83 
04/29/83 
05/27/83 


06/17/83 
06/23/83 


If 


If 


If GOTO fron Keyboard 
Update CNTADR @ stnt junp& (CNTCUR) 
Compute Line# of stunt junp & 
Update CURRL @ Line# 
golong to next stnt in Stnt Buffer 
Set DO @ Run/execution address (C) 
Check if Trace Flow , (TRFCK-, TRTO+) 
Restore DO @ Execution address (R1) 
Set PRGN annunc, PgnRun flag  (SFGPGM) 
Goto to Run Loop 
Label 
Nove label into A (FILXQT) 
If Illegal Label or not in Current file 
Error Exit (ERROR ) 
else 
Find label (FINDLB) 
If label not found ---> Error exit 
Nove Label stnt start (Run address) DO -> C 
oto 1; 
line# or label not found 
If GOSUB 
Pop Return address off stack  (POPGSB) 
If ON ERROR statenent (sONERR) 
Clear ERRSUB address 
Clear ON ERROR address 
If ON TIMER (sONTHR) 
OFF appropriate Tiner (OFF TNR) 
If Trace node --> Send CR/LF (SNerlf) 
Error Exit --> eSTMNF (MFERR) 


Progranrer Modification 

JP Saving Tiner# in scratch 

JP Add sXWORD status, PFNDiZ call 

JP Checking sEXTGS instead of sONTAR 

JP Renove UPDPC if External Entry 

JP If sxXWORD, R3(S) = Return type 

JP If GOSUB fron keyboard save CNTRDR 
on GOSUB stack 


JP If GOTO fron keyboard; set SUSP 


JP Check TRACE to before set PgnRun 
Set PgnRun ALWAYS 


[So 
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22.6 USING - Interpret IMAGE String 
Category: STEXEC File: MB&ING::NS 


Narie:(S) USING - Interpret IMAGE String 


Purpose: 
Parse IMAGE stnt for fornatted input/output (DISP USING, 
PRINT USING, ENTER USING, etc.) 


Entry: 
P = 0 
DO= prograri PC (points to IMAGE string or line #) 
D1 points to next iten on stack. 


Exit: 
If error (IMAGE parse or USING xqt), to MFERR. 
Otherwise, to NXTSTM, unless picked up by poll handler. 


Calls: EXPEXC... Need I say nore? 
Uses: EXPEXC can use all CPU registers. 


Stk lvls: 4 (all stack levels are lost, since the 
IMAGE parse routines use the stack 
for storage) 


NOTE: All RSTK levels are lost. Never call USING expecting 
any RSTK levels to be saved. 


Detail: 
Register usage: 


DO= pointer into IMAGE string. 
D1i= pointer into B1dING (expanded string where execution 
code 1s built) 


D(A)= address of available memory start. 


RO(A) = D1 where backward search was started. 
RO(9-5)= address to start execution. 


R1({—f) = stores DO. 
R1(9-5)= length of IMAGE string (nibs). 
Ri(S) = counter for 2 complex nutieric fields. 
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R2(A) = counter for digits in front of radix 


R3(A) = Progran Counter (D0 at entry or re-entry). 
R3(9-5)= Address of start of IMAGE string. 


Inage tokens for building expanded IMAGE. 
1) Tokens not identifying the end of a nuneric field. 
1a) Tokens not used in backwards search. 
uSTRPT =#D0 String pointer 
USTRPT =#D0 String pointer 
uMULT =#D1 Multiplier 
uLOOPB =#D2 Loop on byte 
uLOOPS =#D3 Loop on string (12 nibs) 
UINXCH =#D4 Strange execution character. 


1b} Tokens used in backwards search. 

UOPNNM =#D8 Open loop without multiplier 

uJNP{} =#D9 Jurp over paren loop ptr (9 nibs) 
uJNPst =#DA Junp over string pointer (14 nibs) 
uJNPdl =#DB Junp over unfilled deliniter (8nibs) 
ulMbck =#DC Poll for backward search handler 
ulMsta =H#DE IMAGE string start (|Dx| - see IMentr) 
uOPNM- =#DF Open loop mith nult, decrenented 
uOPNWN =#EO Open loop with nult (ends in 0!) 


FFEFEHE EET EE EEE H Et tet este ttt este ttt tt ss tet tet ete tgete sees 


EndNun =#E6 Any value >= this identifies the + 
end of a nuneric field (used + 
in execution). + 


TEHTES HEE Ht Ht t ett tte tte tt tt tsetse tte tt eset gett tseete te sstee 


2) Tokens identifying the end of a nuneric field. 
2a) Tokens not used in backwards search. 


uCPLXC =HEE Complex field closed 
uLOOPP =#EF Loop on parentheses (variable #bytes) 
ulMend =#FO IMAGE string end 
2b) Tokens used in backwards search, 
UuRESTP =#F1- Restart parse 
uBELIM =#F4 Beliniter 

Tokens deliniting an output/input field. 
UHKB™ =#F6 H,K,B or * field 
uALit =F? "R" literal field 
UNUTINN =HFS Numeric, no float chars, no sign* 
UNUMNs =#FS Nuneric, no float chars, u/sign* 
UNUMFn =#FA Nuneric, W/float chars, no sign* 
UNUMFs =#FB Nurieric, u/float chars, u/sagn’ 
uNUNEn =#FC Nuneric, w/Exponent, no sign 
uNUNES =#FD Nunieric, w/Exponent, u/sign* 


*Note: these nuneric delimiters have values that 
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determine the status bit setting in USING execute. 


Status bits 


These status bits must be preserved during execution! 


sMULT =8 Multiplier pending. 

sSIGN =9 Sign already specified. 

sFOUND =10 Output field found (at least one). 
SsRDX = =11 Radix already specified. 


These status bits can be changed during execution. 
(status bits 0,1,2 are used for nuneric flags in xgt) 


sxQT =O Start executing. 

s(/P = C/P pending. 

s(ntg = Counting digits. 

sInit = Field already initialized. 
InhEOt = Sane as SB&8I0 !!! (aluays=0) 
sSTOP = Stop backward search. 

sSpecl = Special handling (used in xqtn) 
sCplxP = Complex field pending. 


Bits for character masks used in parsing (CkLoop) 


K-chr 22715 K: "blank" 
D-chr =2714 D: digit 
A=che. =2°13 A: string char 
Pt-chr =212 Decinal point 
Dblgt =2711 Dbl quote: literal delin 
Sglqt =2710 Single quote: literal delin 
S-chr =279 S: sign 
N-chr =2°8 M: sign 
Z-chr =2°7 2: digit 
E-chr =276 E: exponent 
C-chr =275 C: separator 
astrsk =274 *: digit 
Z1-chr =273 Z: unit’s digit A 
P-chr =2°2 P: separator 
R-chr =274 R: radix 
NF =2° Nxtfld flag: return to Nxtfl5. 
ed =(X-chr)+(Dblqt)+(Sglqt) Edit chars 
cP =(C-chr)+(P-chr) Separators 
Sn =(S-chr)+(M-chr) Sign chars 
Rx =(Pt-chr)+(R-chr) Radix chars 
edstiRx =(ed)+(SM)+(Rx) 
CPE =(CP)+(E-chr) 

Algorithn: 


1:Statenent set-up: 
If IMAGE is referred to by line no., 


cca 
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establish progran scope (in case keyboard xqt) 

point D1 to line# (PFINDL) 

Skip over any line labels, find start of IMAGE string 
calculate IMAGE string length 

urite ulMend token (“end of IMAGE string") to AvMenEnd 
nove IMAGE string to AvMenEnd 

goto 2 


If IMAGE 1s referred to by a string expression, 
urate ulMend token to AvMenEnd, 
call EXPEXC (EXPR) to put string on stack at AvMeriEnd 
reverse string so it’s in “nornal" direction (REVPOP) 
store DO(=PC) and D1(=start of IMAGE string) in R3. 


2: IMAGE parse: 
Follow the parse tree laid out in individual parse 


routines. 
History: 

Date Progranrer Modification 
08/10/82 MB Started writing code 
11/10/82 NB Finished writing code 
01/14/83 MB Updated docunentation 

22.7 BEEP - BEEP Keyboard Execute 


Category: STEXEC File: MN&BP::NS 


Nane:(S) BEEP - BEEP Keyboard Execute 


Purpose: 
BEEP, BEEP ON and BEEP OFF connands fron BASIC. 


Entry: 
Juriped on BEEP token. 


Exit: 
If normal exit, NXTSTN. 
eDATTY 1f provided conplex argunent(s). { 
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Calls: BEEP: EXPEXC, POP1N, SFLAG?, BP. 
BEEP ON: SFLACC. 
BEEP OFF: SFLAGS. 


Detail: 
BEEP ON 
BEEP OFF 
BEEP [ frequency [ , duration ] ] 


Algorithn: 
If PC points at ON token, clear BEEP disable flag. 
If PC points at OFF token, set BEEP disable flag. 
Else call EXPEXC; 
If paraneters not supplied, use default frequency 
of 500 hz and default duration of 0.25 sec. 
Call BP to perforn beep. 


History: 
Date Progranner Modification 
05/20/82 Nt Added docurentation 
22.8  PRINT* - PRINT class statenent execution 


Category: STEXEC File: SB&I0::MS 


Nane:(S) PRINT* - PRINT class statenent execution 


Purpose: 
Inplenents PRINT class staterient execution. This 
includes DISP and PRINT. 


Entry: 
P = 0 
C(O) = PRINT class statenent class nunber 
O --> DISP ‘ 
1 --> PRINT 
2 --> OUTPUT 


Fee SPLOT 
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Exit: 
Exits through NXTSTA 
History: 
Date Progranner Modification 
11/01/83 B.S. Added docunentation = 
22.9 PART3 - Finishes up a PRINT class statenent 


Category: STEXEC File: SB&I0::"S 


e 


Nane:(S) PART3 - Finishes up a PRINT class statenent 


Purpose: 
This 1s the 3rd part of PRINT class statenents. It 
calls the appropriate routine to finish up the current 


line. 
Entry: 
P = 0 
STMTRO set up by CKINFO 
Exit: 
Exits through NXTSTN 
Calls: xPART3 
History: 
Date Progranner Modification 
11/09/83 B.S. Added docunentation 
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22.10 ZERBUF - Looks Like a Zero Length Buffer 
Category: STEXEC File: SB&I0::MS 


Nane:(S) ZERBUF - Looks Like a Zero Length Buffer 


Purpose: 
This looks like a zero length buffer. 


Entry: 
Do not enter 
History: 
Date Progranner Modification 
11/09/83 B.S. Added docunentation = 


22.11 CREATE - Statenent to Create Data File 


Category: STEXEC File: SC&FIL::MS 


Narie:(S) CREATE - Statement to Create Data File 
Purpose: 
The CREATE statenent creates files of type DRTA, TEXT, 
or SDRTA. The syntax 1s: 
CREATE <file type> <file spec> , <size> , <# recs> 


Entry: 
P 


= 0 

DO @ 4-nib file type in tokenized CREATE statenent. 
(The file type is immediately followed by file 
specification) 
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Exit: 
P = 0 
To NXTSTN if successful 
To BSERR if error 


Calls: FSPECx, SVFSP+, SNAPSV, EXTCHK, FINDF , SNAPRS, DO=PCA, 
SVFTYP, CRIF- 


Inclusive: A-D,RO-R4,00,01,$11-S0, Staterent and Function 
scratch RAM, SCRTICH ran, SNAPBF 


Stk lvls: 7 
History: 
Date Progranner Nodif ication 
te SC —sDesigned and coded 
11/18/83 FH Added docunentation 
22.12 CALL - Sub-progran call execution 


Category: STEXEC File: SC&SUB::NS 


Nane:(S) CALL - Sub-progran call execution 
Purpose: (Call a sub-progran 
Enry: DO pts past the tCALL token 


Exit: 
To NXTSTM af successful - 
To BSERR if error 


Calls: I/OALL, GETCH-, FDOCHH, EXPEXC, DEST, NENVAR, SCHSUB 
LNSKP-, TRFLCK, TRCLIN, TRIOEN, I/OFND, EXPCHM, FNDNK- 
POPCHH, CR-VAR, POLL, STRASN, MOVEND, FSPECx, FINDF 
SFLAGC, SFLAGS, SFLAG?, GETSTC, PRSCOO, CHKSPC 


Uses: Everything | BR, 
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Stk lvls: All 
Detail: 


1. Search the subprogran and save the nane on stack. 
2. Start process the actuall paraneters: 

a. Go doun the parameters list, call expression to get 
every paraneters. 

b. Save the value or the address of each paraneter on the 
stack. Put a cap on top of each paraneter to indicate 
it 1s a vaule or an address. (Parse routine already 
figured out each paraneter is passed by value or by 
reference). 

c. If find an "#" sign preceding an expression, it must be 
a channel nunber. Then make sure the channel is open, 
also put a cap to indicate this is a channel nunber. 

d. Call the routine DEST right after returning fron the 
expression execution routine. If the paraneter is a non- 
existent variable, call the routine NEWVAR to create the 
variable. THEN collapse the stack(except the subprogran 
nane), process the actual paraneters all over again 
starting fron the beginning. The reason for starting fron 
the beginning is that sone of the references that already 
been processed nay need to be adjusted due to the 
creation of new variable. In order to save code, I choose 
to re-evaluate the all the expression rather than only to 
adjust those references. 


3. Save the calling environnent on the stack(on top of the 
actual paraneters infornation). 
(lowest address): 


QOO4F (5 nibs): ID & length 

A (1) : Update pointers count 

Following 10 pointers are absolute 
addresses, they will be adjusted 
when nenory moved, 


CURRST ( 
PRGMST ( 
PRGMEN ( 
CURREN ( 
PCADUR ( 
CNTADR ( 
ERRSUB ( 
ERRADR ( 
ONINTR ( 
DATPTR ( 


ee ee eee ee ee eee ee a ee 


Offset to previous FORSTK (5) 
ff GSBSTK (5) 
fi ACTIVE (5) 
{/ CALSTK (5) 
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4. 


10. 


12. 


A LEX file can save its local environnent on the call 
Stack too. At this point, a poll(pCALSV) will be issued. 
An LEX fale when answering to this poll can put a save 
block on top of the current stack pointer(pointed by D1). 
The fornat of the save block is as follow : 


nibs neaning 

1-2 LEX file ID. 

3-5 Save block length(exclude the first 5 nibs). 

6 Nunber of addresses follow that need to be 
adjusted when nenory moved. 

7-11 First address if any. 


Re to end of the block. 


. Search for the subprogran. 


Set CALSTK, ACTIVE, GSBSTK, FORSTK to the current stack 
pointer(MTHSTk) 


. Clear the variable chain head table 


Put a level nark in the channel nunber assign buffer. 


Process the fornal paraneters: 

a. If the parameter is a channel, open the channel. 

b. Call expression execution to get each variable and 
call the routine DEST right after that. Then call 
the routine CR-VAR to create the dope vector of each 
variable. 

c. Dig out the actual paraneter fron the stack one at a 
tine and coripare its type with the corresponding 
fornal paraneter. 

d. Assign value or indirect address to the fornal 
paraneter. 


Pull all the actual paraneter information fron stack and 
adjust all the offset values in the call save block. 


. Clear ERRSUB, ERRADR, ONINTR, DATPTR 


Execute the subprogran. 
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22.13 CALBIN - Binary progran call BASIC subprogran 
Category: STEXEC File: SC&SUB::MS 


Nane:(S) CALBIN - Binary prograti call BASIC subprogran 


Purpose: To allow a binary progran to call a BASIC 
subprogrart. 


Entry: This GOSBVL has to precede right before the CALL 
Staterent. The binary file has to construct the CALL 
Staterent exactly as it 1s in a BASIC file. The first 


tuo nibs are the statenent length and the last tuo 
nibs are the EOL. 


Exit: The execution of the binary program will be resuned 
after CALL statenent. 


Uses: Everything 
Stk lvls: Only one RSTK will be saved, the one calls CALBIN. 
Note: When CALBIN is called, the PCADDR will be set to @ the 
line length of the CALL statenent. 
When ENDSUB 1s executed, if it is returning to binary 


code, the PCADDR will be set to @ the end of the 
CALL statenent. 


22.14 ENDSUB - ENDSUB execution 
Category: STEXEC File: SC&SUB::NS 


Nane:(S) ENDSUB - ENDSUB execution 


Purpose: End a subprogran, restore the calling progran 
environnent. 


ee-e3 
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Entry: Don’t care 
Exit: Exit to NXTSTM 


Calls: STMBUF, TRFLCK, TRCLIN, TRTOEN, POPSTK, LINSKP 
SCOPCK, CLPSTK, CLOSEA, KBRTCK, SFLAGC, SFLAGS 


15 CAT - Executes CAT Conmand 


Category: STEXEC File: SG&SYS::MS 


Nane: CAT - Executes CAT Cormand 
Nane: CAT100 - Buffer of Nonreadable Chars to Display 
Nane:(S) CATEDT - Display CATalog Info on the Current File 


Purpose: CAT entry point executes CAT Statenent 


CAT100 sends a buffer of nonreadable characters 
to the display. It turns off the delay and the 
cursor. It assunes the buffer 1s pointed to by 
AVNEMS. 


CATEDT displays the catalog for current file. 


Entry: 2 ENTRY POINTS: 
1) CAT ~ Execution of CAT conmand. Expect 
DO is past tCAT 
2) CATEDT - Displays CAT info on current file 
3) CATI00 - Buffer pointed to by AVNENS 


Exit: via NXTSTA 

Calls: FINDA, FINDF, BF2DSP, FSPECx, POLL, NOSCRL, 
RPTKY, SCRLLR, POPBUF, EDIT80, RONCHK, ROMFND, 
WSRO-3, EOFLCH, tKYSck, D1I=CRS, DSPDLY, EOLXC+, 
C=MRIN, CATS5, ROMF-1 


Uses: A-0, D1, DO, RO-R3, STMTRO (All 16 nibbles), SO (e 
+ all of function scratch, SO-S11 - EXPEXC 


Detail: CAT [fale nane}[:<dev id>]|ALL|CARD[ keys 
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Stack lvls: CAT me 
CATEDT - 6 
CATION - 5 
History: 
Date Programmer Modification 


wee eee ee ww ee we mmo ne wee een ee ee 


06/28/82 = S.W. Added docurentation 
12/07/82 SLM. All keys popped out of buffer 
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$-- 2-2 en eo oe 2 ee ee tenn none enn eee +e + 
| | | 
|  STPARS - Statenent Parse | CHAPTER 23 | 

| | 
fan one no oo oo ee ee eee nee ee ee + 
23.1 GOTOp - GOTO Statenent Parse 


Category: STPARS File: JP&PR1::MS 


Nare:(S) GOTOp - GOTO Statement Parse 
Nare:(S) GOSUBp - GOSUB Statement Parse 


Purpose: 
Parse GOTO | GOSUB statenent 


Entry: 
D1 past GOTO | GOSUB token 


Exit: 
Carry Clear - If lineno | label is output 


else error exit to PARERR: 
Illegal first character: Syntax Error 


Calls: LBLINP 


Inclusive: A-C,D(S), SO-S3,$7,S9-S11, RO,R1,R3, P, 00,01 
Stk lvls: 6 
Detail: 
GOTOp: 


GOSUBp: Parse lineno | label (LBLINP) 
If carry set --> Error exit - "Syntax" 


else ~-> RTNCC 
History: 
Date Progranner Modification 
07/08/82 JP Hodified docunentation = 
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23.2 RESTRP - RESTORE Statenent Parse 
Category: STPARS File: JP&PR1::MS 


Nane: RESTRP - RESTORE Statenent Parse 
Narie:(S) FIXP - FIX and WAIT Statenent Parse 


Purpose: 
RESTRP parses RESTORE staterent 


FIXP parses FIX and WAIT statenents. It also parses a 
single nuneric expression. 


Entry: 
DCA) = (RVMEME) 
DO points into the output buffer 
RESTRP entry: 
D1 past RESTORE keyword 
DO past RESTORE token 
FIXP entry: 
D1 points at alleged numeric expression 


Exit: 
RESTRP entry: 
Legal statement syntax => 
Return with carry clear 
Statement parsed and tokenized 
Di past legally parsed staterent 
DO past token strean for RESTORE statenent 
P=0 
Else take error exit 


FIXP entry: 
Valid nuneric expression found => 
Return with carry clear 
Tokenized expression written to output buffer 
DO points past token strean 
Di points immediately past the expression 
Else take error exit 


Calls: LBLINP,PILP+,WRDSCN, GUT1TK, RESPTR, NUMCK 


e3-2 
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D1C=R3 


Exclusive: R3,S8 
Inclusive: R3,S8,S0-S3,$7,SA11,A-C,D(S), 00,01, RO-R3, 


Stk lvls: 6 


Detail: 
RESTORE [ <lineno> | <label> ] 
RESTORE [# <num expr> [, <nun expr> ]} ] 


Algorithn: 


Parse for lineno or label 
If lineno | label not found 
If channel # not found 
Return to Hain line parse to check for EOL 
else 
If corima follows Channel # 
Parse for <nuneric expression> 


else 
RTNCC 
History: 
Date Prograrner Modification 
07/08/82 IP Modified docurentation 
10/20/82 S.W. No tore RESTORE #<nun expr>, END 
23.3 BEEPP - BEEP Statenent Parse 


Category: STPRRS File: JP&PR1::MS 


Nane: BEEPP - BEEP Statenent Parse 
Nane:(S) DELAYp - DELAY and WINDOW Statement Parse 
Purpose: 

Parses BEEP, WINDOW and DELAY statenents 
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Entry: 
D1 past BEEP, WINDOW, or DELAY keyword 
DO past tBEEP, tWINDW, or tDELAY 
D(A) = (RVMENE) 


Exit: 
Return with carry clear => 
Accepted statenent 
Else error exit to PARERR 
Calls: NUMCK, COMCK1, RESPTR, OUTITK, EOLCK 
Exclusive: A,C,01,D0 
5- 


1 
Inclusive: A-C,D(1 
01,00 


5), RO-R2,S0-S3,S7, S11, FUNCDO 


Stk lvls: 5 


Detail: 
BEEP [ ON | OFF ] 
BEEP { <frequency> [ , <duration> ] 


DELAY <delayt> [,<scrollt>] 
WINDOW <start> [,<end>] 


frequency, duration, delayt, scrollt, start, and 
end are all specified using nuneric expressions. 


Algorithn: 

If Next Token = End of Line Terninator 
Restore Pointer 
Return CC 

If Next Token = ON | OFF 
Output Token 
Return CC 

else 
Restore Input pointer 
Verify first paraneter 
If next token = conra 

Verify second paraneter 


else 
Go Restore pointer & Return 
RTNCC 
History: 
Date Progranner Modification 
07/08/82 JP Modified docunentation 
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08/18/82 SLU. Conbined WINDOW and DELAY parse with 
BEEP parse 
11/01/83 SW. Nodified docunentation header, 
23.4  ONP - ON Statenent Parse 


Category: STPARS File: JP&PR1::MS 


Narie: ONP - ON Staterent Parse 
Narie:(S) ONP40 - GOTO,GOSUB,RESTORE in middle of stnt Parse 
Purpose: 


Parse ON statenent 


Possible syntax is: 
ON ERROR (GOTO | GOSUB) (lineno | label) 
ON TIMER # <tiner no>, <#secs> ( GOTO | GOSUB ) 
( <lineno> | <label> ) 
ON <exp> GOTO <lineno>|<label> [, <lineno>|<label>] 
" GOSUB 4 
"RESTORE ui 


Entry: 
Di past ON keyword 
DO past tON in output buffer 
D(A) = (AVMENE) 


Exit: 
If accepted - 
Return with carry clear 
P=0 
01 past valid statenent 
DO past tokenized statenent in output buffer 
S8=1 => ON ERROR | ON TIMER statenent 


If unaccepted 
Error exit through PARERR 


Calls: NUNCK, LBLINP, CONCK+ , RESPTR, WRDSCN, NTOKEN 
HCK, NUNC++, RESPTR, CONCKO 
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Exclusive: A,C,S8 
Inclusive: A,C,S8,B,D(15-5), SO-S3, $7, $11, RO-R3, FUNCDO 


Stk lvls: 6 
Detail: 
ON <exp> ... allowed fron keyboard 


ON TIMER | ERROR not allowed fron keyboard 
Rlgorithn: 


If Next Token = ERROR 
If Keyboard execute --> Error exit 
Set ON ERROR statenent flag 
goto 1; 
If Next Token = TINER 
If Keyboard execute --> Error exit 
Set ON TIMER statenent flag 
If next char # "#" 
Error Exit with No restore of input pointer 
Skip "#" and 
Verify <timer no> expression (NUNC+4+) 
If A(B) # Comma (F1) 
then Error ---> Syntax 
Output Corima token (COMCKO) 
Verify <# secs> expression (NUNCK) 
1: If Next Token # GOSUB { GOTO 
If ON-ERROR| TIMER strit  ---> Error Exit 
If Token # RESTORE ---> Error Exit 
2: Check for label | lineno (LBLINP) 
If not label | lineno ---> Error Exit 
If ON-ERROR statenent ---> RINCC 
Check for conna and output (COMCKO) 
Continue Label/Lineno parse (goto 2) 
else goto RESPTR (Position before non-conna & RTN) 


History: 
Date Progranner Modification 
07/08/82 JP Modified docunentation 
11/01/83 S.W. Updated docunentation header 
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23.5  READP 


- READ, READH Statenent Parse 


Category: STPARS File: JP&PR2::NS 


Nane: 
Nare: 
Nane: 
Nane: 


READP - READ, READH Staterent Parse 
INPUTP -~> INPUT Statenent Parse 

LINPTP - LINPUT Statenent Parse 

DSTp - Single Destination Variable Parse 


Nane:(S) READPS - Destination Variable List Parse 


Purpose: 


Entry: 


Exit: 


Parses READ, READH, INPUT, LINPUT statenents. 


DSTp entry expects a ‘destination’ variable, ie 
one that is suitable for storing a value. 


READPS entry will parse a list of destination 
variables, delimited by conmas. Depending on 
Status bits $8 and $9 on entry, 1t allows or 
disallows dummy arrays, allows a list of any 
nunber of destination variables, or denands 
that the first variable in the list is a 
string destination and then returns to leave 
the rest of the parse (if any) to the caller. 


D(A) = (RAVMENE) 

5 entry points: 

1) LINPTP - D1 past LINPUT 
DO past tLINPT 

2) INPUTP - S9=0 

D1 past INPUT 

DO past tINPUT 

S8=0, $9=0 

D1 past READ 

DO past tREAD 

4) READPS - S8=0 iff Durny arrays are valid 
S9=1 iff single string var parse 

5) DSTIp - 01 pts to alleged destination var. 


3) READP 


Valid parse => 
P=0 
LINPTP, INPUTP,READP entry: 
D1 past syntactically correct stnt — 
DO past tokenized statenent q | 
Return with carry clear 


RERDPS entry: 
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D1 past the parsed variable or var list 
DO past tokenized destination variable(s) 
Return with carry clear 
If S9=1 on entry 
Single string destination variable parsed 
Di past the string variable 
DO past the tokenized string variable 


DSTp entry: 
D1 past destination variable 
1 past tokenized destination variable 
Carry set on return iff dunny array 


Invalid parse => 
LINPTP, INPUTP,READP entry: 
Error exit to PARERR 


READP entry: 

Error exit to PARERR 

If $8=0,S9=0 on entry 
Sonething in list uas not a destination 
variable, or a delimiter was missing 

Tf $8=1,59=0 on entry 
Sonething in list uas either not a 
destination variable, or was a duniy 
array, or a delimiter was missing 

If $8=0,S9=1 
First iten in list was not a string 
destination variable. 

If $8=1,S9=1 
First aten in list was either a dunny 
array or Was not a string destination 
variable. 


DSTp entry: 
Input either was an invalid expression 
or was inappropriate as a destination. 


Calls: OUT1TK, NTOKEN, DSTp, COMCK, PILP, WRDSCN 
DATACK, STRGCK, COMCK1, OUTITK, EXPPR+ 


Uses: A-C,0(15-5), DI,DO, RO-R2, SO-$3,$7-S9, S11 
FUNCDO, P 


Detail: Doesn’t allow for INPUT/READ/LINPUT without at 
least one variable in the list 
Allous for READH, but not INPUT#H. 
RERD# conpiled as: 
# nun expr [tCOMMA <nun expr>] [SENIC <var list>] 
Even if there’s no record# specified, there nust 
be a variable list. 
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INPUTP and LINPTP allow an optional pronpt 
and initial string for default values 


Tokenized destination variables in READ, RERDH, 
INPUT and LINPUT are delinited by tCONNA. 


Stk ivls: 5 
History: 
Date Programmer Modifications 
12/06/82 S.W. READ, READH allows dunny arrays 
03/11/83 S.N. Tokenize INPUT with prompt with 
preceding zero byte 
05/18/83  S.M. Calls new subroutine: DSTp 
23.6 ODECP - Parse of Variable Declaration Staterents 


Category: STPARS File: JP&PR2::MS 


Nane:(S) DECP - Parse of Variable Declaration Statenents 
Purpose: Parses REAL, SHORT, INTEGER statenents 
Entry: D1 past REAL, SHORT, or INTEGER keywords 
DO past tREAL, tSHORT, or tINTEG 
DCA) = (AVNENE) 
Exit: If valid statenent syntax: 
via RESPIR (Carry clear) 
D1 past syntactically correct statenent 
® past tokenized statenent in output buffer 


If error in syntax: 
Exit to PARERR 


Calls: COMCKO, ARRYCK, VARP 
Uses: A-C,D(15-5), 00,01, SO-S3,S11, RO,R1, FUNCDO 
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History: 


03/06/83 
05/10/83 


23.7  PRIP 


Cate 


Nane: 
Nane: (S) 
Narie: 
Narie: (S) 


Purpose: 


Entry: 


re IDS - Entry Point and Poll Interfaces 
rse 


6 
Progratiner Modifications 
S.W. New docunentation header added 
S.u. Added call to COMCKO 
~ PRINT Statenent Parse 
gory: STPARS File: JP&PR3::MS 


PRTP - PRINT Statenent Parse 

DISPP - DISP Statenent Parse 

DSPPO2 - Inplied DISP Statenent Parse 
USINGp USING statenent Parse 


PRTP parses the PRINT statenent. 


DISPP parses the DISP statenent. 
It 1s also used to parse an inplied DISP 
when inplied LET parse has failed. 


DSPPO2 parses inplied DISP. The distinction 
betueen DSPPO2 and DISPP 1s that with DSPPO2 
entry, parse errors result in a return to the 
caller; this entry 1s used on an alleged 
inplied DISP that cannot be an inplied LET, 
le one that doesn’t start with a variable or 
user-defined function nane. 


USINGp parses USING part of PRINT USING stnt 
This entry point used by HPIL for ENTER USING 


D(A) = (AVMEME) 

D1 points at input strean 

DO points into output buffer 

3 entry points: 

1) PRTP - D1 past PRINT keyuord 
DO past tPRINT 
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Exit: 


Calls: 


Uses: 


NOTE: 


Detail: 


No 
No 


2) DISPP - DO is past tDISP. 
Either D1 is past the DISP keyword 
OR 
Di is at the beginning of a statenent 
that failed implied LET parse and 
3) DSPPO2 - D1 at alleged expression list that 
doesn’t start with a variable or 
user-defined function nane. 
tDISP has been output and 00 points 
past it. . 
$8=1 
If needed, D1/DO have been saved 
sonewhere so that in case of error 
they can be recovered. 


4) USINGp - D1 at USING keyword 


Carry clear => 

P=0 

D1 past syntactically correct statenent 

DO past tokenized statenent in output buffer 


Carry set (DSPPO2 entry only) => 
Not a valid inplied DISP statenent 


Else error exit of sone kind: 
To PARERR (PRTP, DISPP entry only) 
or to MENERR (possible for all entry points) 


EXPPAR, NTOKEN, OUTITK, NUNCK, PILP, COMCK, WROSCN, 
LBLINP, EQLCKR, RESPTR, R3=D10, DIC=R3 


A-C,D(15-5), SO-S3,$7,S8,S9,S11, RO-R3, FUNCDO 
routines called nay use S8 (except PILP), S9 
routines below DISPP entry point nay use R3 - 

See LNPOO utility 

The PRINT statenent 1s tokenized identical to the 
DISP statenent, except for tPRINT instead of tDISP. 
PRINTH 1s tokenized very differently from PRINT. 


Corpiled DISP statenent looks like: 


tDISP [tUSING <tLINE# line#> | <string expr>] 


[tSEMIC <display list>] —- 


Coripiled PRINTH statenent looks like: 


tPRINT H<channel no. >[tCOMMA <rec no. >)tSEMIC<exprs> Sy 
tPRINT #<channel no.> tCOMMA <record no.> iG x 
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Stk lvls: 5 (if PRINT# then 6) 


History: 
Date Programmer Modifications 
10/21/82 S.W. Elininated capability for 

DISP USING <lbl> 

04/29/83 S.W. Disallow TRB in PRINT/DISP USING 

05/02/83 = S.W. Create USING subroutine for use 
by PRINT/DISP, ENTER/OUTPUT 

05/11/83 S.W. Replaced 1 call to COMCK1 u/CONCK+ 

23.8 POKEP - POKE Statenent Parse 


Category: STPARS File: JP&PR3::MS 


Name: POKEP - POKE Statenent Parse 
Narie:(S) STRNGP - Parse of a Mandatory String Expression 


Purpose: POKEP parses POKE statenent. 
STRNGP parses a nandatory string expression 


Entry: D(A) = (AVNENE) 
D1 points to input strean 
DO points into output buffer 
2 entry points: 
1) POKEP - D1 past POKE keyword 
DO past tPOKE 
2) STRNGP - D1 pts to alleged string expr 


Exit: 
Valid parse => 

Return with carry clear 

P=0 

POKEP entry: 
D1 points past syntactically correct stnt. 
POKE tokenization written to ouput buffer. 
DO points past POKE tokenization. 

STRNGP entry: 
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Statenent Parse 


es; 


D1 points past string expression. 
String expr tokenization in output buffer. 
DO points past string expr tokenization. 
Else error exit 
Calls: OUTITK, STRGCK, COMCK+ 
Uses: A-C,D(15-5),D0,D1, RO,R1,R3, SO-S3,S7,811, FUNCDO 
Stk lvls: 5 


Detail: POKE <string expression>,<string expression> 


History: 

Date Prograrmer Modifications 
05/11/83 = S.W. Replaced call to COMCK1 w/COMCK+ 
9 CALLP - CALL Statenent Parse 


Category: STPARS File: JP&PR3::MS 


Narie:(S) CALLP - CALL Staterient Parse 
Purpose: Parses CALL Statenent 


Entry: D(A) = (AVMENE) 
D1 past CALL keyword in input strean 
DO past tCALL in output buffer 


Exit: Valid Statenent Parse => 
P=0 
Return with cary clear 
D1 past syntactically correct CALL statenent 
CALL stnt tokenization uratten to output buffer. 
Dh) points past statenent tokenization. 


Else error exit 


23-13 


HP-71 Softuare IBS - Entry Point and Poll Interfaces 
Statenent Parse 


Calls: 


Uses: 


Stk lvls: 


Detail: 


SUBNMP, QUTBYT, EXPPAR, NUMCK , CNV2UC, FSPECp 
CLRPRH, COMCK, EOLCK+, DATACK, NTOKEN, OUTVAR, SBNMPO 
NUNCK3, NUMCK1 , OBF SPp, CNV2UC, PRENCK, COMCK1, R3EXPP 


A-C,D(15-5), SO-S3,S7,S9-S11, D1,D0, RO-R3, 


FUNC DO 
6 


Conpiles to: 


tCALL <nane> 
[tPRNST (parm E<O]1> parn E<O|1> ... ] tPRHEN 
{tIN <filespec>] 


History: 


10/11/82 
11/11/82 


12/09/82 
02/11/83 
05/03/83 
05/23/83 


06/02/83 


23.10  ADDP 


uhere EO (tCREF) indicates a pass by reference 


and £1 (tCVAL) indicates a call by value. 
parn:= <#nunt expr|variable|expression> 


tIN 1s actually tSENIC 


Prograntier 


Modification 

Qutput £1 (tCVAL) after chnl# 
Added code to trap out user-defined 
functions 

CALL W/o parns allowed fron keybd 
Made REDPRN straight line code. 
Added call to HCK 

Channel# ALWAYS tokenized as pass 
by reference 

Don’t allow user-defined functions 
in channel nurbers 


- RDD Statenent Parse 


Category: STPARS 


File: JP&PR3::MS 


Nane:(S) ADDP - DD Staterient Parse 
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Purpose: 


Entry: 


Exit: 


Calls: 
Uses: 
Stk lvls: 


Detail: 


History: 


meee ewes 


02/08/83 
05/12/83 


Parses ADD and DROP Statenents 


D(A) = (AVMENE) 
D1 points at input strean past ADD or DROP keyword 
DO points into output buffer past tADD or tDROP 


Valid statenent parse => 
Return with carry clear 
P=0 
D1 points past syntactically correct statenent 
Tokenized staterent written to output buffer 
DO points past statenent tokenization 


Else error exit 

NUNS (NUNCK) 
A-C,0(15-5),RO,R1,R3,D0.D1, S0-S3, $7,$11, FUNCDO 
6 

Syntax 1S: 

ADD | DROP [nun expr [,nun expr...]] 
Tokenization is: 


tADD | tDROP [nun expr [nun expr... ]] 
(tCOMMA is NOT output between expressions) 


Programmer Modifications 


wae wee eee ee we ewe me ew eee ee 


S.l No longer limits to 15 expr 
S.W. Use SFLAG/CFLAG parse 


93 


23-18 




















HP-71 Software IDS - Entry Point and Poll Interfaces 
Systen Level Major Entry Points 


24.1 (CNFLCT - Report "Data Type" Error. 
Category: SYSTEM File: AB&FCN::MS 


Nane:(S) CNFLCT - Report "Data Type" Error. 


Purpose: 
To do a GOVLNG =RDATTY. 


History: 
Date Progranner Modification 
11/09/83 MB Docunentation 


24.2 ARGERR - Report “Invalid Arg" Error. 
Category: SYSTEM File: AB&FCN: NS 


Nane:(S) ARGERR - Report “Invalid Arg" Error. 


Purpose: 
To report "Invalid Arg" as an execution error. 


Entry: 
$13=0 if not a running progran (i.e., keyboard 
execution error) 
$13=1 1f a running progran. 
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No other necessary conditions. 


Exit: 
Exits to BASIC nain loop (ERRRTN) 
Calls: MFERR 
Uses....... Exits to nain loop, can use anything 


Stk lvls: Exits to main loop, can use all 


NOTE: 
ARGERR sets P=0 to select an execution error: 
-- not a parse error 
-- store ERRN (and ERRL, if $13=1) 
~- display "ERR:" (or "ERR L<#>:") prefix 
-- exit to BASIC main loop 


Detail: 
sARGERR P= 0 

LC(2) =elVARG 
GOLONG =MFERR 

History: 

Date Progranner Modification 
11/09/83 MB Docunentation 
3 NORDIN - Report “Var Context" Error 


Category: SYSTEM File: AB&REG: MS 


Nane:(S) NORDIN - Report "Var Context" Error 


Purpose: 
Report "Var Context" as an execution error. 


Entry: 


P = 0 
$13=0 if not a running progran (i.e., keyboard 
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execution error) 
$13=1 if running progran 






Exit: 
Exits to BASIC nain loopo (ERRRTN) 















Calls: NFERR 
Uses....... BASIC main loop can use anything 
Stk lvls: BASIC main loop can use all 


NOTE: 
Setting P=0 selects the following error options: 
~- not a parse error 
~- store ERRN (and ERRL if $13=1) 
~- display "ERR:" (or "ERR L<#>:") 


Detail: 
=NORDIN LE(2) =eVCNTX 
GOLONG =MFER 


History: 
Date Progranner Modification 
11/09/83 MB Docunentation 


24.4 BSCEXC - BRSIC Stnt/Pgn Execution: Keyboard Exec 
Category: SYSTEM File: JP&SYS::MS 


Nane:(S) BSCEXC - BASIC Stnt/Pgn Execution: Keyboard Exec 
Narie:(S) BSCEX2 - BASIC Stmt/Pgn Execution: Progran Exec 
Nane:(S) BSCEXT - BASIC Stnt/Pgn Exec: Reentry into BASIC loop 
Nane:(S) RUNRT1 - Stnt reentry to BASIC loop;sERROR,sENDx clre?? 
Nane:(S) RUNRTIN - Stnt reentry to BASIC loop; sERROR cleared 

(S 


Narie:(S) ERRRTN - Error Exit reentry to BASIC loop 


Purpose: 
BASIC interpreter loop for progran/statenent execution 
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Entry 


Exit: 


Conplete execution of RUN | CONT cornnand 


BSCEXC: 
BSCEX2: 


BSCXLP: 


BSCEXT: 


RUNRT1: 
RUNRTN: 
ERRRIN: 


NoCont flag clear 
Keyboard Execute entry: PgnRun = 0 

If PgnRun = 4 

Progran to be executed 

DO a EOL of prior statenent 

(RUN, CONT, SST entry) 

(If NoCont=1 then SST) 
If PgnRun = 0 

Statenent to be executed 

DO @ Statenent length byte of statenent 
Polls on entering BASIC interpreter 


LABEL entry if within Multi-statenent line 
DO @ EOL or @ of next staterent to execute 


Return to Keyboard "Reentry" 
RUN/CALL Binary return fron “ENDBIN" 
ENDALL from PURGE/NERGE current file 
Filetype is read 
If BRSIC and Progran running (S$13=1) 
DO @ Next stnt to execute 
SUSP will occur 
Exceptions are NOT checked 
sERROR=1 (SO) --> Error has occured 
If not an error, Flush print buffers 
Poll on exiting BASIC interpreter 
Clears flags, goto Main Loop 


Statenent reentry into BASIC loop 
sENDx, sERRORx cleared 

Statenent reentry into BASIC loop 
sERRORx cleared --- used by END stnt 
Error exit reentry into BASIC loop 
Assenes sERROR set; sENDx clear 


Jump to individual execute routine for statenent 
SO-S11 are cleared before jumping 


ALL statenents MUST return through NXTSTM or 
directly to RUNRT1/RUNRTN with DO set properly 


CALL, 


END SUB, FN, GOTO, GOSUB jump to RUNRT1 


NXTSTM returns to RUNRTN 
Errors return to ERRRTN 


SST @ Program End returns to BSCEXT ; 
Binaries return to BSCEXT (from ENDBIN) | q 
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RUNRT1: Clears sENDx flag, indicating not END stnt 
Clears sERROR 

RUNRTN: Assunes sENDx flag set appropriately 
Clears sERROR 


If continuing execution: 


Tiners are serviced at the end of each stnt execute 
If a timer expires & is within current progran scope 
The appropriate ON TIMER code is jutiped to. 
Statenent execution will return to RUNRIN 


Execution stops if: 
End of progran reached | STOP/END statenent in progran 
End of line of calculator staterent 
Don’t Continue (NoCont) flag set fron: 
PAUSE, ATTN, Error Message Routine 
END/STOP within Progran 
End of Progran reached 
SST 
END(SUB),END(DEF), RETURN fron keyboard 
Error flag (sERROR) set fron Error Message routine 


Calls: EXCADR, CK" ON", BASCHK, SFLGCP, FLUSHA, CNTCUR, CKSREQ, 
EOLSCN, USRSTA, GINRA+, FPOLL, ALMSRV, SCOPCK, TRFCK-, 
UPDPC, RDCHD+ 


Exclusive: A,C,01,00,813,S14, PCADDR, CURRL,RO,SO,S1 
Inclusive: A-D,D1,D0,513,S14,PCADDR, CURRL, RO, SO-S7, 
SCRICH (32 nibs), f1PRGN, f 1SUSP, ANNAD1-4, STMTD1 


PCADOR must not be used for anything else 
sENDx = END/STOP Statenent 51 
NXTSTM explicitly clears 
RUNRT1 explicitly clears 
SERROR = ERROR occured SO 
RUNRTN,RUNRT1 clear 
MFERR/BSERR sets 


Except = Service Request $12 
PgnRun = Running prograri $13 
NoCont = Don’t Continue Execution S14 
Trace = TRACE Node $15 
Stk lvls: >=4 
Algorithn: 
BSCEXC: Clear No Continue of Progran flag (NoCont) 


BSCEX2: Place current DO into RO 
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BSCXLP: 


BSCX+: 


Fast poll on entering BASIC interpreter(pBSCen) 


If not running 

go update PC address 
Read & Nove past EOL | @ 
If EOL and not running 


(not PgnRun) 
(goto BSCX+) 


go Read filetype then {goto BSCEXT) 
o exit BASIC (goto BSCEX+) 
If (nulti-staterent line) 
go Update PC address (goto BSCX+) 
If End of current progran (PRGMEN > DO) 
go execute END statenent (END10) 
Skip line# 
Update PCADDR @ stnt length byte (PCADDR) 
Save addr @ statenent length byte (PCADDR) 
Skip staterent length byte 
Clear lower status (SO-S11) 
Read Begin BASIC token 
If not Begin BASIC token range (BASICs) 
Call Assignnent Execute (ASNINT ) 
Skip to next statenent (NXTSTM) 
else 
Move past BASIC token 
Calculate Execution addr (EXCADR) 


Junp to Execution routine 


Staterient Execute Return: (fron NXTSTM or directly) 


RUNRT1: 
RUNRTN: 
ERRRTN: 


Clear END execute flag 
Clear ERROR flag 
Collaspe Math Stack 
If ERROR 
Skip exception checking 
If no exceptions 
If no hardware service request 
If any pending alarn set 
Save DO on stack 
go Process tiners 
go continue 
Save DO on stack 
Check Service requests 
If no exceptions 
go Restore DO and continue 
Clear Exception Flag 
Fast Poll on Exception 
Restore low status from DSPSTA 
If ATIN Key hit 
Set NoCont flag 
else 
If Program running 
Load mask to check Timer bits 
Read Pending Alarn field 
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(sENDx) 
(sERROR) 


(sERROR) 
(goto 6) 
(Except=0) 
(SREQ) 
(PNDALM) 


(goto 3) 
(goto 6) 


(CKSREQ) 
(Except=0) 
(goto 5) 
(Except) 
(pExcpt) 
(USRSTA) 
(CKON) 
(S14) 


(PNDALN) 


HP-71 Softuare IDS - Entry Poant and Poll Interfaces 
Systen Level Major Entry Points 


4: If Tiner expired (Bit O[1/2 of PNDRLN) 
Get Taner Address (GTMRA+ ) 
If non-zero Tiner address 
Verify address in prgn scope(SCOPCK) 
If within scope (Carry clear) 
Clear tiner bit in PNDALM 
Set Except if anthr tiner due(ALMSRY) 
If TRACING (TRFCK-) 
Update PCADDR @ next strt to exec 
C <-- ON TIMER a dress 
Set ONTIMER statenent flag (sONTMR) 
Clr ONERROR statenent flag (sONERR) 
go process ON TIMER stnt (ONTINR) 
go Check if any other Tiners off (goto 4) 
5: Restore DO 


Clear Error occured (sERROR) 
6: If Continue (not NoCont) 
go process next of statenent (BSCXLP) 
else (NoCont) 
BSCEXT: Clear PRGN Annunciator (Sf lgCp) 
Read Filetype (RDCHD+) 
If non-BASIC fale (BASCHK ) 
go exit BASIC (goto BSCEX+) 
If not running (not PgnRun) 
go exit BASIC (goto BSCEX+) 
else 
If not END/STOP execute (sENDx) 
If ELSE 
Skip to End of Line (EOLSCN) 
Update Continue Address 
Set SUSP Annunc/Flag (SF LAGS) 
Conpute & Update current line (CNTCUR) 
BSCEX¢+: 
If not an error (sERROR) 
Flush all buffers (FLUSHA) 
Fast Poll on Exiting BASIC interp (pBSCex) 
Clear Don’t Continue flag (NoCont) 
golong MAIN Loop (MAINLP) 


A note on CNTADR and CURRL: 


When execution 1s not continued: 
The current Line# 1s updated 
If not an END/STOP statenent and BASIC file 
The Continue Address 1s updated to the next staterient 


If the end of progran scope (@ PRGNEN) | END/STOP 
CNTRDR = 0 
Continue Address 1s NOT updated at end of BSC Loop 
Current Line is not touched 
This is normal progran execution ternination. 
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CONT will start execution at the start of the prog 


If the end of progran scope is NOT reached, but exec stops: 
CNTRDR = Current DO 
CURRL = Line# of Continue address 
Current line always points @ CNTADR staterent 
For Error Messages 
CNTIADR = Statenent in error 
CURRL = Line of error 
For ATIN Key 
CNTADR = Next staterient to execute 
CURRL = Line# containing next statenent to execute 
For PAUSE: 

CNTABR = Statenent after PAUSE 

CURRL = Line# cantaining statenent after PAUSE 
History: 

Date Progranner Modification 

02/04/83 JP Added ALNSRV call if Titer due 
03/07/83 JP Packed: added UPDCRL call 
03/08/83 JP Clear sEXTGS before ONTINR junp 
03/28/83 JP If ERROR, skip exception check, sERROR 
03/28/83 JP If not error, flush buffers 
04/04/83 JP If tracing & ON TIMER update PCADDR 
04/04/83 JP Preserve SO-S11 during pExcept 
04/08/83 JP Zero Tiner bit ONLY when servicing 
04/08/83 JP If no exceptions/SR check Tiner bits 
04/21/83 JP Don’t SUSP if non BASIC file 
04/25/83 JP Pass filetype in pBSCex poll ALWAYS 
04/25/83 JP Changed BSCEXT entry point 
05/18/83 JP Check Attn after pExcept (CK ON") 
06/17/83 JP Update CURRL only 1f SUSPending 
06/17/83 JP CURRL points at CNTADR staterent 


fe 
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24.5 IMerr - Report "Invalid IMAGE" error 


Category: SYSTEM File: MB&ING:: MS 


Nane:(S) IMerr - Report "Invalid IMAGE" error 


Purpose: 
To generate the error “Invalid IMAGE". 


Entry: 
No necassary conditions. 


Exit: 
Through MFERR. 


Calls: MFERR 





Uses: MFERR exits to BASIC nain loop; nay use anything 


Stk lvls: MFERR exits to BASIC main loop; nay use 7 


Detail: 
=IMerr P= 0 
LC(2) =eINVIN 
GOVLNG =NFERR 
History: 
Date Progranrier Modification 
12/08/82 MB Docunentation 


24.6 IVAERR - Report “Invalid Arg" error. 





Category: SYSTEM File: PM&STA::MS 
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Nane:(S) IVAERR - Report "Invalid Arg" error. 


Purpose: 
To do a GOLONG =ARGERR 


History: 
Date Progranner Modification 
11/09/83 MB Docunentation 


24.7 COLDST - Cold starts machine 
Category: SYSTEM File: SB&DVR::hS 


Nane:(S) COLDST - Cold starts nachine 


Purpose: 
Initializes all system RAM, I0 Buffers, Pointers etc. 


Entry: 
None 


Exit: 
Exits to MAINLP 


Calls: CONF, INITCL,DSPRST,WIPOUT, AUTCLR, BF2DSP, EDITHF, 
T/ORLL, FPOLL 
Exclusive: Absolutely everything in the entire nachine 
except independent RAMs 
NOTE: 
This routine should be used with caution since it nay 
annoy the user. 
Algorithn: 
Enables interrupt systen 


Initialize CMOS test word 
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Initialize systen RAM to zeroes 
Reset display 

Turn display on 

Set display row drivers 

Set display contrast nibble 
Initialize DELAY paraneters 
Perforn ColdStart configure 
Create Statenent Buffer 
Initialize clock systen 
Check for low battery 
Initialize flags and traps 
Zero RAM between AVMEMS and RAMEND 

Clear AUTO node 

Clear progran running flag 

Clear don’t continue flag 

Initialize IS-TBL table 

Initialize PRINT and DISP position and width 
Initialize ENDLINE string 

Put Coldstart message in display 

Create Workfile 

Create file infornation buffer 
Initialize randon number seed 

Perforn coldstart fast poll 






























History: 
Date Progrannier Modification 
07/14/82 B.S. Updated docurentation 


24.8 MRINLP - Main Loop 
Category: SYSTEM File: SB&DVR::AS 


Nane:(S) MAINLP - Main Loop 
Nane:(S) MAINOS - fain Loop 
Nane:(S) MAINX) - Main Loop 


Purpose: 


These entry points inmplenent the normal idle state 
where the cursor 1s blinking in the display. 
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Entry: 
MAINLP: 


MRINOS: 
MRIN3O: 


Exit: 
Pp 
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Alnost nothing matters. The systen will 
check a few flags and clear a few. Then... 
Allows user to scroll displayed line if there 
is one then prompts for input. Then... 

Calls character editor to input a line until 
special key 1s hit then jumps to a routine 

to handle that key. 


= 0 


Control 1s passed to one of LINEP,WRKEUP,ATTNTN, RUNK, 
CONTK,SST, CALC, PUROFF, CURTOP, CURBOT, CURSU),CURSD), 


CNOSTK, 
Calls: 


Algorithm: 
MRINLP: 


MAINOS: 


MAINO: 


PWROFF, IEXKEY 


SFLAG?, SFLAGS, SFLAGC, FPOLL, AUTOCK, SCRLLR, BF2DPP 
COLLAP, CLCOLL, STMBCL, NOPRGN, I/ODAL, ATNCLR, 
CURSFR, TBLINC 


If flINOF or fINKOF set then 
Go to PWROFF 
If CALC node set then 
Go to CLCERR 
Fast Poll (pMNLP) (FPOLL ) 
If 1n AUTO mode then 
Go to =AUTXQ? 
Tf CRLC mode (fFICALC) is set then 
Go to =CLCERR 
Clear program annunciator & status bit (NOPRGM) 


Set f1DORM 
If Don’t Prompt flag (f1NOPR) is set then 
Go to MAIN3O 
If scrolling needed (NEEDSC) then 
Rllow user to scroll (SCRLLR) 
Send pronpt string consisting of (BF2DPP) 
Cursor off, prompt character(">"), 
Cursor on 
If Attn key has been pressed junp to 
Clean up as necessary. (RTTNTN) 
Clear Don’t Continue flag (NoCont) 
Collapse math stack (COLLAP) 


Collapse RVNENS,OUTBS,SYSEN to CLCSTK  (CLCOLL) 
Clear Don’t Prompt flag (f1NOPR) 


Collapse statenent buffer (STABCL) 
Delete Innediate Execute Key buffer (bIEXKY) 

Set "Dormant" flag (f1D0RM) (SFLAGS) 
Call Character Editor (CHEDIT) 


If Immediate Execute Key then 


Go to IEXKEY | Wo 
If not cursor up/down then 
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Clear connand stack flag (f1CMDS) (SFLAGC) 
Clear "Dornant" flag (f1DO0RM) (SFLAGC) 
Clear Attention Flag so HPIL won’t abort(ATNCLR) 
Move cursor to far right of display (CURSFR) 
Go to appropriate place to process key (TBLINC) 


Endline (LINEP) 
Attention (ATTNTN) 
RUN key (RUNK ) 
CONT key (CONTK) 
SST key (SST) 
Cursor Up (CURSU}) 


Cursor Down (CURSD}) 
Cursor Top (CURST}) 
Cursor Botton (CURSB)) 
G-Attention (RTTNTN) 
CALC Mode key (CALC) 

Off key (PHROFF ) 
Cornand Stack (CMDSTK) 


History: 
Date Progratiner Modification 
01/05/83 B.S. Added docunentation 


24.9 PWROFF - Power Off 
Category: SYSTEM File: SB&DVR::MS 


Narie:(S) PWROFF - Power Off 


Purpose: 
Sends machine into deep sleep and waits for wakeup 


Entry: 

Exit: 
Exits to LINEP+ if a cotimand buffer needs processing 
otherwise exits to MAINLP 


Calls: DPSO10(DSLEEP), SFLAGS, 1/OFND 
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Algorithr: 
Set f1PHDN 
Call DPSO010 to go to deep sleep 
If there is an external cornand buffer 
then junp to LINEP+ to process it 
If there is an STARTUP buffer 
then junp to LINEP+ to process it 
Junp to MAINLP 


History: 
Date Prograrmer Modification 
07/15/82 B.S. Updated docunentation 


24.10 RDATTY - Report "Data Type” error 
Category: SYSTEM File: SB&RD::MS 


Nare:(S) RDATTY - Report "Data Type" error 


Purpose: 
To report "Data Type” as an execution error. 


Entry: 
$13=0 if progran not running (i.e., keyboard 
execution error) 
$13=1 if running progran 
No other necessary conditions. 


Exit: 

Exits to BASIC main loop (ERRRIN) 
Calls: MFERR 
Uses....... BASIC main loop can use anything 


Stk lvls: BASIC rain loop can use anything 


NOTE: 
RDATTY sets P=0 to selec the following error options: 
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-- not a parse error 
-- store ERRN (and ERRL 1f S$13=1) 
-- display "ERR:" (or ERR L<#>:") 


Detail: 
=RDATTY P= 0 
LC(2) =eDATTY 
GOLONG =MFERR 
History: 
Date Progranner Modification 
11/09/83 HMB Docunentation 


24.11 CORUPT - Report “Systen Error" error 
Category: SYSTEM File: SG&EXC::MS 


Nane:(S) CORUPT - Report "Systen Error" error 


Purpose: 
To report "Systen Error" as an execution error. 


Entry: 
P = 0 
$13=0 1f not a running progran (i.e., keyboard 
execution error) 
S13=1 1f running progran 
No other necessary conditions. 


Exit: 

Exits to BASIC tain loop (ERRRTN) 
Calls: MFERR 
Uses....... BASIC nain loop can use anything 


Stk lvls: BASIC main loop can use anything 


NOTE: 
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Setting P=0 selects the following error options: 
-~ not a parse error 
-- store ERRN (and ERRL if $13=1) 
-- display "ERR:" (or "ERR L<#>:") 


Detail: 
=CORUPT LC(2) =eMNCOR 
GOLONG =MFERR 


History: 
Date Progranner Modification 
11/09/83 MB Docunentation 
24.12 MFERR - Mainfrane BASIC system error 


Category: SYSTEM File: TI&ERD::NS 


Nane:(S) MFERR - Mainfrane BASIC systen error 
Purpose: 


Generate a BASIC systen error fron the nainfrane 
tables. See BSERR entry for details. 


24.13 BSERR - BASIC systen error 
Category: SYSTEM File: TI&ERD::MS 


Nane:(S) BSERR - BASIC system error | i 
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Purpose: 
BSERR -- Generate a BASIC systen error. 
MFERR -- First sets C(3-2)=00, then falls into BSERR. 


Entry: See NFERR* 

Exit: See MFERR* 

Uses: See MFERR*. Also S14, $1, SO. 
Calls: MF ERR* 


Stk lvls: 3 


NOTE: 
MFERR and BSERR are generally for errors generated by 
the BASIC systen, as they exit to the BASIC nain loop. 
Those applications which wish to sinply display an 
error and return should call MFERR* (a subroutine). 


Detail: 
MFERR -- Set C(3-2)= 00 for mainframe LEX ID. 
BSERR -- Call MFERR* 
Set NoCont flag (stop execution) 
Clear END statenent flag 
Set Error flag 
Exit through BASIC loop 


History: 

Date Progranner Modification 
06/29/82 NB docunentation 
03/29/83 JP Set ERROR flag; Clear END flag 


24.14 MFERRS - Stop BASIC execution for error 


Category: SYSTEM File: TI&ERD::MS 


Nane:(S) MFERRS - Stop BASIC execution for error 
Purpose: 


Return to BRSIC rain loop with status bits set to 
Cause execution to stop. 
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24. 


Entry: 
P = 0 
Exit: 
To ERRRTN (BASIC main loop) 
Calls: Exits to ERRRTN (BASIC nain loop) 
Uses....... 


Exclusive: $13, S4, SO 
Inclusive: BASIC main loop uses everything. 


Stk lvls: © (see BASIC nain loop: RUNRTN) 


NOTE: 
Standard entry point to stop BASIC execution because 
of an error. 


Algariathn: 
Set status NolCont=1 
Set status sENDx=0 
Set status sERROR=1 
Exit to ERRRIN 


History: 
Date Progranner Modification 
10/31/83 MB docunented 
15 NENERR - Insufficient Menory error 


Category: SYSTEM File: TI&ERD:: AS 


Nane:(S) MENERR - Insufficient Menory error 
Nane:(S) MENERX - Insufficient Merory error 
Purpose: 


Process "Insufficient Menory", exit to BASIC main loop. 


Entry: 
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24. 


MEMERR -- No required conditions. 
MEMERX -- P=entry options as in MEMER* 





Exit: 
P = 0 
Available Menory recoverd (AvMenSt and AvMenEnd 
collapsed). 


Calls: MENER* 
Stk Ivls: 3 


NOTE: 
See MENER* for all details. 


Detail: 
MENERR -- sets P=0 
MENERKX -- sets C(3-O0)= eMEM (18hex) 
falls into MENER* 
exits to BASIC main loop with: 
$14=1 (NoCont) 
SO=1 (sERROR) 
$1=0 (sENDx) 


History: 

Date Progranner Modification 
10/05/82 NB Wrote code, docurentation 
16 MEMER* - Low-level nenory error 


Category: SYSTEM File: TI&ERD::MS 


Nane:(S) MEMER* - Low-level nenory error 


Purpose: 
Display low-level menory error to the user. 


Entry: 
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1 
| 
| P= (1ixxx)!! Indicates Parse error. THIS SHOULD 
| NEVER BE SET FOR A MEMERR! MEMER* 
| collapses AvMenSt, causing the 

| input buffer (address in INBS) to 
| be destroyed! 

| x1xx Do not store ERRN 

| (Else store ERRN and ERRL) 

| xx1x Display msg only (Else display 

| "ERR:" or "ERR L:", too) 

| bitO not used at present (**) 

| 


= message ID number in Hex. 
2)= LEX IDH# in Hex (=00 for mainfrane tbl) 


(3) 
| 
| 
| 
| 
| 


(sane as MFERR*) 


NEVER CALL MEMER* AS AR PARSE ERROR! (I.e., never 
enter with P=1xxx. ) 


(**) BitO of the P register is reserved for future 
applications, as a way for the LEX file which 
generated the error to connunicate with other 
LEX files; this bit can be detected during the 
pMEN poll in RO(S). The meaning of this bit 1s 
not yet decided. In the neantine, bitO nust=0. 


Exit 
Pp = 0 
Calls: FPOLL, COLLAP, CLCOLL, AUTCLR, TRNFCK, 
MFER.6 (MFER.6 is an entry point in MFERR* -- 
see MFERR* for nore details) 
Uses....... 


Exclusive: A(W), BCW), CCW), DCW), P, DO, D1, RO 
S13 1s tested for: “Running progran?" 
If you’re calling this routine just for 


ressage display, watch out for S13!!! * 
Available Menory (starting at AvMenSt) is \Y : 
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also used as a building buffer for nsg. 
Inclusive: Sane 


Stk lvls: 2 


NOTE: 
The entry point MEMER* allows ANY nessage to be 
reported in lieu of “Insufficient Menory", and still 
be handled as a menory error. This means you can 
display, say, "“Qut of Scratch Area" as a way of 
reporting a nenory error. This capability 1s included 
to allow external systens to generate nenory errors 
and report then as they desire. But this capability 
Can cause serious conditions (such as an infinite 
MEMERR loop) if sone rules are not followed: 
1) Never invoke MEMER* (or MEMERR or MEMERX) as 
a parse error. 
2) Any error entering through MEMER* (includes 
MEMERR and MEMERX) disallows text insertion. 
This can be overridden in the pMEM poll. But 
never use a message which contains a type{5} 
insertion!!! & type{S} insertion nay cause 
a slow pTRANS poll to be issued, which nay 
Cause an infinite MEMERR loop. 


The preferred way for a LEX file operating in the 
BASIC systen to generate a different nenory error 
(i.e., other than "Insufficient Menory"), is to call 
MENERR and then intercept the pMEM poll to change the 
riessage nurber or options. On the other hand, a 

LEX file which wants to generate a meriory error which 
takes text insertions should set up the insertion 
codes in R2, call MEMER* with the appropriate nessage 
nunber, and adjust (14-13) during the pMEN poll. 


Detail: 
RO usage: 
FEDCBAS 8765432190 
Rilt ORE | 
| | +- error code +- sg nunber 


| +- insert codes 
+- option flags 


Algorithn: 
(1) Put option flags in C(S). 
Save options and LEX#, msg in RO. 
Set €(14-12)=O0F (suppresses text insertions) 
Call FPOLL 
Collapse Available Menory 
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Turn off AUTO rode 

Check if TRANSFORM in effect (this essentially 
include TRANSFORM in the poll); if so 
branch back to TRANSFORM. 

Junp to MFER.6 (see MFERR*) 


History: 
Date Progratiner Modification 
10/05/82 MB docunentation 
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$e ne nn ee nee eee ee ee te----------- +--+ + 
| | | 
| TIME - Tine and Date Utilities {| CHAPTER 25 | 
| | | 
$-- +--+ eee He ee ee eee Peesee set ele ee coses + 
25.1 CNPT - Return Current Tine 
Category: TIME File: MN&TM::AS 
Nane:(S) CNPT - Return Current Tine 
Purpose: 


Read current time in 512ths since tine 0. 


Entry: 
None. 


Exit: 
Current tine in C and Ri (HEX ticks). 
(Tine represented as # of 512ths sec since midnight 
1 Jan 0000). 
RO = TINER value corresponding to current tine. 
HEX node. 
Carry clear. 
P=0, 


Calls: GETTIN, GETIRQ, GETLAF, GETAF, IDIV, PUTLAF, 
CLKUPD (falls through). 


A,B,C,D0,P,RO,R1,00,01,S0-S11 
Stk lvls: 1 


Detail: 
Routine computes current tire (NXTIRQ-TIMER) and places 
value of TIMER corresponding to current tire in RO. 
Then accuracy factor corrections are computed and the 
code falls through to CLKUPD to perforn an update. 


Algorithm: 


Read TIMER; save in RO. 
Read NXTIRQ; current time = NXTIRQ-TINER; save in RI. 
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Read TINLAF; compute #ticks since last AF correction 
(TIME-TINLAF); stash in 0. 

Conpute (TIME-TIMLAF)/abs(AF); quotient to A; 
renainder to B. 

Conpute #ticks from old TIMLAF to new TIMLAF = 
(TIME-TIMLAF)-REMAINDER -> D. 

Negate A (quotient fron division) if AF is negative. 

[At this point, R=tine correction, D=#ticks fron old 
TIMLAF to new TIMLAF. } 

TIMLAF = TIMLAF + A + OD. 

TIME = TIME (from R1) + A. Store TIME in R1. 

Fall through to CLKUPD. 


History: 
Date Progranner Modification 
06/07/82 NM Added docunentation 


25.2 SETINE - Set And Normal Adjust Routine 


Category: TIME File: MN&TN: NS 


Nane: SETINE - Set And Normal Adjust Routine 
Nane:(S) ADIN - Set And Nornal Adjust Routine 


Purpose: 
Set new systen tine and keep track of error for 
accuracy factor cornputation. 


Entry: 
SETINE, ADIN: 
Ri = Current tine (512ths sec since year 0). 
RO = Tiner value corresponding to current tine 


(from CMPT). 
R2 = New tine to set (512ths sec since year 0). 
HEX node. 


Exit: 


R1=New tine (R2 on entry). 
RO=Neuw tinier value corresponding to tine. 
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Carry clear. 


P=0, 
Calls: CMPTE, GETOFS, PUTOFS, GETLST, PUTLST, GETLAF, 
PUTLAF, CLKUPD (falls through) 
Uses....... 
A,B,C,D,P,00,D1,RO,R1, SO-S11. 
Stk lvls: 2 
Detanl: 


SETINE, ADIN are tuo nanes for sane entry point. 


The adjustnent anount is rounded to the nearest 
half-hour. The difference between that and the 
adjustnent anount (which will be betueen -15 and +15 
minutes) is considered the error adjustnent. The rest 
of the adjustnent is considered a tine zone change, 
and 1s not added to TIMOFS (tine error accunulator). 


Algorithn: 

Q := Newtine - currenttine {total adjustnent arount}. 

Te := sign(Q)*((abs(Q)+15) nod 3 - 15) {error 
adjustnent atriount: between -15 and +15 minutes). 

TIMLST := TIMLST + Q - Te {update TIMLST by non-error 
anount}. 

TIMLAF := TIMLAF + Q {update TIMLAF by adjustnent 
amount}. 

TIMNOFS := TIMOFS + Te {update error accumulator by 
error amount). 

Fall through to CLKUPD. 


History: 
Date Progranner Modification 
06/08/82 NM Added docunentation 
25.3 ADJA - Rbsolute Time Adjust Routine 


Category: TIME File: MN&TN: NS 
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Nane:(S) ADJA - Absolute Tine Adjust Routine 


Purpose: 
Set neu systen tine without tinebase accuracy 
correction. The entire adjustnent amount is considered 
a tine zone change... none of it is an accuracy 
adjustnent. 


Entry: 
Ri = Current tine (ticks since year 0). 
RO = Tiner value corresponding to current tine 
(stored when CMPT was done) (ticks). 
R2 = New tine to set (ticks since year 0). 
HEX node. 


Exit: 
R1=Neuw tine (R2 on entry). 
RO=Neuw tiner value corresponding to tine. 
P=0, 
Carry clear. 


Calls: GETLST, PUTLST, GETLAF, PUTLAF, CLKUPD (falls 
through) 


A,B,C,0,P,D0,D1,R0,R1,S0-S11. 
Stk lvls: 1 


Algorithn: 

Q := Newtine - currenttine {total adjustment amount}. 

Te := 0 {error adjustment arount = 0}. 

TIMLST := TIMLST + Q - Te {update TIMLST by non-error 
anount }. 

TIMLAF := TIMLAF + Q {update TINLAF by adjustnent 
amount}. 

TINOFS := TIMOFS + Te {update error accumulator by 
error anount}. 

Fall through to CLKUPD. 


History: 
Date Progranner Modification 
06/08/82 NM Added docunentation 
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25.4 EXACT - Conpute New Accuracy Factor. 

Category: TIME File: MN&TM:: MS 

Nane:(S) EXACT - Compute New Accuracy Factor. 

Purpose: 
Inforn tine systen that tine currently contained is 
exact. 
The first tine EXACT is called after a coldstart or 
a RESET CLOCK, the exact flag is clear. 
This routine will simply set it, note the current tine 
and start a new adjustnent period. 

Each subsequent call will note the elapsed tine since 
the last call and the corrections which have been 
applied since the last call. From this an accuracy 
factor 18 conputed. 

Entry: 
None. 
Exit: 
A new adjustnent period has been started. 
Carry set: Reasonable accuracy factor conputed. 
Carry clear: Illegal accuracy factor computed. 
Calls: CMPT, GTFLAG, CONPAF, PUTAF, PUTOFS 
PUTLST. 
Uses....... 
R,B,C,D,P,00,D1,R0,R1,S0-S11. 
Stk lvls: 2 
Algorithn: 
If exact=true then 
corpute AF 


if AF valid then store AF. 
TIMLST:=TIMLAF:=currenttine {start of neu adjustnent 
period}. 
TIMOFS: =0. 
EXACT:=true. 
return with carry clear if: 
exact was false 
exact Was true, coriputed AF is valid. 
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return with carry set if: 
exact Was true, conputed AF was invalid. 


History: 
Date Progranner Modification 
06/08/82 NM Added docunentation 


25.5 SETALM - Set Absolute Alarn Tine 
Category: TINE File: MN&TM: MS 


Nane:(S) SETALN - Set Absolute Alarn Tine 


Purpose: 
Set detonation tine for any of alarns 1-6. 


Entry: 
Alarm tine in A[11-0] (ticks since 1 Jan 0000). 
Alarn#-1 (0-5) in C(O}. 


Exit: 
Through CHPT. 
Carry clear. 


P=0, 

Ri = Current tine (512ths sec since year 0) 

RO = timer value corresponding to current tine. 
Calls: GETPND, PUTPND, CMPT (falls through). 
Uses....... 


A,B,C,D,P,00,D1,S0-S11,RO,R1. 
Stk lvls: 2 
Algorithm: 


Write alarn tine to proper RAM location (RLRM1-ALRM6). 
Clear proper bit (0-5) in PNDALM. 


Fall through to CMPT. HOD 
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History: 
Date Progranner Modification 
06/09/82 NN Rdded docurientation 


25.6 SETALR - Set Alarn Relative To Current Tine 


Category: TIME File: MN&TN::MS 


Narne:(S) SETALR - Set Alarn Relative To Current Tine 


Purpose: 
Set alarn tine relative to current tine. 


Entry: 
A[11-0] = Interval (512ths sec) 
C([O] = Alarnt-1 


Exit: 
Through CLKUPD. 
Carry clear. 
P=0, 
R1 = current tine (512ths sec since year 0). 
RO = tiner value corresponding to current tine. 


Calls: CMPT, SETALMN (falls through). 


R,B,C,D,P,D0,01,RO,R1,R3, SO-S11, 
Stk lvls: 2 


Algorithm: 
Add interval to current tine. 
Wrap around end-of-tine. 
Write out new alarn tine to appropriate slot. 
Update clock. 


History: 
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Date Progranner Modification 


06/09/82 NM Added docunentation 


25.7 YMDHNS - Return Tine And Date 
Category: TIME File: MN&TM::MS 


Name:(S) YMDHNS - Return Tine And Date 
Narie:(S) YNDHO1 - Convert Tire To YYMNMDD And HHMNSS 


Purpose: 
YMDHNS: Return current tine and date in fornat compatible 
with file header tine/date field. 
YNDHO1: Convert passed tine (seconds since year 0) into 
tine/date fornat compatible mith file header 
tine/date field. 


Entry: 
YNDHMNS: None. 
YNDHO1: C([W]=Tine (seconds since midnight, 1 Jan 0000). 


Exit: 
C = OOOOYYMMDDHHNNSS. (year,nmo,day,hrs, min, sec) 
A[B] = HH (sane as HH inC). 
B[B}] = MM (sane as MM -- minutes in C). 
D[B] = SS (sane as SS in C). 
HEX node. 
Carry clear. 
Calls: CMPT, TIMRND, TODT, DAYYMD, SECHNS. 
Uses....... 


R,B,C,0,P,00,D1,RO,R1, SO-S11. 
Stk lvls: 2 
Algorithn: 
Get current tine. 


Conpute day#, tine-of-day. 
Conpute YYMMDD fron day#. 
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Conpute HHMMSS fron tine-of-day. 
Fornat into YYMMDDHHNANSS. 


History: 
Date Progranner Modification 
60/11/82 Wn Added docunentation 


25.8 SETINO - Set Systen Tineout 
Category: TINE File: AN&TA: NS 


Nane:(S) SETTING - Set Syster Timeout 


Purpose: 
Set 10-ninute systen tineout. 


Entry: 
None. 


Exit: 
Carry set. 
HEX node. 
10-rinute tireout alarn has been scheduled. 


Calls: STO1, SFLAG?, SETALR, SETALN, RCO1. 


A,B,C,D,P,00,01, SCRTICH[O-31], SCREXO. 
Stk lvls: 3 


Detail: 
Typically used to schedule autoriatic power-down. 
Rlso used to schedule tireout during "Rlign" nessage in 
card reader. 
If =fICTON (continuous on) flag is set, the tineout 
is disabled (never cones due). 


Algorithn: 
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Stash scratch regs. 
If fICTON set, set ALRN4 = O (SETALM) 
else set ALRN4 = current tine + 10 minutes (SETALR). 
Clock update (CMPT). 
Restore scratch regs. 


History: 
Date Progranter Modification 
06/11/82 NM Added docurientation 
25.9 TODT - Tine To Tine-of-day And Day# 
Category: TIME File: MAN&TN: SNS 
Nane:(S) TODT - Tine To Tine-of-day And Day# 
Purpose: 


Convert fron tine (since 0000) to day# (since day 0) 
and tine-of-day (since midnight). 


Entry: 
C = Tine (HEX seconds). 
Hex mode. 
Exit: 
B,C = Taitie-of-day (HEX seconds). 
A = Day# (HEX days since day 0). 
Hex node. 
P=15, 
Carry set. 
Calls: IDIV (falls through) 
Uses....... 
R,B,C,P 
Stk lvls: 0 


Detail: 201 
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The following terns are used in this and the following 
docunentation: 


tine: tine in seconds since midnight 1 jan 0000 
tine-of-day: seconds since midnight. 

day#: day# relative to 1 jan 0000 

h,11,s: hours, rinutes, seconds. 

d,n,y: day, month, year. 


Date routines are valid fron 1 jan 0000 to 
31 dec 9999, 

Assumptions being nade in the date routines are: 
year<=9999 
nonth<=12 
day<=31 (this is intentionally violated for JD2DAY) 
day#<= 3652424 
THIS MEANS THAT HIGHER-ORDER DIGITS ARE ZEROES!! 


Rlgorithn: 
Day#=Tine div 15180H. 
Tine-of-day=Tine nod 15180H. 


History: 
Date Prograriner Modification 
05/24/82 NM Rdded docunentation 


25.10 SECHNS - Convert Secs To Hours, Mins, Secs 


Category: TIME File: MN&TM::NS 


Nane:(S) SECHMS - Convert Secs To Hours, Mins, Secs 


Purpose: 
Convert tine in seconds (expressed in HEX) to 
hours, tinutes and seconds (expressed in DEC). 


Entry: 
C(W) = Tine-of-day (HEX seconds). 
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Exit: 
A[W} = Hours (BCD integer). 
B[W],C{W}] = Minutes (BCD integer). 
D[W] = Seconds (BCD integer). 


HEX node. 

Carry clear. 

P=15, 
Calls: HEXDEC, IDIV. 
Uses.,..... 

A,B,C,0,P 

Stk lvls: 1 
RAlgorithn: 


Convert to decinal. 

Divide by 60; renainder=secs. 

Divide quotient by 60; renainder = minutes, 
quotient = hours. 


History: 
Date Prograriner Modification 
wom ere wm ee Rw meme ee em em em em mm nw mewe . ee ar 
05/27/82 = NM Added docurentation 


25.11 HMSSEC - Hours, Mins, Secs To Seconds. 
Category: TINE File: MN&TM::MS 


Nane:(S) HNSSEC - Hours, Mins, Secs To Seconds. 


Purpose: 
Convert from hours, minutes, secs (DEC) to seconds 
(HEX). 


Hours (BCD integer). 
Minutes (BCD integer). 
Seconds (BCD integer). 


we oe 
_—ae 
rere 
Rd ed 
eo on oot 
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Exit: 
A,B,C = Seconds since midnight (HEX). 
HEX node. 
P=0, 
Carry clear. 
Calls: MP60, IDIV. 
Uses,...... 
AR,B,C,D,P. 
Stk lvls: 1 
Algorithn: 


Conpute ((hrs * 60) + mins) * 60 + secs. 
Convert to HEX. 


History: 
Date Progranner Modification 
05/27/82 NN Added docunentation 


12 YMDDAY - Convert Year,nonth,day To Day# 
Category: TIME File: MN&TM:: AS 


Nane:(S) YMDDAY - Convert Year,month,day To Day# 


Purpose: 
Convert date to absolute day#. 


Entry: 
= Year (BCD nunber). 
B = Month (BCD number). 
D = Day (BCD nunber). 


Exit: 
C = Day# since day 0 (HEX). 
rode. 


A,B, 
HEX 
P=0. 
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Carry clear. 


Calls: M306, SUN3, DECHEX (falls through) 
USCS ks st.es 
A,B,C,D0,P 
Stk lvls: 14 
Detail: 


Day# is expressed relative to 1 January 0000. 
Algorithn: 


Define the following conditionally depending on 
the value of MONTH: 


If MONTH < 3 then let M = MONTH + 13 


and let Y = YEAR - 1. 
If MONTH >= 3 then let M = MONTH + 1 
and let Y = YERR. 


Also define the following functions: 


SUN3(Y) = int(Y¥ * 365.25) - int(Y / 100) + int(Y / 400) 
= -366 if Y=-1 
N306(N) = int(M * 30.6001) 


Mapping DATE to DAY NUMBER: 
DRYH (MONTH, DAY, YEAR) = SUN3(Y) + M306(M) + DAY - 63 


History: 
Date Progranner Modification 
05/27/82 NN Added docunentation 


25.13. DAYYMD - Day# To Year, Month, Day 


Category: TINE File: MN&TM::MS JO. 
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Narie:(S) DAYYMD - Day# To Year, Month, Day 


Purpose: 
Convert fron absolute day# to date. 


Entry: 
c 


Day# since day 0 (HEX). 


Exit: 
R = Year (BCD nunber). 
B = Month (BCD nunber). 
D = Day (BCD nunber). 


Calls: HEXDEC, ESTYO, SUM3, CHKYO, IDIV, N306, ASLH4 
USES S. evs cs 
A,B,C,D,P 
Stk lvls: 1 
Algori thn: 


Define the following conditionally depending on 
the value of MONTH: 


If MONTH < 3 then let M = MONTH + 13 


and let Y = YEAR - 1. 
If MONTH >= 3 then let M = MONTH + 1 
and let Y¥ = YEAR. 


Rlso define the following functions: 


SUN3(Y) = ant(Y * 365.25) - int(Y / 100) + int(Y / 400) 
= -366 if Y=-1 
N306(MN) = int(Mh * 30.6001) 


Napping DAY NUMBER to DATE: 
Calculate the value of YO as follows: 


YO = int( [(DAYH + 63) - 121.5) / 365.2425) 
This 18 an approximation of the correct year. 


# Now calculate MO as follous: 
NM = aint( [(DAYH + 63) - SUM3(YO)} / 30.6001) 
If this MO is less than 4 then the year was one too 
high; therefore let YO = YO - 1 and recalculate M0 
using the new YO (ie YO := YO - 1; GO TO #). 


Once a value for M greater than or equal to 4 1s 
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obtained, the values of MONTH, DAY, and YEAR are 
calculated as follous: 
DAY = [(DAYH + 63) - SUM3(YO)} - M306(MO). 
If MO >=14 then MONTH = MO - 13 and YEAR = YO + 1. 
If MO < 14 then MONTH = M ~ 1 and YEAR = YO. 


wow 


360-day calendar is not done in this code. Here is how to 
do it: 


For 360 day calendar, the number of days between tuo 
dates is calculated as follons: 


Let M1 = month of first date 
let D1 = day of month of first date 
let Y1 = year of first date 


Let M2 = month of second date 
Let D2 = day of month of second date 
Let Y2 = year of second date 


Now make the following adjustnents: 
If D1 >= 3 then 


begin 

D1 := 30; 

if D2 = 31 then 02 := W 
end; 


Now conpute: 
Delta-days = (Y2-¥1)*360 + (M2-M1)*30 + (D2-D1) 


History: 
Date Progranner Modification 
05/27/82 NM Added docunentation 


25.14 DAY2ID - Dayt To Julian Date 
Category: TINE File: MN&TN::MS 


Narie:(S) DRY2ID - Day# To Julian Date 


Purpose: 
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Convert day# (since 1 Jan 0000) to Julian date (year 
and day-in-year) 


Entry: 
C[W] = DayW (HEX days since day 0). 


Exit: 
AW] = Year (BCD nunber). 
B,C = Day-of-year (BCD nunber). 


DEC node. 
Calls: HEXDEC, ESTYO, SUN3, CHKYO. 
Uses....... 
A,B,C,D,P. 
Stk lvls: 1 
Algorithm: 


Convert day# to DEC. 
Estimate YO. 
1: Compute SUN3(YO). 
CHKYO; 1f too high, decrenent and goto 1. 
If SUM3(YO) <= 365 then goto 2. 
Day-in-year = SUN3(YO)-365. 
Year = YO+t. 
RIN. 
é: If year divisible by 100 then point at digit 2, 
else point at digit 0. 
If selected digit divisible by 4 then 
day-1n-year=SUN3(YO)+1 


else 
day-1n-year=SUN3(Y0O). 
Year = YO. 
RIN. 
History: 
Date Prograrnmer Modification 
06/03/82 NM Added docurientation 
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26.1 STRASN - String Assignment 
Category: VARNGT File: AB&ASN::NS 


Nane:(S) STRASN - String Assignnent 
Purpose: Store a string from stack to a string variable 


Entry: 

D1 = Stack pointer 

A = String header from stack ( A=DAT1 W) 
S-RO-O = Destination address ( @ String length) 
= 00000 if hokey destination. 


Exit: 
P= 0 
Carry clear => No error 
Carry set => String too long 
Calls: MOVED3, NOVEU3 
Uses: A,B,C, 


Stk lvls: 2 


History : 
Date Progranner Modification 
6/17/82 SC straight line code=> subroutine 


“~ 


i 
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26.2 DEST - Save Variable Destination Info 


Category: VARNGT File: AB&ASN:: MS 


Nane:(S) DEST - Save Variable Destination Info 
Purpose: 
Save variable destination information for use by STORE 
subroutine. 
Entry: 
B = Exit condition fron EXPEXC (see note below) 
D1 = Exit condition fron EXPEXC (see note below) 
F-R1-0 = Exit condition fron EXPEXC (see note below) 
F-R1-3 = Exit condition frori EXPEXC (see note belou) 
Exit: 
P=0 


Following information has been stored: 


S-RO-1 = First substring paraneter. 
S-RO-2 = Second substring paraneter. 
S-RO-3 = Variable type. 
S-R1-0 = Array elenent nunber. 
S-R1-1 = Maxinun string length. 
S-R1-3 = Subscript count. 

Calls: None. 

Uses....... 

D1,C 
Stk lvls: 0 
NOTE: 


Whenever EXPEXC evaluates a variable (sinple or array 
elenent), 1t leaves destination infornation about that 
varlable in B[W] and function scratch. This routine 
puts that infornation in statenent scratch, where it is 
safe from further abuse during expression execute, and 
can be subsequently accessed for a store operation. 


In conputing the destination infornation, the recall 
code sets up information about the variable’s address, 
substring paraneters, type, array register nutber, 
Naxinun string length and subscript count. If the 
variable does not exist, that fact 1s somehow encoded 


26-2 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Variable Managenent 


into this infornation and the variable will be created 
in the store subroutine. 


Detail: 
Typically called after EXPEXC, which left infornation 
around about the location of the last variable 
evaluated (if evaluating a variable was the last thing 
done). Typical use is in variable assignnent: 
EXPEXC (evaluate destination ariel 
DEST (save destination information for STORE). 
EXPEXC (evaluate expression). 
STORE (store result in destination variable). 


History: 
Date Progratiner Modification 
SA Wrote 
10/13/83 NM Attenpted to docurent 
26.3 BASE - Deternine Option Base 


Category: VARNGT File: AB&ASN:: MS 


Nane:(S) BASE - Determine Option Base 


Purpose: 
Determine whether we are in option base 0 or 1. 


Entry: 
HEX node. 


Exit: 
If carry set: 
We are in option base 1. C[XS]=1. 
If carry clear: 
We are in option base 0. C[XS]=0. 


Calls: None. 
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DO,C[ XS]. 
Stk lvls: 0 


History: 
Date Progranner Modification 
SR Wrote 
10/13/83 NN Attenpted to docunent 
26.4 = SHRT - Store Into Short Variable 


Category: VARNGT File: AB&ASN:: MS 


Nane:(S) SHRT - Store Into Short Variable 
Purpose: 
Store a nunber into a short variable, with IEEE 
rounding. 
Entry: 


12-digit form in A[W]. 
DO pointing at variable storage location. 


Exit: 
R3 contains copy of nuriber as stored. 
DEC mode 

Calls: SPLITA, uRESNX, 

Uses....... 


DO,D1,A,B,C,0,RO,R3,S7-S11. 
Stk lvls: 3 


History: 


Date Prograriner Modification 
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10/13/83 NM Attenpted to docunent 


26.5 INTGR - Store Into Rn Integer Variable 
Category: VARNGT File: AB&ASN: NS 


Nane:(S) INTGR - Store Into An Integer Variable 


Purpose: 
Store a number into an integer variable. 


Entry: 
Number in 12-digit floating-point forn in A. 
Exit: 
P = 9 
Calls: IF12A, GVFL, RND-12, SIGCHK, uRESXT. 
Uses....... 
A,B,C,0,D0,D1,RO,R3,S7-S11. 
Stk lvls: 3 
Detail: 
Handles overflow according to IEEE trap settings. 
History: 
Date Prograriner Modification 
SA Wrote 
10/13/83 NN Attenpted to docunent 
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26.6 DYNANC - Variable Recall 
Category: VARNGT File: AB&EXP::NS 


Narie: DYNANC - Variable Recall 
Narie: STATIC - Variable Recall 
Nane:(S) RECALL - Variable Recall 


Purpose: 
Recall a variable. 
Also set up destination address inforriation for 
possible use by DEST after expression execution 
terninates. 


Entry: 
P=0. 
HEX mode. 
STATIC: Expression execution controller junped on variable 
token (non-alpha-digit). 
DO=PC. 
Di=top of stack. 
DYNANC: Expression execution controller junped on alpha- 
digit variable token. 
DO=PC. 
D1=top of stack. 
RECALL: DO=PC. 
A[A]=top of stack. 
DO, B[A]=address of variable register (register 
contains variable if sinple, else contains 
dope vector). 


Exit: 
Through FNRTN2. 
DO=PC, pointing past expression. 
Di=stack pointer. 
Value recalled in on top of stack. 


Calls: 
If we are end of expression (this recall is last thing 
done): ADRS10, ADRS40, MOved3, READIN, RECADR. 
If we are not at end of expression, control reverts 
to expression execution controller, which could call 
anything. 


If we are not at end of expression: everything 


26-6 





HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Variable Managenent 


available to expression execution controller. 
If ue are at end of expression: A-D,DO,D1,P. 


Stk lvls: 4 


NOTE: 


2, if we are at end of expression. 


This 18 part of expression execution. It does not 
return, 1t goes back to the expression execution 
controller. The way to use this routine is to set 

up the tokenized forn of the variable you want to 
access (whether for recall or for corputing the store 
address), complete with a terminator, point DO at it 
and perforn an expression execute. You can, with sone 
cleverness, set things up to look as though an 
expression execution 1s in progress and call this code 
instead of calling EXPEXC. This night save a little 
execution tine. 


Detail: 


In addition to recalling the variable, this routine 
sets up information relevant to using the variable as a 
destination. This information includes the variable 
address, substring paraneters, type, array register 
nunber, maxinun string length and subscript count. 

If this is the last thing done before the expression 
tertiinates, that information 1s intact upon return fron 
the expression execution controller, and can be passed 
to the DEST subroutine for storage somewhere safe. 


WHY? Qne purpose of this code is to evaluate a 
variable on the left side of an assignnent operator (=) 
so 1t Can be stored into after the expression on the 
right side 1s evaluated. DEST serves the purpose of 
Saving the destination information so the assignnent 
can take place later. 


The destination infornation is stored in function 
scratch and-B[W]. DEST moves it to statenent scratch. 


History: 
Date Progranner Modification 
SA Wrote 
et oe 10/13/83 = NN RAttenpted to docunent 
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26.7 RECADR - Sone Recall] Utility 
Category: VARMGT File: AB&EXP::MS 


Nane:(S) RECADR - Sone Recall Utility 


Purpose: 
Perform DO:=D0+11 ; C[9-5]:=D0-C[9-5). Evidently 
useful for recalling things. 


Entry: 
Things in C and DO. 
HEX node. 


Exit: 
DO has been increriented by 11. 
C[9-5] = New DO - C(9-5}. 


HEX node. 
Calls: 0 
Uses....... 
DO, C[ 9-5). 
Stk lvls: 0 
History: 
Date Progranner Modification 
Seah fRtCirotes SS 
11/09/83 NM Atternpted to docunent 


26.8 ADRSUB - Get Variable Narie Fron Token Strean 
Category: YVARNGT File: AB&EXP:: MS 
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Nane:(S) ADRSUB - Get Variable Nane Fron Token Strean 


Purpose: 
Read a token strean for a variable and return 3-digit 
code for that variable 


Entry: 
P=0, 
HEX node. 
DO points at token stream 
Exit: 
P=0, 
B(X) = 3-digit code for variable 


Defining aa = ASCII code for variable nane) 

Qaa if simple variable. 

gaa if alpha-digit variable, where q = digittt. 
Obb 1f string var, where bb = aa ! 20H, 

qbb if alpha-digit string var. 
DO points past last byte of variable tokenization. 
Carry set 


Hon HO NAN Ot 


Calls: None 


Inclusive: B(X),C(X),DO. 
Stk lvls: 0 


History: 
Date Progranner Modification 
SA Wrote 
10/13/83 NN Attempted to docunent 


26.3  ADDRSS - Find Address Of A Variable 
Category: VARNGT File: AB&EXP::MS 


205 


Nane:(S) ADDRSS - Find Address Of A Variable 
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Nane:(S) ADRS40 - Find Address Of A Variable 

Nane:(S) ADRS5O - Find Address Of Var Not Of Parn Chain 
Nane:(S} FIND - Find Address Of Var Not Of Parn Chain 
Nane:(S) ADRS8O - Find Address Of Var Not Of Parn Chain 
Purpose: 


ADDRSS, ADRS40: Search parameter chain and then variable 


chains to find a variable. 


ADRSSO: Search variable chains to find variable (do not 
search paraneter chain. 

FIND : Sane as RDRSSO except search already 1n progress. 

ADRS80: Sane as FIND except DATO already read. 


Entry: 
P=0, 


ADORSS: 
ADRS40: 
ADRSSO: 


FIND 


RDRS8O: 


Exit: 
Pp 


DO points at token strean of variable to be 
found. 
B[X] contains 3-digit code for variable to be 
found. 
B[X] contains 3-digit code for variable to be 
found. 
Search already in progress. 8[X] as above. 
DO points at a variable nane entry in variable 
chain. 
D[B] = #entries left in chain. 
Sane as FIND + C[X] contains entry already 
read at DO. 


= 0 


Carry set if variable not found 
Carry clear if variable found 


A[A} = 


Calls: 


Stk lvls: 


Detail: 


DO,B(R) = Address of variable register 

DO at tine of entry (if ADRS40 called). 

Pointer past variable tokenization (if ADDRSS 
called). 

A[A] at tine of entry (if ADRS5SO, ADRS8O 
called). 


CHNHED, ADRS70, ADDRSS calls ADRSUB 


DO,A(A), BCR) ,C(6-0), D(A) 
1 


First searches paraneter chain for variable (in case 


passed 


History: 





in CALL). Then searches variable chain. 


HP-71 Softuare IDS - Entry Point and Poll Interfaces 
Variable Managenent 


Date Progranter Modification 


SA Wrote 
10/13/83 NM Attenpted to docunent 


26.10 CHNHED - Point To Variable Chain Head 
Category: VARNGT File: AB&EXP:: NS 


Nane:(S) CHNHED - Point To Variable Chain Head 


Purpose: 
Point to variable chain head and return # entries in 
chain. 


Entry: 
P=0, 
HEX triode. 
B[X] = three-digit variable nane (see ADRSUB doc hdr). 


Exit: 
P=0. 
HEX mode. 
D[BJ=# itens in chain - 1. 
Carry set iff chain enpty. 
C(A], 00=pointer to chain head. 


Calls: None. 


C{A},C[6-0), D0. 
Stk lvls: 0 


History: 
Date Progranner Modification 
SA Wrote 
10/13/83 NM Attenpted to docunent 
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26.11 DPVCTR - Creates Vars, Conputes # Of Elenents 
Category: VARNGT File: AB&REG: AS 


Nane:(S) DPVCTR - Creates Vars, Conputes # Of Elenents 


Purpose: 
Creates primary variables(dope vectors), conputes 
nunber of array units to allocate 


Entry: 
Sate as exit conditions fron PREP, ie 
P = 0 


DO points to dinension expression(s) if array 

A(X), (S-R1-2) = 3-digit code for variable 

B(A), i ~RO-0) = Address of variable(if it exists(S2=0)) 
(S-RO-1 thru S-R1-1) zeroed 

Rrray(SO) set iff it is an array 

NonEx(S2) set iff variable/array doesn’t already exist 
String(S1) set iff string variable/array 

OpBase(S3) set iff OPTION BASE 1 


Exit: 
P = 0 
C-register has the following infornation: 
wane enone pene oe --$---- +--+ t~-$--4--+ 
LTE [dimint 1 laaoat 2] bi dj tl 
wenn nnn nnn pon nnn nnn nn $e eee t--t--4--4+ 
4 4 1 $1 4 


where t 1s datatype indicator 
d 1s dincount 
b 18 baseoption 
dinlint 2 1s second dinlinit or nax string length 
dinlint 1 1s first dinlinit 


or 
$a nnnsen cnn ee nee n ens n enone een nn nn nce sees $--4 
| zeroes | tl 
ih +--+ 


where t is datatype indicator (0 for real) 
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for real, short, and integer simple variables. 


nurber of array units 

3-nibble code for variable 

Ist subscript if is an array 

2nd subscript if is a 2 dimensional array 
Maxinun string length if string 

Nunber of elenents for numeric array 


Calls: LIMITS, GETDIN, A-NULT 


Inclusive: A,B,C,D,RO,R1,R2,R3,R4, DO, 01- 


Stk lvls: 6 
History: 
Date Progranrer Modification 
—— sQti“‘(wOtESO#O#O!#!O!O!O!O!™~™C™OCO 


26.12 GETDIN - Get A Dinlinit Fron Stack 
Category: VARNGT File: AB&REG: AS 


Nare:(S) GETDIN - Get R Dinlinit Fron Stack 


Purpose: 
Pop dinension limit fron stack and check range. 


Entry: 
Di=stack pointer. 


Exit: 
P=0. 
HEX node. 
Errors out if result conples (eDATTY) or out of range 
(eARGOR). 
A[A]=dinlinit. 


200 
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Calls: FLTDH, POPIN. 


A,B,C,P. 
Stk lvls: 2 


History: 
Date Prograrner Modification 
SA Wrote 
10/18/83 NM Attenpted to docunent 
26.13 SPACE - Compute Space Needs For An Array 


Category: VARMGT File: AB&REG::MS 


Narie:(S) SPACE - Conpute Space Needs For An Array 
Purpose: 
Calculate space requirenents for an array. 
Entry: 
P=0. 
A(A) = number of array units needed. 
C(O] = data type: 
A - Integer 
B ~ Short real 
C - Real 
D ~ Short conplex 
E - Complex 
Error exit (eMEM) if > address space. 
Exit: 
A,RO = space requirenents in nibbles. 
P=0, 


Calls: LENGTH, A-NULT. 
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A,B,C,RO. 
Stk lvls: 1 
History: 
Date Progranner Modification 
oe SAQ”tiéinote?s— ss 
10/18/83 NM Attenpted to docunent 
26.14 PREP - Prepare To Create A Variable/array 


Category: VARNGT File: AB&REG::NS 


Narie:(S) PREP - Prepare To Create A Variable/array 


Purpose: 
Prepare to create a variable or array 


Entry: 
DO points to tokenization of a variable or array in 
sone "din" statenent. 


Exit: 
P = 0 
A(X), (S-R1-2) = 3-digit code for variable 
B(A),(S-RO-0) = Address of variable(if it exists(S2=0)) 
(S-RO-1 thru-S-R1-1) zeroed 
Array(SO) set iff it 1s an array 
NonEx(S2) set iff variable/array doesn’t already exist 
String(S1) set iff string variable/array 
Carry and OpBase(S3) set aff OPTION BASE 1 


Calls: ADDRSS, C=ACTV, BASE 
Inclusive: DO, D1, S0,S1,$2,S3, A(R), B(A),C(W), D(A) 


Stk lvls: 2 
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Note: Takes error exit if trying to change a function 


pararieter, 
History: 
Date Progranner Modification 
SA irote 
26.15 DMNSN - Create And Allocate Meriory For Variable 


Category: VARNGT File: AB&REG::NS 


Nare:(S) DNNSN - Create And Allocate Meriory For Variable 


Purpose: 
Create simple numeric/string variable, numeric array 
and string vector. 


Entry: 
Array(S0) 1 Create array 

0 Create sinple variable 

1 String variable 


0 Nurieric variable 


String(S1) 


Woof ott ob oto 


NonEx(S2) 1 Create new variable 
0 Redinerision existing array 
D = Dope vector of the variable 
A = # of elements of the array 
C = Elenent length in nibbles 
DO = PC 


X) = Variable nane 
1- 


R2( 
S-R1-1 = Variable address if already exist 


Exit: 
Carry CLEAR if PC is pointing at end of line. 


Calls: A-MULT, CR-VAR, CR-ARR, AJDEST, ARYSIZ, CR-ADJ, 
ADRS40, WIPOUT 


Uses: A,B,C,D,RO,R1,R2,R3,S3,P 
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Stk Ivls: 3 
History: 
Date Progranrer Modification 
— fo )|)0COioteSSC=~“CS~SsSS 


26.16 DATLEN ~- Conpute Data Length Given Type 
Category: VARMGT File: ABS&REG::MS 


Nane:(S) DATLEN - Conpute Data Length Given Type 


Purpose: 
Compute length of a data iten, 
Entry: 
C[O]=data type. 
5 - Integer. 
4 - Short real. 
3 - Real. 
2 - Short complex. 
1 - Conplex. 
P=0, 
Exit: 


C{A}=Length of data iten: 
Integer: 6. 
Short real: 9. 
Real: 10H. 
Short complex: 12H. 
Conplex: 20H. 


Calls: None. 


Stk lvls: 0 ZO] 
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History: 
Date Progranner Modification 
SA Wrote 
10/18/83 NM Attempted to docunent 


26.17 ARYSIZ - Conpute Array Size, # Elenents 
Category: VARNGT File: AB&REG: = NS 


Nane:(S) ARYSIZ - Compute Array Size, # Elenents 
Nane:(S) ARYELM - Corpute Array Size, # Elenents 


Purpose: 
ARYSIZ: Conpute array size in bytes. 
ARYELM: Compute number of elenents in an array. 


Entry: 
D1 points at the dope vector of the array. 


Exit: 
P=0, 
ARYELM: Di points at first subscript linit. 
R = number of elenents in the array. 
ARYSIZ: D1 points at the array pointer within the array 
dope vector. 
-C = array pointer (is an offset fron the array 
pointer to the start of the array). 
A = array size in nibbles. 


Calls: RARYELN: A-NULT. 
ARYSIZ: ARYELM, DATLEN, A-NULT. 
A,8,C,0,D1. 


Stk lvls: ARYELM: 1. 
RRYSIZ: 2. 


History: 
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Date Prograriner Modification 
SA Wrote 
10/18/83 = NM Attenpted to docunent 


26.18 GETNAN - Get variable nane 
Category: VARNGT File: SC&SUB::NS 


Nane:(S) GETNAN - Get variable nane 


Purpose: Read the variable into B(X) and check if is a 
string or a nunber 


Entry: DO pts variable token 


Exit: B(X) = Variable nane 
DO past the variable nane 
SO = 1 - is a string variable 
0 - 1s a nuneric variable 
Carry set 
Calls: RDRSUB 
Uses: B({A),C, SO, DO 


Stk lvls: +1 
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CK, 16-26 
-LINE, 12-5 
1/X15, 13-2 


?PRFI+, 9-4 
?PRFIL, 9-4 


A-MULT, 15-8 
ACCEPT, 16-47 
ACOSI2, 13-19 
ACOS15, 13-19 
ADISH, 13-2 
AD15s, 13-2, 15-28 
AD2-12, 13-2 
AD2-15, 13-2 
ADDF, 13-2 
ADDONE, 13-1 
RODP, 23-14 
ADDRSS, 26-9 
ADHEAD, 14-13 
ADIR, 25-4 
ADIN, 25-2 
ABRS40, 26-10 
ADRSS5O, 26-10 
ADRS80, 26-10 
ADRSUB, 26-9 
ALINFO, 19-3 
ALLDUN, 16-1 
ARGI2, 13-16 
ARG15, 13-16 
RRGERR, 24-1 
ARGF, 13-16 
ARGPR+, 14-8 
ARGPRP, 14-9 


INDEX 


Index-1 
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INDEX 

ARGST-, 14-11 
ARGSTA, 14-11 
ARITH, 7-8 
ARRYO1, 16-29 
ARRYCK, 16-29 
ARYDC, 7-16 


ARYELN, 26-18 
ARYSIZ, 26-18 
ASCO2, 7-15 
ASCICK, 7-15 
ASCII, 6-6 
ASINI2, 13-19 
ASINI5, 13-19 
ASLW3, 11-23 
ASLW4, 11-23 
ASLWS, 11-23 
RASNMNT, 22-1 
ASNSTO, 22-1 
ASRW3, 11-23 
ASRM4, 11-23 
ASRW5, 11-23 
ATANIZ2, 13-19 
ATANIS, 13-19 
ATCHK, 8-17 
ATNCLR, 11-33 
AVE=C, 18-3 
AVE=D1, 18-3 
AVA2DS, 6-13 
AVS2DS, 6-29 
AVS=C, 18-13 
AVS=D0, 18-13 


B 


BACKIB, 9-44 
BACK2B, 3-44 
BACK3B, 9-44 
BRSCHR, 9-22 
BASCHK, 9-22 
BASE, 26-3 
BBCOLL, 18-13 
BEEP, 22-16 
BEEPP, 23-3 
BF2DPP, 6-13 
BF2DS+, 6-13 
BF2DSP, 6-13 
BF2ST+, 14-14 
BF2STK, 14-14 
BIASA+, 15-37 
BIASR-, 15-37 
BIASC+, 15-37 
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BIASC-, 15-37 
BEG, 1525 
BIG+, 15-5 
BLOBIT, 6-10 
BLOCON, 15-3 
BLDDSP, 6-8 
BldIN+, 8-27 
BIdINA, 8-26 
BIdING, 8-26 
BLDLCD, 6-8 
BLNKCK, 7-17 
BOPNN-, 8-22 
BP, 11-19 
BP+, 11-19 
BP+C, 11-19 
BRT30, 13-19 
BRIF, 13-19 
BSCEX2, 24-3 
BSCEXC, 24-3 
BSCEXT, 24-3 
BSERR, 24-16 


C 


C+A2D1, 11-18 
CA2D1+, 11-18 
CALBIN, 22-23 
CALL, 22-20 
CALLP, 23-13 
CAT, 22-24 
CAT$, 10-3 
CAT$20, 10-3 
CAT100, 22-24 
CATC++, 16-42 
CATCH+, 16-42 
CATCHR, 16-42 
CRTEDT, 22-24 
CHAIN*, 9-29 
CHAIN+, 9-29 
CHAIN-, 9-29 
CHEDIT, 12-1 
CHIRP, 11-20 
CHKEOL, 8-59 
CHKwer, 18-11 
CHKSPC, 18-11 
CHKSPF, 18-11 
CHNHED, 26-11 
CK"ON", 8-16 
CKINF-, 8-53 
CKINFO, 8-53 
CkLoop, 8-20 


INDEX 
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INDEX 


CkipNC, 8-20 
CKSREQ, 11-37 
CLASSA, 15-39 
CLOOLL, 18-13 
CLOSEH, 9-56 
CLOSEA, 9-56 
CLOSEF, 9-56 
CLRFRC, 15-12 
CMDIST, 12-7 
CMOFND, 12-8 
CADINI, 12-9 
CHDPR", 6-7 
CMDSOO, 12-8 
CNDS10, 12-8 
CMDS20, 12-8 
CMPT, 25-1 
CNFFND, 4-13 
CNFLCT, 24-4 
CNV2UC, 5-6 
CNVUCR, 5-7 
CNVWUC, 5-6 
COLDST, 24-10 
COLLAP, 14-15 
CONCK, 16-32 
CONCK+, 16-24 
CONCK1, 16-32 
COMCKO, 16-24 
COMPLH, 9-25 
CONCON, 16-48 
CONF, 4-2 
CONVUC, 5-7 
COPYDC, 21-4 
COPYu, 8-12 
CORUPT, 24-15 
COSi2, 13-17 
COS15, 13-17 
COUNTC, 8-44 
CPLH1O, 9-25 
CPLH15, 9-25 
CROFIL, 9-35 
CREATE, 22-19 
CREATF, 9-11 
CRETF+, 9-11 
CRFSB-, 9-50 
CRFSUB, 9 
CRLFND, 6- 
CRLFOF, 6 
CRLFSD, 6- 
CRIF, 9-51 
CSL9RO, 11-14 
CSLC1, 11-9 
CSLO10, 11-9 
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CSLC11, 11-9 
CSLCi2,. 11-9 
Cok it-9 
CSLC14, 11-10 
CSLC15, 11-10 
CSLC2, 11-9 
CSLC3, 11-9 
CSLC4, 11-9 
ESLOS,. 11-9 
CSLC6, 11-9 
CSLO?, 11-9 
(SLES, 11-3 
CSLC9, 11-9 
CSLW3, 11-23 
CSLW4, 11-23 
CSLWS, 11-23 
CSRET, 4.159 
CSRC10, 11-9 
CSRC11, 11-9 
CSRO12, 11-9 
CSRC13, 11-9 
CSRCO14, 11-9 
CSRC15, 11-9 
CSrC2, 11-9 
CSRC3, 11-9 
CSRC4, 11-9 
CSRC5, 11-9 
CSRC6, 11-9 
CSRC?, 11-9 
CSRC8, 11-9 
CSRC9, 11-9 
CSRW3, 11-23 
CSRW4, 11-23 
CSRWS, 11-23 
CURBOT, 7-1 
CURDVC, 9 
CURSFL, 6 
CURSFR, 6 
CURSRD, ?- 
CURSRT, 6 
CURSRU, ? 
CURTOP, ?- 
CVUCW, 5-6 


DO+2RD, 9-42 
DO=AVS, 18-10 
DO=FIB, 18-4 
DO=0BS, 18-9 
DO=PCA, 18-10 
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DOASC+, 11-56 
DOASCI, 11-56 
DI2ROR, 11-16 
DI=AVE, 18-2 
D1=IBS, 18-13 
DI@AVS, 18-13 
DIC=R3, 11-12 
DIFSTK, 8-65 
DINSTK, 8-64 
D=AVNE, 18-1 
D=AVNS, 18-1 
D=WORD, 11-2 
DATACK, 16-34 
DATLEN, 26-17 
DAY2ID, 25-16 
DAYYND, 25-15 
DBLPI4, 15-42 
DBLSUB, 15-41 
DCHX=C, 5-2 
DCHKF, 5-1 
DCHXH, 5-10 
DCPLIN, 7-1 
DCRMNT, 8-42 
DEBNCE, 12-13 
DECDC, 21-1 
DECHEX, 5-2 
DECP, 23-9 
DELAYp, 23-3 
DEST, 26-2 
DISPDC, 21-2 
DISPP, 23-10 
DIVF, 13-4 
DNNSN, 26-16 
DONNA, 6-27 
DPART2, 8-50 
DPART3, 8-51 
DPVCTR, 26-12 
DRANGE, 11-2 
DROPDC, 21-2 
DSLEEP, 11-33 
DSP$00, 6-22 
DSPBUF, 6-31 
DSPCHA, 6-14 
DSPCHC, 6 
DSPCL?, 6 
DSPCNA, 6 
DSPCNB, 6 
DSPCNO, 6- 
DSPLI+, 7 
DSPLIN, 7 
DSPPO2, 2 
DSPRST, 6 
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DSPUPD, 6-11 
DSTp, 23-7 
DSTROC, 21-1 
DVI5M, 13-5 
DVI5S, 13-4 
DV2-12, 13-5 
DV2-15, 13-4 
DKP100, 13-9 
DYNANC, 26-6 


EDIT, 9-71 
EDIT20, 9-71 
EDIT80, 9-71 
EDITWF, 9-71 
END, 22-5 
END10, 22-5 
END20, 22-5 
ENDALL, 22-5 
ENDBIN, 22-5 
ENDOC, 7-18 
ENDING, 8-36 
ENDSUB, 22-23 
EOLCK, 16-14 
EOLCKR, 16-14 
EOLDC, 11-45 
EOLSCN, 8-70 
EOLSN5, 8-70 
EQLSN7, 8-70 
EOLXC*, 7-18 
EOLXCK, 11-45 
ERR3, 16-17 
ERRNSF, 14-16 
ERRRTN, 24-3 
ESCSEQ, 6-19 
EX-115, 13-9 
EX12, 13-13 
EX15N, 13-13 
EX15S8, 13-13 
EXAB1, 15-23 
EXRB2, 15-23 
EXACT, 26-5 
EXCAD+, 2-3 
EXCADR, 2-3 
EXCHRe, 16-17 
EXCPAR, 8-55 
EXDCLP, 7-4 
EXF, 13-13 
EXITRW, 22-5 
EXP15, 13-9 


INDEX 
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EXPEX+, 8-2 
EXPEX-, 8-2 
EXPEX1, 8-2 
EXPEXC, 8-2 
EXPP10, 16-44 
EXPPAR, 16-44 
EXPPLS, 16-44 
EXPR, 8-3 
EXPRDC, 7-4 
EXPSKP, 9-59 


F 


FACI5S, 13-11 
FACTF, 13-11 
FASCFD, 9-48 
FCHLBL, 9-24 
FCSTRT, 13-11 
FGTBL, 12-11 
FIBAD-, 9-49 
FIBROR, 9-49 
FIBOFF, 9-57 
FIBON, 9-57 
FILCRD, 9-® 
FILDC*, 7-22 
FILEF, 9-67 
FILEMF, 9-67 
FILEP, 16-40 
FILEP+, 16-40 
FILEP-, 16-40 
FILEP1, 16-40 
FILFIL, 9-77 
FILSK+, 9-76 
FILSKP, 9-76 
FILKQ$, 9-61 
FILXQ*, 9-61 
FIND, 26-10 
FINDR, 11-29 
FINDDO, 11-29 
FINDF, 9-67 
FINDF+, 9-67 
FINDL, 9-16 
FINDLB, 8-17 
FINDWF, 9-67 
FINITA, 15-21 
FINITC, 15-22 
FINLIN, 6-24 
FIXDC, 21-2 
FIXP, 23-2 
FLADDR, 9-79 
FLDEV+, 8-80 


Index-8 


HP-71 Software IDS Volune II Index 





HP-71 Softuare IDS Volune II Index 


FLDEVX, 8-79 
FLIP10, 15-45 
FLIPI1, 15-45 
FLIP8, 15-45 
FLOAT, 5-4 
FLSKPB, 9-76 
FLTDH, 5-1 
FLTYPp, 16-39 
FNDFCN, 9-60 
FNPUDS, 15-22 
FNRTN1, 8-3 
FNRIN2, 8- 
FNRTN3, 8- 
FNRTN4, 8- 
FORUPD, 18-7 
FPOLL, 17-21 
FSPC10, 16-36 
FSPECe, 16-17 
FSPECp, 16-36 
FSPECx, 9-65 
FIBSCH, 9-47 
FIYPDC, 7-26 
FTYPFH, 9-46 
FTYPFD, 9-47 


te) i) 


G 


GDISP$, 10-2 
GETAVM, 18-2 
GETCHH, 8-64 
GETCON, 15-40 
GETDIN, 26-13 
GetEKP, 8-37 
GETHSK, 6-12 
GETNAN, 26-19 
GETPeF, 9-20 
GETPR, 9-75 
GETPR+, 9-75 
GETPR1, 9-75 
GETPRO, 9-75 
GETSA, 15-30 
GETSDO, 1 
GETST*, 9-20 
GETST-, 9-20 
GETSTC, 9-20 
GETSTe, 9-20 
GETVAL, 15-40 
GNXCR+, 16-22 
GNXTCR, 16-22 
GOSUB, 22-8 
GOSUBp, 23-1 


INDEX 
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GOTO, 22-8 
GOTODC, 21-3 
GOTOp, 23-1 
GTEXT, 7-11 
GIEXT+, 7-17 
GTEXT1, 7-17 
GIEXTN, 7-11 
GIEXTX, 7-11 
GTFLAG, 11-28 
GTKYC+, 8-73 
GIKYCD, 8-73 
GIPTRS, 9-46 
GIPTRX, 9-46 
GIKT++, 7-17 


H 


HASH1, 8-6 
HASH2, 8-6 
HDFLT, 5-3 
HEXASC, 5-5 
HEXDEC, 5-9 
HMSSEC, 25-12 
HNDLFL, 15-20 
HOWARD, 16-1 
HTRAP, 15-19 
HUGE, 15-5 
HXDASC, 7-8 
HXDCW, 5-9 


— 


I/ORL+, 3- 
I/OALL, 3- 
I/OCOL, 3- 
T/OCON, 3- 
T/ODAL, 3- 
T/OEX2, 3- 
I/OEXP, 3- 
I/OFND, 3- 
I/ORES, 3- 
IDIV, 15-25 

IDIVA, 15-24 

IFi2A, 15-13 
ILCNTe, 16-17 
INDO+2, 11-15 
Impo-2, 11-15 
IMerr, 24-9 

IMind1, 8-24 

IMinit, 8-24 


Wrw ww COP UOIM AD 
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IMoffs, 8-28 
INxg27, 8-30 
INBS=C, 18-13 
INF*O, 15-10 
INFRI5, 15-13 
INPOFF, 8-56 
INPUTP, 23-7 
INTGR, 26-5 
INTRSO, 11-31 
INTRPT, 11-31 
INVNaN, 13-6 
IOCNDO, 3-4 
IOFNDO, 3-2 
IOFSCR, 3-1 
ISRAN?, 4-1 
IVAERR, 24-10 
IVEXPe, 16-1? 
IVPARe, 16-17 
IVVARe, 16-17 


K 


KEY$, 10-3 
KEYCOD, 12-12 
KEYDEL, 8-72 
KEYFND, 8-71 
KEYMRG, 9-60 
KEYNAN, 8-76 
KEYRD, 12-2 
KEYSCN, 12-13 
KYDN?, 4-16 
KYFND+, 8-71 
KYNRG+, 9-61 


L 


LABELP, 16-40 
LABLDC, 7-21 
LBLINP, 16-12 
LBLNAN, 8-18 
LBLNIF, 16-12 
LEDINI, 6-20 
LDCEXT, 7-9 
LDCN10, 7-9 
LDCONP, 7-9 
LDCSET, 18-9 
LOSST1, 7-9 
LDSST2, 7-9 
LEAVE, 16-1 
LEXBF+, 4-14 


INDEX 
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LEXBUF, 4-14 
LGT15, 13-10 
LIMITS, 8-5 
LINKHA+, 7-13 
LINAU, 7-13 
LINHCK, 7-13 
LINHD+, 7-13 
LINROC, 7-13 
LINEP, 16-6 
LINEP+, 16-6 
LINP, 16-12 
LINPTP, 23-7 
LINSKP, 8-67 
LISTOC, 7-24 
LN1+15, 13-7 
LNI+KF, 13-7 
LNI2, 13-8 
LN15, 13-8 
LN30, 13-8 
LNEP66, 16-6 
LNPEXT, 16-6 
LNSKP-, 8-67 
LOCADR, 9-74 
LOCFI#, 9-2 
LOCFIL, 9-2 
LSLEEP, 11-36 
LSTLEN, 6-26 
LXFND, 3-9 
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MAINOS, 24-11 
MAIN30, 24-11 
HAINLP, 24-11 
HAKE1, 15-41 
NAKEBF, 6-7 
MEMBER, 11-3 
MENCK+, 18-11 
MENCKL, 18-11 
MENER*, 24-19 
MENERR, 24-18 
MENERX, 24-18 
NESSG, 15-21 
NFER42, 8-76 
MFERR, 24-16 
MFERR*, 11-51 
MFERR-, 11-51 
MFERRS, 24-17 
MFERsp, 11-54 
MFLG=0, 11-39 
MFLG=X, 11-39 
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MFWRN, 11-47 
MFWRNQ, 11-47 
MFWROQ8, 11-47 
MGOSUB, 8-45 
MOVE*N, 11-59 
MOVEDO, 11-5 
MOVED1, 11-5 
MOVED2, 11-5 
MOVED3, 11-5 
MOVEDA, 11-5 
NOVEDD, 11-5 
MOVEDN, 11-5 
MOVEUO, 11-7 
MOVEU1, 11-7 
MOVEU2, 11-7 
MOVEU3, 11-7 
MOVEU4, 11-7 
MOVEUR, 11-7 
MOVEUM, 11-7 
MPV -12;. 43-3 
MP15S, 13-3 
MP2st2, 13-4 
MP2-15, 13-3 
MPOPIN, 14-5 
MPOP2N, 14-4 
NPY, 15-26 
MsgAvs, 8-78 
MSNI2, 15-38 
MSN15, 15-38 
MSPARe, 16-17 
MTADDR, 2-2 
MTRDR+, 2-2 
MULTF, 13-3 
MVMEN, 11-60 
MVMEN+, 11-60 
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NORDIN, 24-2 
NOSCRL, 6-1 
NRNCON, 15-2 
NTOKEN, 16-1 
NTOKNL, 16-1 
NULLP, 9-28 
NUN+0, 16-30 
NUNC ++, 16-30 
NUNCK, 16-30 
NUMKO, 16-30 
NUMSCN, 16-5 
NwOFFS, 11-17 
NXTADR, 8-61 
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NXTELM, 8-62 
NXTEXP, 8-43 
NXTLIN, 9-18 
NXTP, 16-26 
NXTSTM, 8-68 
NXTVA-, 8-59 
NXTVAR, 8-59 
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OAGNKT, 16-22 
OBCOLL, 18-13 
OBEDIT, 9-8 
OBLCMP, 18-13 
OBPRD, 18-13 
ONDC, 21-3 
ONDC20, 21-3 
ONERR, 22-3 
ONP, 23-5 
ONP40, 23-5 
ONTINR, 22-3 
OPENF, 9-53 
OPENF*, 9-53 
OPENF-, 9-53 
OPNF+, 9-53 
ORGSB, 13-15 
ORSB, 13-14 
ORXN, 13-14 
OUTIT+, 11-10 
OUT1TK, 11-10 
QUT2TC, 11-10 
OUTZTK, 11-10 
OUT3IC, 11-10 
OUT3TK, 11-10 
OUTBY+, 11-10 
QUTBYT, 11-10 
OUTC15, 11-46 
QUTEL1, 7-18 
OUTELA, 7-18 
OUTEOL, 7-18 
OUTLI1, 16-34 
OUTLIT, 16-33 
OUTNBC, 11-46 
QUTNBS, 11-46 
OUTNIB, 11-10 
OUTRES, 8-4 
OUTVAR, 16-35 
OVFL, 15-17 
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P1-10, 16-46 
PARERR, 16-17 
PART3, 22-18 
pBSCen, 17-35 
pBSCex, 17-37 
pCALRS, 17-117 
pCALSV, 17-115 
pCAT, 17-140 
pCAT$, 17-142 
pCLDST, 17-76 
pCNPLX, 17-1 
pCONFG, 17-70 
pcOPYx, 17-11 
pCRDAB, 17-69 
pCREAT, 17-105 
pCRT=8, 17-107 
pCURSR, 17-13 
pDATLN, 17-112 
PDEV, 9-64 
PDEV+, 9-64 
PDEV1, 9-64 
pDEVCp, 17-27 
pDIDST, 17-111 
pDSWKY, 17-82 
pDSWNK, 17-80 


PEDIT, 9-15, 17-137 


PEDITD, 9-15 
PEDITM, 3-15 
pENTER, 17-161 
pEOFIL, 17-94 
pERROR, 17-154 
pExcpt, 17-39 
pFASCH, 17-99 
pFILDC, 17-139 
pFILXQ, 17-124 
pFINDF, 17-109 
PFINDL, 9-26 
PFNDL*, 9-26 
PFNDZL, 9-26 
pFNIN, 17-119 
pFNOUT, 17-120 
pFPROT, 17-135 
pFSPCp, 17-24 
pFSPCx, 17-126 
pFIYPE, 17-98 
PI/2, 15-44 
PI/2D, 15-44 
PI/4, 15-40 
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plIttbck, 17-48 
pINCHR, 17-44 
pIMcpi, 17-51 
pIMcpu, 17-62 
pINXCH, 17-58 
pInkQT, 17-55 
pkYDF, 17-74 
pLIST, 17-144 
pLIST2, 17-146 
pneM, 17-157 
pnhERGE, 17-148 
prmiNLP, 17-77 
pmRGE2, 17-150 
POKEP, 23-12 
POLL, 17-16 
POLLD+, 17-16 
POPIN, 14-2 
POPIN+, 14-5 
POPIR, 14-10 
POP1S, 14-4 
POP2N, 14-1 
POP2N+, 14-4 
POPBUF, 12-14 
POPGSB, 11-43 
POPNTH, 14-7 
POPSTK, 11-43 
POPSTR, 14-7 
POPUPD, 11-43 
pPARSE, 17-23 
pPRGPR, 17-130 
pPRINK, 17-96 
pPRICL, 17-89 
pPRTIS, 17-87 
pPURGE, 17-128 
pPWROF, 17-78 
pRCRD, 17-67 
pROCBF, 17-102 
pRONBF, 17-91 
pREADH, 17-92 
pREN, 17-114 
PREP, 26-15 
PRESCN, 16-1 
PRGFNF, 9-70 
PRINT*, 22-17 
pRNANE, 17-132 
PRNEXe, 16-17 
PRNIDC, 21-2 
PRPSND, 6-25 
PRSCOO, 8-19 
PRSCKB, 8-19 
PRSCOP, 8-19 
PRSsc+, 8-29 
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PRSscn, 8-29 
PRTHDC, 7-25 
pRINTp, 17-121 
PRTP, 23-10 
pRUNFt, 17-30 
pRUNnB, 17-32 
PSHGSB, 11-41 
PSHNCR, 11-41 
PSHSTK, 11-40 
PSHSTL, 11-40 
PSHUPD, 11-41 
pSREC#, 17-100 
psREQ, 17-83 
preEST, 17-161 
plINR#, 17-8 
pTRANS, 17-163 
pIRFNx, 17-3 
PUGFIB, 9-57 
PURGDC, 21-4 
PURGEF, 9-3 
PUTRES, 8-52 
pVER$, 17-86 
pWARN, 17-151 
pWCRD, 17-65 
pWCRD8, 17-64 
pWRCBF, 17-104 
PWROFF, 24-13 
plTKY, 17-72 
pZERPG, 17-42 


QUOEXe, 16-17 
QUOTCK, 11-38 
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R3=Di+, 11-13 
R3=D10, 11-13 
R3=D1C, 11-13 
R<RSTK, 20-4 
RAMRON, 3-73 
RANGE, 11-2 
RCCD1, 15-23 
RCCD2, 15-23 
RCL*, 15-34 
RCLW1, 15-34 
RCLW2, 15-34 
RCLW3, 15-34 
RCLH4, 15-34 
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RCSCR, 15-33 
RCVOFS, 11-18 
RDATTY, 24-14 
RDBAS, 9-5 
RDBYTA, 9-42 
RDCHD+, 9-19 
ROCHDR, 9-19 
RDHOR1, 9-19 
RDINFD, 19-1 
RDINFO, 19-1 
RDINFS, 19-1 
RDLNAS, 9-41 
RDLNFX, 9-41 
RDTEXT, 9-6 
READIN, 15-4 
RERONB, 9-7 
READP, 23-7 
READPS, 23-7 
RECADR, 26-8 
RECALL, 26-6 
REDUCE, 15-1 
RELINP, 11-44 
REMDC, 7-18 
RENMDC, 21-4 
RENSUB, 9-58 
REPROMN, 8-56 
RESCAN, 16-1 
RESPTR, 16-23 
REST*, 16-19 
RESTAR, 16-19 
RESTOR, 22-8 
RESTRP, 23-2 
REVS, 14-6 
REVPOP, 14-3 
REWIND, 9-49 
RFRAD++, 18-8 
RFAD+I, 18-8 
RFAD--, 18-5 
RFAD-I, 18-5 
RFADJ+, 18-8 
RFUPD+, 18-6 
RJUST, 5-8 
RLINFO, 20-8 
RND-12, 15-7 
RND12+, 15-17 
RNDRHK, 15-27 
RNDNRN, 15-18 
ROMCHK, 11-21 
ROMFND, 11-21 
RPLLIN, 9-80 
RPLSBH, 9-9 
RPTKY, 12-6 
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RSTK<R, 20-3 
RSTST, 15-4 

RUNRT1, 24-3 
RUNRTN, 24-3 
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SALLOC, 193-3 
SAVESB, 13-15 
SAVEXM, 13-15 
SAVGSB, 13-15 
3B15S, 15-28 
SCAN, 16-4 
SCNRT, 6-18 
SCOPCK, 8-75 
SCRLLR, 12-10 
SE1-10, 16-47 
SECHNS, 25-11 
SEND20, 8-49 
SENDEL, 8-48 
SENDIT, 8-49 
SENDWD, 6-21 
SETALN, 25-6 
SETALR, 25-7 
SETFNT, 6-4 
SETINE, 25-2 
SETSB, 13-14 
SETTNO, 25-9 
SFLAG?, 11-27 
SFLAGC, 11-25 
SFLAGS, 11-24 
SFLAGT, 11-26 
SHF10, 15-9 
SHFLAC, 15-43 
SHFRAC, 15-43 
SHFRBD, 15-44 
SHFTKN, 16-1 
SHRT, 26-4 
SIGCHK, 15-6 
SIGTST, 15-31 
SIN12, 13-17 
SIN15, 13-17 
SKIPDC, 7-23 
SLEEP, 11-36 
SMALL, 15-5 
SNAPLC, 20-6 
SNAPR*, 20-5 
_ SNAPRS, 20-5 
SNAPSV, 20-6 
SNDUD+, 6-21 
SPACE, 26-14 
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SPLITA, 15-11 
SPLITC, 15-15 
SPLTAC, 15-14 
SPLTAX, 15-31 
SQR15, 13-5 
SQR17, 13-5 
SQR70, 15-9 
SORSAV, 13-14 
SRLEAS, 20-8 
STAB1, 15-23 
STAB2, 15-23 
STATIC, 26-6 
STRTR+, 20-1 
STATRS, 20-1 
STRTSV, 20-2 
STCD2, 15-23 
STKCH+, 15-35 
STKCHR, 15-35 
STKCND, 11-4 
STKVCT, 8-60 
STMBCL, 8-74 
STMBUF, 8-74 
STOP, 22-5 
STORE, 22-2 
STRSOO, 5-12 
STR$SB, 5-12 
STRASN, 26-1 
STREQL, 11-8 
STRGCK, 16-31 
STRHDR, 8-47 
STRHED, 8-63 
STRNGP, 23-12 
STRTST, 11-8 
STSCR, 15-32 
STUFF, 11-4 
SUBONE, 13-1 
SVINF+, 19-1 
SVINFO, 19-1 
SVTRC, 8-1 
SWPBYT, 9-10 
SYCOLL, 18-13 
SYNTXe, 16-17 
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TRANI2, 13-17 
TANTS, 13-17 
TBLINC, 11-30 
TBLIMP, 11-30 
TBNSGS$, 8-78 
TBMSTX, 8-78 
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TFHDLR, 9- 
TKSCN+, 8 
TKSCN4, 8-69 
TKSCN7, 8-69 
TOOT, 25-10 
TONE, 11-19 
TRACDC, 7-18 
TRCO9O, 13-18 
TRFRON, 8-65 
TRNNTR, 10-1 
TRSFMu, 8-7 
TRIO, 8-66 
TRIO*, 8-66 
TRIO+, 8-66 
TRIO-, 8-66 
TST12A, 15-36 
TST15, 15-36 
TstEnd, 8-39 
TWO*, 15-43 
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UPCPOS, 9-45 
UPDANN, 6-5 
UPDANK, 6-5 
uRES12, 15-16 
uRESD1, 15-29 
URESNX, 15-16 
URESXT, 15-16 
uRND>P, 15-17 
USGch+, 8-32 
USGch-, 8-32 
USGnun, 8-35 
USGrst, 8-34 
USING, 22-13 
USINGp, 23-10 
USloop, 8-40 
USnrO5, 8-35 
USstO3, 8-31 
USst05, 8-31 
uTEST, 13-12 
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VRLOO, 8-57 
VRROC, 7-20 
VARDC+, 7-20 
VARNB-, 5-11 
VARNBR, 5-11 
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VIEWD1, 6-2 
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WFIMNDT, 9-13 
WIPOUT, 11-4 
WRBYTC, 9-43 
WRBYTD, 9-43 
WRDSC+, 16-15 
WROSCN, 16-15 
WRITNB, 9-7 
WRIFIB, 9-54 
WRTNUN, 9-40 
WRTSTR, 9-39 
WSTRFX, 9-38 
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XMTAOR, 2-1 
XXHEAD, 14-12 
XYEX, 15-11 
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YMDDAY, 25-13 
YMDHO1, 25-8 
YADHNS, 25-8 
YR2-12, 13-10 
YA2-45, 13-10 
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